Schemerige sqlConn als SqlClient.SqlConnection
Schemerige sqlCmd als SqlClient.SqlCommand
Schemerige strConnection als Koord
'Krijg verbindingskoord van App.Config (moet system.configuration invoeren en de configuratie van het verwijzingssysteem toevoegen
strConnection = ConfigurationManager.ConnectionStrings („hoh_schoolwear_v1. _0.My.MySettings.pitl_hoh_schoolwear“) .ConnectionString
sqlConn = Nieuwe SqlConnection (strConnection)
sqlCmd = Nieuwe SqlCommand („selecteer * UIT tbl_users WAAR gebruikersbenaming = '“ & txtUsername.Text & „'“, sqlConn)
sqlConn.Open ()
Verduister Dr. als SqlClient.SqlDataReader
Dr. = sqlCmd .ExecuteReader
Terwijl Dr. Lees ()
txtEmail.Text = Dr. („e-mail“)
txtUsername.Text = Dr. („gebruikersbenaming“)
…
Eind terwijl
Vangst
Het eind probeert
Dr. Sluit ()
sqlCon.Close ()
|