Importations System.Data
Importations System.Configuration
Importations System.Data.SqlClient
Classe publique ViewSQLClient
Faible sqlConn en tant que nouveau SqlConnection
mySQLConnection privé en tant que nouveau SqlConnection
mySQLDataAdapter privé comme SqlDataAdapter
mySQLCommandBuilder privé comme SqlCommandBuilder
myDataTable privé en tant que nouveau DataTable
RowPosition privé comme nombre entier
ViewSQLClient_FormClosed secondaire privé (expéditeur de ByVal comme objet, ByVal e comme System.Windows.Forms.FormClosedEventArgs) manipule Me.FormClosed
mySQLConnection.Close ()
mySQLConnection.Dispose ()
Sous-marin d'extrémité
ViewSQLClient_Load secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule MyBase.Load
mySQLConnection.ConnectionString = « =SMARTCHEATER \ sqlexpress de point d'émission ; Catalog=cricket initial ; Security=True Integrated »
mySQLConnection.Open ()
mySQLDataAdapter = nouveau SqlDataAdapter (« nom CHOISI des pays », de mySQLConnection)
mySQLCommandBuilder = nouveau SqlCommandBuilder (mySQLDataAdapter)
'Le code dans la prochaine ligne donne l'erreur
'Erreur Messag : e la propriété de ConnectionString n'a pas été initialisé
mySQLDataAdapter.Fill (myDataTable)
Me.ShowCurrentRecord ()
Sous-marin d'extrémité
ShowCurrentRecord secondaire privé ()
Si myDataTable.Rows.Count = 0 puis
txtNotes.Text = ""
Sortir le sous-marin
Finir si
txtNotes.Text = myDataTable.Rows (RowPosition) (« nom ») .ToString ()
Sous-marin d'extrémité
Classe d'extrémité
|