Adodc et Recordset

Bonjour,

J'ai développé une application dans laquelle j'ai eu recours à plusieurs controles Adodc.

Jusqu'à présent j'avais renseigné les infos sur les tables correspondantes dans les propriétés de ces controles Adodc.

Seulement j'aimerais désormais que mon appli fonctionne quelque soit le répertoire où se trouve mon .exe

Je me lance donc dans la suppression des infos dans les propriétés des controles Adodc pour les remplacer par des lignes de code afin que tout se fasse dynamiquement...

Cependant je rencontre des problèmes lorsque je veux utiliser le recordset associé, celui ci semblant ne pas exister...

Voici mon code, que dois je rajouter pour pouvoir continuer à utiliser des fonctions comme Adodc1.Refresh, Adodc1.Recordset.MoveFirst, etc...

Code:

---

1 2 3 4 5 6 7 8 9 10

With Adodc1 .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaDb & ";Persist Security Info=False" .recordSource = "SELECT * FROM Auteurs ;" End With   Set Nom.DataSource = Adodc1 Nom.DataField = Adodc1.Recordset.Fields(0).Name   (...)

---

Merci d'avance de l'aide que vous pourrez m'apporter !!!

Bonjour,

J'ai essayé en enlevant un des controles Adodc et en le remplacant complètement par du code :

Code:

---

1 2 3 4 5 6 7 8 9

Set Adodc1 = New ADODB.Connection Adodc1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & MyDb & ";Persist Security Info=False" Set RsAdodc1 = New ADODB.Recordset With RsAdodc1 .CursorLocation = adUseClient .ActiveConnection = Adodc1 .Open "SELECT * FROM Auteurs ;", , adOpenStatic, adLockOptimistic, adCmdText End With

---

Non seulement j'ai dû modifier beaucoup de code par la suite en raison de l'appellation différente du Recordset mais en plus cela ne fonctionne pas parfaitement.
En effet, lorsque je change de form et que je reviens à ma form principal, la connexion Adodc1 ne réagit plus, je ne peux plus me ballader dans les enregistrements...

J'aimerais donc vraiment si possible rester avec mes controles Adodc physiquement présents sur ma form tout en les configurant dynamiquement au lancement de mon appli...

Est ce possible ? S'il vous plait aidez moi :(

Merci.

un peu de lecture : http://vb.developpez.com/cours/#fichiers_bd

Il manque pas le nom de la connection ?

Code:

---

RsAdodc1.Open "SELECT * FROM Auteurs", nom de la connexion, adOpenStatic, adLockOptimistic, adCmdText

---

J'ai déjà lu tout ca et je n'ai trouvé nul part comment bien configurer dynamiquement un controle Adodc positionné sur ma feuille afin d'utiliser son Recordset, ce que je souhaiterais faire plutôt que d'utiliser la méthode New ADODB.Connection, New ADODB.Recordset...

Dans un des tutos on ne parle que de la configuration du contrôle via ses propriétés, donc le chemin de la bdd est figé.

Dans un autre on explique ses défauts.

Et c'est tout je crois bien.

Meme si c'est pas ce qu'il y a de mieux, j'aimerais vraiment utiliser les controles Adodc...

Et pour le nom de la connection il est indique juste au dessus nan Gaetch ?

Ben tu mets :

Code:

---

.Open "SELECT * FROM Auteurs ;", , adOpenStatic, adLockOptimistic, adCmdText

---

Mais entre des deux virgules faut mettre le nom de ta connexion c'est à dire Adodc1 ou alors mettre le .activeconnection après, non ?

Nan j'ai rien dit désolé :/ je viens de tester chez moi je pensais que ça écrasait l'active connection quant tu précisait rien dans le .Open, désolé...

Mais je viens de relire le post et je me rends compte que tu parles de connection et recordset comme des contrôles, càd comme un label que tu place sur ta feuille ?? Perso moi j'utilise beaucou les recordset et une connection mais je savais même pas que ça pouvait être des contrôles ! Je fais tout dans le code et ça marche nikel.

Tiens v'là un bout de mon code, le lancement de l'appli ou j'initialise ma connexion et j'utilise les recordset pour identifier l'utilisateur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Serveur = GetValue(App.Path & "\" & App.EXEName & ".ini", "Database", "DB_Server") Base = GetValue(App.Path & "\" & App.EXEName & ".ini", "Database", "DB_Name") Login = NTDomainUserName()   Set cn1 = CreateObject("ADODB.Connection") Set rs1 = CreateObject("ADODB.Recordset")   cn1.Open "Provider = SQLOLEDB.1 ; Integrated Security = SSPI ; Persist Security Info = False ; Initial Catalog = " & Base & " ; Data Source = " & Serveur   rs1.Open "SELECT * FROM Int_Employee WHERE E_Login = '" & Login & "'", cn1, 3, 3 If (rs1.RecordCount > 0) Then ID = rs1.Fields("E_ID") Nom = rs1.Fields("E_Name") Dept = rs1.Fields("D_ID") End If rs1.Close

---

J'ai fait toute mon appli en posant des contrôles Adodc (ils ressemblent aux DataControls) et en les liant à la bonne table dans les propriétés de ces contrôles.

Les Recordsets associés sont créés automatiquement et je les utilise via Adodc1.Recordset.(ce que tu veux faire)

Si je dois passer uniquement en code je vais devoir modifier la quasi totalité de mon code ce qui me rebute un peu, surtout si il existe une méthode simple pour gérer dynamiquement les controles Adodc et leur Recordset associé...

Et tu ajoutes auoi comme composant pour pouvoir utiliser ça ?

Microsoft ADO Data Controls 6.0 (SP 6) (OLEDB) --> MSADODC.OCX

Et le contrôle ressemble à un contrôle Data sauf qu'il a une sorte de cylindre jaune dessus...

Okay je vois j'ai pas trop le temps de tester là mais pour ouvrir un recordset ce serait pas adodc1.recordset.open(...) plutot que ce que t'as écrit plus haut ?

Bah il me dis que "Object variable or with block variable not set"...

Bon, je crois avoir résolu mon problème.

Je reste avec mes controles Adodc, je ne les configure pas via du code mais toujours via leurs propriétés sauf que je supprime tout le chemin C:/Documents and Settings/etccc pour ne laisser que db1.mdb après DataSource=

Apparemment VB comprend que cela signifie que la bdd est dans le même répertoire que l'exe donc c'est cool...