1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
'Initialisation de la chaîne contenant l'instruction SQL
Dim requeteStandard As String
Try
If (strmot1 <> "" ) Then
requeteStandard = "select titre from Doc where index1 = '" '& strmot1 & "' "
End If
Catch ex As OleDbException
End Try
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source= C:\UserPr.mdb")
MyConnexion.Open()
MyCommandR = New OleDbCommand(requeteStandard, MyConnexion)
MyDataAdapterR = New OleDbDataAdapter(MyCommandR)
MyCommandR.Connection = MyConnexion
MyDataAdapterR.Fill(MyDataSetR, "Doc")
MyDataTableR = MyDataSetR.Tables("Doc")
DataGridView1.DataSource = MyDataTableR |
Partager