Remplir un combobox à partir d'une requet sql
Bonjour,
je veut recuperer les donner d'une table en my sql vb6 dans un combobox s'il vous plait aider moi
voici mon code
Private Sub Form_Load()
Dim maConnexion As ADODB.Connection
Set maConnexion = New ADODB.Connection
maConnexion.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=localhost;" & " DATABASE=bo;" & "UID=root;PWD=root; OPTION=3"
maConnexion.Open
Dim iCount, iRecCount As Integer
Dim RecTmp As datareader
Dim SQL As String
SQL = "SELECT numero FROM depart"
Set RecTmp = bo.Opendatareader(SQL)
RecTmp.MoveLast
iRecCount = RecTmp.RecordCount
RecTmp.MoveFirst
For iCount = 1 To iRecCount
cboBox.AddItem RecTmp!numclient
RecTmp.MoveNext
Next
RecTmp.Close
Set RecTmp = Nothing
End Sub
je veut recuperer les donner d'une table en my sql vb6 dans un combobox s'il vous plait aider moi
voici mon code
Private Sub Form_Load()
Dim maConnexion As ADODB.Connection
Set maConnexion = New ADODB.Connection
maConnexion.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=localhost;" & " DATABASE=bo;" & "UID=root;PWD=root; OPTION=3"
maConnexion.Open
Dim iCount, iRecCount As Integer
Dim RecTmp As datareader
Dim SQL As String
SQL = "SELECT numero FROM depart"
Set RecTmp = bo.Opendatareader(SQL)
RecTmp.MoveLast
iRecCount = RecTmp.RecordCount
RecTmp.MoveFirst
For iCount = 1 To iRecCount
cboBox.AddItem RecTmp!numclient
RecTmp.MoveNext
Next
RecTmp.Close
Set RecTmp = Nothing
End Sub
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
merci pour votre aide mais le programme m'affiche
impossible d'utliser cette connexion pour effecter cette operation
elle est fermee ou non valide dans ce contexte
merci une autre fois -
Bonjour,
Remplace: Dim RecTmp As datareader par Dim RecTemp As ADODB.Recordset
Ensuite:'... Dim SQL As String SQL = "SELECT numero FROM depart" Set RecTmp = New ADODB.Recordset RecTmp.Open(SQL) While Not RecTmp.EOF cboBox.AddItem RecTmp.Fields(0) RecTemp.MoveNext Wend '...
;o)
