1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
'Remplissage du datagrid
strsql = "SELECT mescolonnes"
strsql += " FROM TB_table"
strsql += " WHERE mes_conditions"
ObjetCommand = New OleDbCommand(strsql, myConnexion)
objetDataReader = ObjetCommand.ExecuteReader()
'Si il y a au moins un resultat
If (objetDataReader.Read() = True) Then
objetDataReader.Close()
ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
ObjetDataSet = New DataSet
ObjetDataAdapter.Fill(ObjetDataSet, "coucou")
DataGridView.DataSource = ObjetDataSet.Tables("coucou")
Else
objetDataReader.Close()
End If |
Partager