contrôle ADODC et datagrid

Bonjour,

Alors voila je vous explique mon problème, j'utilise un controle ADODC pour lire une table d'une base de donnée accès.

Cette base de donnée accès se situe dans le même repertoire que mon application.

Pour lier l'adodc avec la table, je lui indique le chemin de la base de donnée avec le provider dans le paramètre connexion string dans les propriétés du controle ADODC.

Seulement, avec cette méthode, le chemin est unique et non modifiable. Ce qui est génant car j'ai l'intention d'installer mon appli sur plusieurs ordinateurs et le repertoire n'aura pas forcément le même nom.

J'voudrais donc savoir comment s'y prendre pour réaliser la connexion de manière programmable.

J'ai utilisé adodc1.connectionstring = "Provider= microsoft JET OLEDB 4.0;Datasource = App.path & "\mabase.mdb"
mais cela me dit que le provider n'est pas bon et que le datasource est introuvable

J'ai fait l'essai avec la propriété ConnectionString et cela fonctionne, le probleme vient donc de la syntaxe au niveau de la programmation, du moins je pense

Merci de m'aider, c'est le seul problème sur lequel je bute et c'est ce qui m'empeche de graver mon setup sur un CD

Bonjour javais un probleme du meme genre et jai tout decompose dans mon expression de base (jespere que cela pourra t'aider ou te donner des idees):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

' Choix du fournisseur de la Base de Données - pour Access - Microsoft jet OLEDB cnnADO.Provider = "Microsoft.jet.oledb.4.0"   ' Chemin de la Base de Données - ici le répertoire de l'application cnnADO.ConnectionString = App.Path & "\Gestion97.mdb"   ' Ouverture de la Base de Données cnnADO.Open   ' Pour relier la connexion ouverte à la commande cmdADO.ActiveConnection = cnnADO   ' Configuration de la conmande avec requete SQL cmdADO.CommandText = "SELECT * FROM Client"   ' Initialisation du Curseur Client rsADO.CursorLocation = adUseClient   ' Utilisation d'un Curseur Client Dynamique rsADO.CursorType = adOpenDynamic   ' Vérouillage de l'Enregistrement dès son accès rsADO.LockType = adLockPessimistic   ' Transmission de la commande à la méthode Open rsADO.Open cmdADO

---

J'ai suivi ta démarche après avoir déclaré la commande, le recordset et la connexion, il me dit que je n'ai pas spécifié de recordsource et qu'aucun texte de commande n'a été défini. Il m'affiche bien mon datagrid mais il reste vide.

Pourtant j'ai mon instruction SQL "select...from" et j'ai aussi le AdCmdText, je ne vois pas ce qui cloche =/

Pour la declaration c'est bien :

Code:

---

1 2 3

Dim cnnADO As New ADODB.Connection ' Pour la connection à la base de données Dim cmdADO As New ADODB.Command ' Pour la commande à la base de données Dim rsADO As New ADODB.Recordset ' Pour recevoir le résultat de la commande

---

Je regarde ce qui pourrai clocher d'autre

J'ai trouvé, j'avais laissé une connectionstring dans les propriétés et il exécutait celle ci.

Par contre, maintenant j'ai ma connexion qui semble faite (je n'ai aucun message d'erreur) mais comment afficher mes champs dans la datagrid ?

Avant dès l'ouverture de ma form, il me mettait à jour ma datagrid mais maintenant elle reste vide =/ j'ai essayé un refresh mais cela ne fait rien

tu as affecté le Datasource ?

Code:

---

Set DataGrid1.DataSource = rsADO

---

ton recordset renvoie-t-il des enregistrements ? (recordcount)

Arf, j'avais pas mis le "Set", merci beaucoup ca fonctionne !! :D

Pense a mettre un [Resolu] ;)