[VBS] sql récupérer le résultat d'une requeteRésolu

Question

Bonjour à tous!
Je cherche à récupérer le résultat d'une requête SQL en vbs mais il doit me manquer quelque chose  
error - "Fin d'instruction attendue"
Le insert fonctionne

Set mConnection = CreateObject("ADODB.Connection")
mConnection.Open "Provider=SQLOLEDB.1;Data Source=CINFPC22\SQLEXPRESS;Initial Catalog=BDCBTEST1;Integrated security=SSPI"

mConnection.Execute "INSERT...."

Set mRecordset = CreateObject("ADODB.Recordset")set mRecordset mConnection.Execute"Select * from Utilisateurs where ID_Connexion '12'"Comment puis je récupérer le résultat de la reque pour l'afficher?

Je tiens a préciser que j'ai déja chercher sur google avant de vous consulter.
Merci beaucoup!.

Renfield · Answer

la méthode Execute de ta connection ne renvoie pas de donnée.
elle sert pour faire des INSERT INTO, des UPDATE, DELETE et autres requetes d'action.

Il te faut utiliser la méthode OpenRecordset

par la suite, il te suffit de manipuler ton recordset.

a noter que dans ta requete SQL, tu as mis ='12'
gaffe, si ce champ est déclaré en tant que numérique, il ne faut pas mettre de quotes (uniquement là pour baliser les chaines de caracteres).

tu fais, de plus un premier Set mRecordset = CreateObject(...)
puis, de suite un autre Set mRecordset = 

ton recordset vide, que tu as créé en premier est détruit directement, cette etape est inutile.

en résumé:

Set mConnection = CreateObject("ADODB.Connection")
mConnection.Open "Provider=SQLOLEDB.1;Data Source=CINFPC22\SQLEXPRESS;Initial Catalog=BDCBTEST1;Integrated security=SSPI"

mConnection.Execute "INSERT...."

set mRecordset = mConnection.OpenRecordset("Select * from Utilisateurs where ID_Connexion=12")

MsgBox mRecordset.Fields("Nom")

remifalcon · Answer

Yes merci pour ton aide je sens que ça avance bien la

Juste lors de l'exécution de la ligne 

set mRecordset = mConnection.OpenRecordset("Select * from Utilisateurs")

 J'ai droit à une petite erreur  "Argument de type incorrect.."  source  ->ADODB

J'ai testé ma requête sur le serveur sql directement ça tourne.

Et sinon mRecordset ça devient une sorte de tableau du coup si la requête renvoi plusieurs champ?
MsgBox mRecordset.Fields("Nom")   -> "Nom" représente quoi?

Et tout cas merci encore tu m'avance bien là

Renfield · Answer

pour l'erreur, a voir si la requête est correcte (voir cette histoire de séparateur, pour la valeur 12)

Recordset, une sorte de tableau... oui, si l'on veux.

"Nom", c'est le nom du champ a recupérer, dans l'enregistrement (ligne) actuel

voir après les multes exemples, de manipulation ADO... (et y'en a plein, vraiment)

voir MoveNext, EOF, MoveFirst, RecordCount...

remifalcon · Answer

Ok je vais regarder
Merci beaucoup pour ton temps en tout cas.

remifalcon · Answer

Re moi 
Bon j'ai regardé pour mon erreur "Argument de type incorrect.."  source  ->ADODB
La syntaxe de ma requête sql est valide c'est sur

J'ai regarder sur google  j'ai trouvé qu'il fallait peut être inclure   ADOVBS.INC mais bon en vbs on peut pas inclure grand chose je pense.

Donc le code qui bloque c'est juste la 3eme ligne et le je ne vois vraiment plus pourquoi

Set mConnection = CreateObject("ADODB.Connection")
mConnection.Open "Provider=SQLOLEDB.1;Data Source=......."

set mRecordset = mConnection.OpenRecordset("SELECT LoginUser FROM Utilisateurs")    <-

Je cherche encore si quelqu'un à une idée.

Renfield · Answer

voir sur 
http://www.connectionstrings.com/

remifalcon · Answer

re  -No offense sir

J'ai trouvé la solution , il fallait faire un execute via un objet ADODB.Recordset

requete = "SELECT * FROM Utilisateurs"
 

set cn=CreateObject("ADODB.Connection")
set rs=CreateObject("ADODB.Recordset")

cn.Open "Provider=SQLOLEDB.1;Data Source=CINFPC22\SQLEXPRESS;Initial Catalog=BDCBTEST1;Integrated security=SSPI"

set rs = cn.Execute (requete)

Voilou

Renfield · Answer

:/ ravi de voir que ca fonctionne, mais ca me laisse coi

cs_akaii · Answer

Est-ce que l'un de vous saurait comment faire pour mettre le contenu du rs dans le un fichier CSV ?

Renfield · Answer

qu'est-ce qu'un fichier CSV ?

un enregistrement par ligne ; des champs qui se suivent, séparés par des ";"

donc lorsque l'on sait récupérer un champ, et se déplacer dans les enregistrements...

Do Until oRs.EOF
    Print #1, oRs.Fields("Nom") & ";" & _
              oRs.Fields("Prénom") & ";" & _
              oRs.Fields("Adresse1") & ";" & _
              oRs.Fields("Adresse2") & ";" & _
              oRs.Fields("Adresse3") & ";" & _
              oRs.Fields("CP") & ";" & _
              oRs.Fields("Ville") & ";" & _
              oRs.Fields("CodeCivilité")
    oRs.MoveNext
Loop

[VBS] sql récupérer le résultat d'une requete

10 réponses

Votre réponse

Discussions similaires