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
| Dim maConnexion As OleDbConnection
Dim maCommande As OleDbCommand
Dim drEnc As OleDbDataReader
Dim strConnect As String
Dim strSql As String
Try
strConnect = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='" & Label7.Text & "';User ID=Admin;Password=;"
maConnexion = New OleDbConnection(strConnect)
strSql = "SELECT Nom, Prenom, Formation, Date, RetardSortie, Heure, Motif FROM Enregistrement WHERE Nom='" & TextBox1.Text & "' AND Formation='" & ComboBox1.Text & "' AND Date like '%/" & TextBox2.Text & "/%'"
maCommande = New OleDbCommand(strSql, maConnexion)
maConnexion.Open()
drEnc = maCommande.ExecuteReader()
While (drEnc.Read() = True)
Dim ligne As New ListViewItem
'la premiere colonne contient le nom
ligne.Text = drEnc("Nom")
'les autres informations doivent etre mises dans la collection SubItems
ligne.SubItems.Add(drEnc("Prenom"))
ligne.SubItems.Add(drEnc("Formation"))
ligne.SubItems.Add(drEnc("Date"))
ligne.SubItems.Add(drEnc("RetardSortie"))
ligne.SubItems.Add(drEnc("Heure"))
ligne.SubItems.Add(drEnc("Motif"))
'la ligne créée est ajoutée à la liste déroulante
ListView1.Items.Add(ligne)
End While
Catch err As System.Data.OleDb.OleDbException
MessageBox.Show("ERREUR requête ACCESS:" + err.Message)
Catch err As System.InvalidOperationException
MessageBox.Show("ERREUR:" + err.Message)
Catch err As Exception
MessageBox.Show("ERREUR GRAVE:" + err.Message)
End Try |
Partager