Requête SQL sans résultat en VBA (ADO)

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Requête SQL sans résultat en VBA (ADO)

Peanuty

Salut,

j'ai un bête (?) code VBA qui effectue une requête en base.
Quand j'exécute le SELECT avec SQL Server j'ai bien un résultat, en revanche en VBA/ADO sous Excel, j'ai "<3021, BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel.>" si j'essaye de lire le résultat.

Code :

Dim cnn As New ADODB.Connection
cnn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=" & bd & ";User ID= " & login & ";Password=" & mdp & ";Trusted_Connection=False"
req_gr_id = "select GRP_ID from GROUPE where GRP_NOM = '" & entity & "'"
Dim rs As New ADODB.Recordset
If rs.State <> adStateClosed Then rs.Close
rs.ActiveConnection = cnn
rs.Open req_gr_id, cnn
'rs.MoveFirst
GrPeres = rs(0)
rs.Close

D'ailleurs rs.RecordCount = -1 après exécution de cette requête.

:??:

Publicité

Peanuty

J'ai essayé avec une autre requête, sur une autre table et une autre base, même erreur.

A noter que j'arrive dans le même programme, à appeler des procédures stockées sans problème (avec des cmd.Execute à la place des Recordset bien sûr).

J'ai essayé de replacer le Recordset par cmd.Execute du coup :

Code :

With cmd
.ActiveConnection = cnn
.CommandType = adCmdText
.CommandText = "select GRP_ID from GROUPE where GRP_NOM ='" & entity & "'"
.Execute
GrPeres = .Parameters(0).Value
End With

mais c'est pareil : 0 résultat, alors que si je fais un copier-coller du .CommandText pour l'exécuter dans SQLServer ça marche !

Donc je suppose que ce n'est pas un problème au niveau de la requête elle-même mais plutôt au niveau des paramètres de la connexion ??? :cry:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Requête SQL sans résultat en VBA (ADO)

Sujets relatifs
Recuperer resultat d'un select dans un tableau	Gestion de document Word via macro VBA excel
Calculer la différence entre deux dates (VBA)	Toute petite macro VBA pour enregistrement
Help Me !! VBA 2007 impression et ouverture automatique de PDF	Requête Firebird qui passe pas
optimisation: affichage de photos : readdir ou requete sql ?	Probléme commande SQL sous access
[VBA-Excel] Protéger une partie de la feuille par Macro
Plus de sujets relatifs à : Requête SQL sans résultat en VBA (ADO)

Page générée en 0.049 secondes