remplir un combobox à partir d'une requet sql

Question

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

Polux31 · Answer

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)

soualem · Answer

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

Remplir un combobox à partir d'une requet sql

2 réponses

Votre réponse

Discussions similaires

Newsletters