connexion à un datagrid de visual basic

[johnnystrong]

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 :

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 :

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 :

SQL = "select*from Trimestre1"

en

Code :

1
2
trimst = "Trimestre1"
SQL = "select*from trimst "

également pas de réaction.


PLEASE HELPPPPPPP

[StringBuilder]

Déplace ton topic dans le forum VB.

Tu as besoin de faire des concaténations de chaines de caractères :

Code :

cn.open "provider=Microsoft.jet.OLEDB.4.0; data source=" & chemin & ";persist security Info=False"

et

Code :

SQL = "select * from " & trimst