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
|
Dim Connexion As New ClassBase
Connexion.Connexion_access()
Try
Dim Idappareil As String = TB_App.Text
If Idappareil = TB_App.Text Then
Dim Adapt As OleDb.OleDbDataAdapter
Dim DataS As New DataSet
Dim DataT As New DataTable
Dim Cmd As New OleDb.OleDbCommand
Dim requete As String
requete = "SELECT (Idappareil_grille) FROM GRILLE WHERE idappareil_grille = '" & Idappareil & "' "
Cmd = New OleDb.OleDbCommand(requete)
Adapt = New OleDb.OleDbDataAdapter(Cmd)
Cmd.Connection = Connexion.connexion
Adapt.Fill(DataS, "GRILLE")
DataT = DataS.Tables("GRILLE")
DataGrid1.DataSource = DataT
Else
MessageBox.Show("Veuillez entrer un nom d'appareil")
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try |