Bonjour,
J'ai besoin de lier une combobox à une base de données.
Cependant, en renseignant les propriétés datasource, datamember et datafields, je reçois le message suivant :
impossible de lier au champ ou au datamember CPTE,LIBELLE.
Voici comment j'ai renseigné ces propriétés : datasource : rst2
( il s'agit d'un recordset qui contient le résultat d'une requête de selection sql vers le bdd)
datafield : CPTE, LIBELLE : nom des deux champs de la table Coprplan de la base de données
Datamember : j'ai indiqué le nom de la table Coprplan.
Pourriez vous m'aider sur ce point.
Merci beaucoup à vous.
Nathalie
Voici le code implémenté pour la sub de remplissage d ela combo
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Private Sub RemplirCombo1() Dim rst2 As New ADODB.Recordset ConnectToDb 'creation du recordset qui contient tous les enregistrements du champ "CPTE" de la table test_insert On Error GoTo err_refresh2 rst2.Open "SELECT CPTE, LIBELLE from Coprplan order by CPTE", cn DisconnectToDb Exit Sub err_refresh2: MsgBox Err.Description, vbCritical, "pbremplircombo1" Err.Clear Set cn = Nothing Set rst2 = Nothing End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Sub ConnectToDb() Set cn = New ADODB.Connection 'Définition du pilote de connexion cn.Provider = "Microsoft.Jet.Oledb.4.0" 'Définition de la chaîne de connexion cn.ConnectionString = "C:\NH\sruplan.mdb" 'Ouverture de la base de données cn.Open End Sub Sub DisconnectToDb() cn.Close End Sub
Partager