Dunkel sqlConn som SqlClient.SqlConnection
Dunkel sqlCmd som SqlClient.SqlCommand
Dunkel strConnection som stränger
'Få anslutning stränger från App.Config (måste importen system.configuration, och att tillfoga hänvisa till systemkonfigurationen
strConnection = ConfigurationManager.ConnectionStrings (”hoh_schoolwear_v1. _0.My.MySettings.pitl_hoh_schoolwear”) .ConnectionString
sqlConn = nya SqlConnection (strConnectionen)
sqlCmd = nya SqlCommand (”välj * FRÅN tbl_users VAR username = '” & txtUsername.Text & ”'”, sqlConn)
sqlConn.Open ()
Dunkel dr som SqlClient.SqlDataReader
dr = sqlCmd .ExecuteReader
Stunddr. Läst ()
txtEmail.Text = dr (”e-post”)
txtUsername.Text = dr (”username”)
…,
Avsluta stunder
Fånga
Avsluta försök
dr. Nära ()
sqlCon.Close ()
|