Combobox et requete
Résolu
sasafca
Messages postés
567
Statut
Membre
-
sasafca Messages postés 567 Statut Membre -
sasafca Messages postés 567 Statut Membre -
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
- 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
- Difficulté avec requête SQLite ✓ - Forum Android
- 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 Access
- L'opérateur ou l'administrateur a refusé la requête ✓ - Forum Windows
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 ?
