connection a sql serveur dans une appli vb6

bonjour a tous,
j'ai une appli vb qui lance des requetes sous oracles, pour cela, ca fonctionne bien mais j'ai une requete a lancer sur une base sqlserveur et malgré des sources trouvées sur le net pour la connection je n'y arrive pas, de + je reprend une applis vb créé par qqun et je connais tres peu le vb. Voici ce que jai mis (au sein d'une fonction ) :

Code:

---

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

Dim Action As Recordset Set Action = New ADODB.Recordset Dim Chemin_SqlServer, StrConnectionDocuments As String Dim requete As String Set db = New Connection   Chemin_SqlServer = "\\BASE" StrConnectionDocuments = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Documents" & ";Data Source=" & Chemin_SqlServer   'Ouverture de la connexion a la base db.CursorLocation = adUseServer db.Open StrConnectionDocuments   'requete = "Select * From matable" 'Action.Open requete, db, adOpenStatic, adLockReadOnly 'Action.Close

---

en compilant ceci, il mindique que Recordset de la ligne Dim Action As Recordset n'est pas defini par l'utilisateur ...
pourriez vous m'aider svp
merci d'avance
pierre

Essais de declarer tes variables db et Action comme cela

Code:

---

1 2	Dim db As New ADODB.Connection Dim Action As New ADODB.Recordset

---

ca ne marche toujours pas, il affiche le meme message d'erreur, pourtant jai cherché dans un livre vb, et on peut voir qu'on peut declarer un objet recordset de la meme maniere dont je lai fait, je comprend pas. je le declarre dans une fonction de rafraichissement d'un comboBox, est ce ca peut venir de ca ?

sinon est ce que qqun pourrait me proposer un petit bout de code qui fonctionne pour me connecter a la base sqlserveur ?

Citation:

---

Envoyé par pierre2410

ca ne marche toujours pas, il affiche le meme message d'erreur

---

Quelle erreur? Quel endroit ??

Cordialement

Citation:

---

en compilant ceci, il mindique que Recordset de la ligne Dim Action As Recordset n'est pas defini par l'utilisateur ...

---

Tout bêtement, as-tu fait référence à la librairie "Microsoft ActiveX Data Objects 2.x Library" dans ton projet ?

Dans le cas contraire, vas dans Projet -> Réferences...
Cherche la librairie et coche la case à coté.

quand je vais dans projet/references il me met "erreur d'acces a la base de registre"

praline, il maffiche les memes erreurs pour ces lignes :
Dim db As New ADODB.Connection
Dim Action As New ADODB.Recordset

Citation:

---

Envoyé par pierre2410

quand je vais dans projet/references il me met "erreur d'acces a la base de registre"

---

Etrange...

Citation:

---

Envoyé par pierre2410

praline, il maffiche les memes erreurs pour ces lignes :
Dim db As New ADODB.Connection
Dim Action As New ADODB.Recordset

---

Autant pour moi je me suis aperçu après que tu l'avais déjà marqué !


... Heu... Par tout hasard, il m'avais sembler lire quelques chose de ce genre une fois, tu es administrateur sur ton ordinateur ??
Peu être que je me fourvoit complètement mais si ma mémoire est bonne ca peut jouer....


Cordialement

ben oui pourtant je suis bien administrateur de mon ordinateur, je me demande si ce n'est pas une histoire de firewall ou antivirus au niveau du reseau

Bonjour,

Avant de mettre Norton ou Zone Alarm à la poubelle et de désinstaller Avast ou AVG :aie: , regarde voir ce site qui répertorie les différentes chaines de connexion...

Si j'en crois ce que je vois, ta chaîne est pour un programme VB.NET... Hors tu as bien dis que tu bossais sous VB6 n'estce pas ??

... Jète un oeil donc à ce site (merveilleux site soit dis en passant:king: ), peut être que ton problème vient tout simplement de là...


Cordialement