Combobox et requete
Résolu
sasafca
Messages postés
505
Date d'inscription
Statut
Membre
Dernière intervention
-
sasafca Messages postés 505 Date d'inscription Statut Membre Dernière intervention -
sasafca Messages postés 505 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je souhaite remplir ma combox avec une requête, je cherche depuis un moment mais toutes les méthodes que j'ai trouvé ne fonctionne pas, je viens donc demander un peu d'aide.
Voici ou j'en suis:
Private Sub UserForm_Initialize()
'--Connection à la base de données
Dim Connect As New ADODB.Connection
Set Connect = New ADODB.Connection
Connect.Open ("DRIVER={Microsoft ODBC for Oracle};UID=xxx;PWD=xxx;SERVER=xx;")
Dim Result As ADODB.Recordset
Dim iCount, iRecCount As Integer
Dim RecTmp As Recordset
Dim SQL As String
SQL = "SELECT CD_SUPPLIER,TXT_QUOTEFIELD FROM SUPPLIER"
'Set RecTmp = MyDatabase.OpenRecordset(SQL)
RecTmp.Open SQL, Connect, adOpenStatic
RecTmp.MoveLast
iRecCount = RecTmp.RecordCount
RecTmp.MoveFirst
For iCount = 1 To iRecCount
zl_1.AddItem RecTmp!MonChamp
RecTmp.MoveNext
Next
RecTmp.Close
Set RecTmp = Nothing
End sub
y a t-il une fonction qui fonctionne svp ?
Merci !!!
je souhaite remplir ma combox avec une requête, je cherche depuis un moment mais toutes les méthodes que j'ai trouvé ne fonctionne pas, je viens donc demander un peu d'aide.
Voici ou j'en suis:
Private Sub UserForm_Initialize()
'--Connection à la base de données
Dim Connect As New ADODB.Connection
Set Connect = New ADODB.Connection
Connect.Open ("DRIVER={Microsoft ODBC for Oracle};UID=xxx;PWD=xxx;SERVER=xx;")
Dim Result As ADODB.Recordset
Dim iCount, iRecCount As Integer
Dim RecTmp As Recordset
Dim SQL As String
SQL = "SELECT CD_SUPPLIER,TXT_QUOTEFIELD FROM SUPPLIER"
'Set RecTmp = MyDatabase.OpenRecordset(SQL)
RecTmp.Open SQL, Connect, adOpenStatic
RecTmp.MoveLast
iRecCount = RecTmp.RecordCount
RecTmp.MoveFirst
For iCount = 1 To iRecCount
zl_1.AddItem RecTmp!MonChamp
RecTmp.MoveNext
Next
RecTmp.Close
Set RecTmp = Nothing
End sub
y a t-il une fonction qui fonctionne svp ?
Merci !!!
A voir également:
- Combobox et requete
- Erreur de requete facebook - Forum Facebook
- Requete sql pix ✓ - Forum MySQL
- L'opérateur ou l'administrateur a refusé la requête ✓ - Forum Windows
- Quelle requête écrire pour demander au moteur de recherche de présenter de préférence les pages web traitant de tennis mais pas de tennis de table ✓ - Forum Java
- Combobox ✓ - Forum VB / VBA
1 réponse
J'ai réussi en faisant ceci:
Dim SQL As String
SQL = "SELECT CD_SUPPLIER,TXT_QUOTEFIELD FROM SUPPLIER"
Set Result = Connect.Execute(SQL)
While Not Result.EOF = True
zl_1.AddItem
zl_1.List(zl_1.ListCount - 1, 0) = Result.Fields("TXT_QUOTEFIELD")
zl_1.List(zl_1.ListCount - 1, 1) = Result.Fields("CD_SUPPLIER")
Result.MoveNext
Wend
MAIS j'ai encore une erreur qui survient au bout d'un moment, alors que si j'arrete le processur en cours, la liste est parfaite... !
"Impossible de definir la propriete List. Type mismatch"
Pourquoi ?
Dim SQL As String
SQL = "SELECT CD_SUPPLIER,TXT_QUOTEFIELD FROM SUPPLIER"
Set Result = Connect.Execute(SQL)
While Not Result.EOF = True
zl_1.AddItem
zl_1.List(zl_1.ListCount - 1, 0) = Result.Fields("TXT_QUOTEFIELD")
zl_1.List(zl_1.ListCount - 1, 1) = Result.Fields("CD_SUPPLIER")
Result.MoveNext
Wend
MAIS j'ai encore une erreur qui survient au bout d'un moment, alors que si j'arrete le processur en cours, la liste est parfaite... !
"Impossible de definir la propriete List. Type mismatch"
Pourquoi ?
