Discussion :

[new_wave]

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

[sovo]

comman tu peux te connecter et deconnecte, et ensuite tu veux pouvoir acces a cette connexion ??

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