Bonjour à tous.
Je débute dans la programmation des bases de données avec visual Basic. J'utilise le tableau DATAGRID pour la gestion des données en provenance d'un fichier( jdata.mdb) créé dans Access. J'ai trouvé des instructions pour la connexion du datagrid au fichier jdata.mdb

Code vba : 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
'déclarations'
dim chemin as string
dim trimst as string
dim cn as ADODB.connection
dim rspub as ADODB.connection
 
'bouton commande pour ouvrir le fichier le charger dans la grille'
private sub command1_click(index as integer) 
on error resume next
dim SQL as string
set cn = new ADODB.connection
set rspub = new ADODB.Recordset
cn.open "provider=Microsoft.jet.OLEDB.4.0; data source=C:\johnndat\jdata.mdb;persist security Info=False" 'ma chaine de connection
rspub.CursorType = adOpenDynamic
rspub.cursorlocation = adUserclient
rspub.LockType = adLockBatchoptimistic
SQL = "select*from Trimestre1" 'Trimestre1 est un tableau present ds jdata
rspub.open SQL, cn , , adcmdText 'ouverture de la base de données
set Datagrid1.dataSource = rspub 'Datagrid1 est le nom de ma grille
end sub

Quand je lance cette séquence sans modifier, elle fonctionne à merveille.

Mais j'aimerais passer la valeur du paramètre data source de cn.open par une variable comme ci dessous

Code vba : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
chemin = "C:\johnndat\jdata.mdb"
 
cn.open "provider=Microsoft.jet.OLEDB.4.0; data source=chemin;persist security Info=False"

c'est alors là que se situe toute la catastrophe, puisque ça ne fonctionne pas.
En fait, ça n'indique même pas une erreur, et la base de donnée n'est pas chargé dans la grille.

de même lorsque je change
Code : Sélectionner tout - Visualiser dans une fenêtre à part
SQL = "select*from Trimestre1"
en

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
trimst = "Trimestre1"
SQL = "select*from trimst "
également pas de réaction.


PLEASE HELPPPPPPP