Discussion :

[pierre2410]

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 :

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
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

[ProgElecT]

Essais de declarer tes variables db et Action comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pierre2410]

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 ?

[La Praline]

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

Quelle erreur? Quel endroit ??

Cordialement

[Mat_76]

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é.

[pierre2410]

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

[La Praline]

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

Etrange...

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

[pierre2410]

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

[La Praline]

Bonjour,

Avant de mettre Norton ou Zone Alarm à la poubelle et de désinstaller Avast ou AVG , 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 ), peut être que ton problème vient tout simplement de là...


Cordialement