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
en
Code : Sélectionner tout - Visualiser dans une fenêtre à part SQL = "select*from Trimestre1"
également pas de réaction.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 trimst = "Trimestre1" SQL = "select*from trimst "
PLEASE HELPPPPPPP
Partager