[XL-2003] Requête SQL sans résultat en VBA (ADO) [Résolu]

[Peanut]

Bonjour,

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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.

[pc75]

Bonjour,

Et comme ça ?

Code :

1
2
 
req_gr_id = "select GRP_ID from GROUPE where GRP_NOM = 'entity'"

[Peanut]

Merci, mais c'était juste une mauvaise retranscription dans mon post en voulant simplifier, le problème n'est pas là. (j'ai corrigé le post)

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 :

1
2
3
4
5
6
7
8
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 ???

[jfontaine]

Bonjour,

As tu essayé en spécifiant le nom de la base

Code :

cnn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=" & bd & "; DATABASE = MABASE ;User ID= " & login & ";Password=" & mdp & ";Trusted_Connection=False"

Ou dans la requête

Code :

.CommandText = "select GRP_ID from MABASE.dbo.GROUPE where GRP_NOM ='" & entity & "'"

[Michel_M]

Bonjour

peut-^tre (...) supprimmer trusted connection

source
http://www.connectionstrings.com/sql-server#p6

[Michel_M]

Bonjour

peut-^tre (...) supprimer "trusted connection"

source
http://www.connectionstrings.com/sql-server#p6

[Peanut]

Merci à vous 2, c'est la 2e réponse de jfontaine qui est la bonne : ma requête ne fonctionne que si j'indique base.dbo.table dans la requête. Le nom de la base dans la chaîne de connexion ne suffit pas (contrairement aux appels de procédures stockées bizarrement).

Et s'est greffé à ça un 2e problème que j'ai fait apparaître en essayant de comprendre le 1er :
j'avais ajouté un test "if rs.RecordCount > 0" pour ne pas planter le programme à chaque passage mails il retourne toujours -1 !
Du coup, même après correction du 1er problème, je ne récupérais jamais les résultats de mon SELECT.
D'après http://support.microsoft.com/kb/194973/en-us c'est un problème connu : j'ai donc ajouté "adOpenStatic" (même si je n'ai pas bien compris sa signification ) et ça fonctionne.

[jfontaine]

Il me semble qu'avant le RecordCount il faut faire un MoveLast.
C'est a tester