1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
|
...
Public DB_Connect As New SqlConnection
Public sConnectionString As String
...
sConnectionString = "MyConnectionString"
DB_Connect.ConnectionString = sConnectionString
Try
DB_Connect.Open()
Catch ex As Exception
...
Dim sRequete as String = "INSERT INTO T_Notes(Date, Titre, Note) values ('02/23/2017', 'a', 'a')"
Dim CommandeSql As New SqlCommand(sRequete, DB_Connect)
Try
iRet = CommandeSql.ExecuteNonQuery()
If iRet = 0 Then
...
End If
Catch ex As Exception
...
End Try
Try
CommandeSql.Dispose()
Catch ex As Exception
...
End Try
Pour info code pour affichage de la Table
Dim Requete As String = "SELECT * FROM T_Notes"
Dim Commande As New SqlCommand(Requete, DB_Connect)
Dim Adaptateur As New SqlDataAdapter(Commande)
Dim MonDataSet As New DataSet
Dim iRet As Integer
Try
iRet = Adaptateur.Fill(MonDataSet, T_Notes)
...
Try
From1.DataGridView1.DataSource = MonDataSet.Tables(T_Notes)
Catch ex As Exception
...
End Try
Catch ex As Exception
...
End Try |
Partager