datasource, datamember et datafields
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:
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:
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 |
