Discussion :

[gg9595]

salut tt le monde.

Voilà j'ai un problème avec mon code.

J'essaie de me connecter à une base de donnée MS SQL Server 2000 avec VB.
Une fois connecté, j'essaie de parcourir une table mais le recordSet reste désespérement vide...
Donc je voudrais savoir, comment je peux tester si il est déjà bien connecté ?

voici le code :

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
17
18
19
20
21
22
23
24
25
26
27
28
 
 
Dim oConn As ADODB.Connection
Dim oRS As ADODB.Recordset
 
'Création connexion
Set oConn = New ADODB.Connection
'oConn.Open "Driver={SQL Server}; Uid=" & tbLogin & "; Pwd=" & tbMdp & "; Server=" & tbServeurSQL & ";Database=" & tbNomBaseSQL & ";"
 
oConn.Open "Provider=SQLOLEDB;Data Source=" & tbServeurSQL & ";User ID=" & tbLogin & ";Password=" & tbMdp & ";Initial Catalog=" & tbNomBaseSQL & ";"
 
' Création recordset
Set oRS = New ADODB.Recordset
 
oRS.CursorLocation = adUseClient
oRS.Open "SELECT * From T_Employee", oConn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
 
 
 Dim inter As Integer
 inter = oRS.RecordCount
 
 
 While oRS.EOF <> True
    MsgBox (oRS!Employee_key)
 
    oRS.MoveNext
 
 Wend

[SQLpro]

Faites une requête "bidon", par exemple un SELECT @@VERSION. Si vous n'avez pas d'erreur et un retour d'information, alors vous êtes connecté.

Utilisez aussi USE mabase pour vous positionner sur la bonne base. Attention dans les paramètres de votre chaine de cnnexion il ne doit pas y avoir de blancs.

A +

[gg9595]

Faites une requête "bidon", par exemple un SELECT @@VERSION. Si vous n'avez pas d'erreur et un retour d'information, alors vous êtes connecté.

Utilisez aussi USE mabase pour vous positionner sur la bonne base. Attention dans les paramètres de votre chaine de cnnexion il ne doit pas y avoir de blancs.

A +

Je viens d'essayer ceci :

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
 
 
 
Dim oConn As ADODB.connection
Dim oRS As ADODB.Recordset
 
' Création connexion
Set oConn = New ADODB.connection
oConn.Open "Provider=SQLOLEDB;Data Source=" & tbServeurSQL & ";User ID=" & tbLogin & ";Password=" & tbMdp & ";Initial Catalog=" & tbNomBaseSQL & ";"
 
' Création recordset
Set oRS = New ADODB.Recordset
 
oRS.CursorLocation = adUseClient
oRS.Open "SELECT @@VERSION", oConn, adOpenKeyset, adLockOptimistic, adCmdTableDirect

Et cela me renvoie une erreur : Table does not exist ... je ne comprend pas pourquoi, il n'y a meme pas de table dans la requete !!

[gg9595]

bon ça marche, au bout d'une journée de bidouille, et le plus frustrant c'est que je ne vois pas vraiment où cela coincait.

Enfin voilà résolu

Merci pour la réponse en tout cas