papillonrourou
Messages postés7Date d'inscriptionsamedi 10 avril 2010StatutMembreDernière intervention12 avril 2010
-
10 avril 2010 à 13:50
papillonrourou
Messages postés7Date d'inscriptionsamedi 10 avril 2010StatutMembreDernière intervention12 avril 2010
-
10 avril 2010 à 15:13
je veux remplir une liste box à partir ma base mais aucun résultat ne s'affiche é j sé pa pourquoi
Private Sub rech_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rech.Click
' Déclaration Objet Connexion
Dim ObjetConnection As OleDbConnection
' Déclaration Objet Commande
Dim ObjetCommand As OleDbCommand
' Déclaration Objet DataAdapter
Dim ObjetDataAdapter As OleDbDataAdapter
' Déclaration Objet DataSet
Dim ObjetDataSet As New DataSet() 'Attention au New
'String contenant la 'Requête SQL'
Dim strSql As String
' Déclaration Objet DataTable
Dim ObjetDataTable As DataTable
' Déclaration Objet DataRow (ligne)
Dim ObjetDataRow As DataRow
'Paramêtres de connexion à la DB
Dim strConn As String
'Ouverture
'Initialisation de la chaîne de paramètres pour la connexion
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=D:\Documents and Settings\Acer\Bureau\PROJET MOUNA+RAKHA\bd1.mdb"
'Initialisation de la chaîne contenant l'instruction SQL
strSql = "SELECT nomviolateur FROM voyageur_sans_permission where date_rap=" & Me.d.Value & " And cod_ligne = " & Me.c.Text & ""
'Instanciation d'un Objet Connexion
ObjetConnection = New OleDbConnection()
'Donner à la propriété ConnectionString les paramètres de connexion
ObjetConnection.ConnectionString = strConn
'Ouvrir la connexion
Try
ObjetConnection.Open()
'Instancier un objet Commande
ObjetCommand = New OleDbCommand(strSql)
'Instancier un objet Adapter
ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
'initialiser l'objet Command
ObjetCommand.Connection() = ObjetConnection
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
ObjetDataAdapter.Fill(ObjetDataSet, "voyageur_sans_permission")
'Mettre dans un Objet DataTable une table du DataSet
ObjetDataTable = ObjetDataSet.Tables("voyageur_sans_permission")
Dim matable As New DataTable
matable = ObjetDataSet.Tables("voyageur_sans_permission")
Dim Ligne As DataRow
For Each Ligne In matable.Rows
nomp.Items.Add(Ligne.Item(" nomviolateur "))
Next
Catch ex As OleDbException
MsgBox(ex.Message)
End Try
'Objet connectée
ObjetConnection = Nothing
ObjetCommand = Nothing
ObjetDataAdapter = Nothing
'Objet déconnectée
ObjetDataSet = Nothing
ObjetDataTable = Nothing
ObjetDataRow = Nothing
End Sub
papillonrourou
Messages postés7Date d'inscriptionsamedi 10 avril 2010StatutMembreDernière intervention12 avril 2010 10 avril 2010 à 15:13
oui vs avez raison.merci.
j'ai une autre question.ds mon interface j'utilise un datetimepicker pour récupérer la date mais ce datetimepicker récupère t-il aussi l'heure actuelle?