Accès Base de données en VBScript SQL Server

Bonjour,

Je souhaiterai accéder (lire) à une table dans une base de données SQL Server en VBScript. Ces données seront ensuite extraites et comparées avec des données sous Exchange, et seront insérées toujours via VBS.
Cependant, je pensais utiliser la librairie ADO mais je développe sous notepad++ comme c'est du scripting et donc je ne peux pas faire de référence à cette librairie dans le menu "projet->référence...." comme sous VB express puisque c'est notepad++ !:roll:

Je me demandais donc comment faire référence à ADO ? cela est-il possible ?
Ou alors existe -t-il un IDE libre qui me permette d'y faire référence ?

Sinon quelle méthode pour me connecter à ma base ?

J'ai fais quelque recherche sur le net mais tous évoque la solution de référencement sous un IDE comme VB express ou VB6.:(

Merci de votre aide !;)

Bonjour,

Une piste :

Code:

---

1 2 3 4 5 6 7 8 9

Drv = "driver={SQL Server};" & "server=AdresseIp;uid=NomUser; pwd=Password; database=NomBase" txtSQL = "" txtSQL = txtSQL & "SELECT * from MaTable " txtSQL = txtSQL & "order by LeChamp " Set rs = CreateObject("ADODB.Recordset") rs.Open txtSQL, Drv if not rs.EOF then ..................

---

Merci pour cette réponse :ccool: je vais tester de ce pas ! J'étais parti justement sur quelque chose dans ce genre...on va voir !

Bon ça ne marche pas...il me dit erreur sur la ligne :
Set rs = Server.CreateObject("ADODB.Recordset")

Erreur : objet requis 'Server'

Bon j'ai refais des essais je vous post mon code pour voir si je fais correctement les choses...(je n'ai pas l'habitude de programmer donc soyez indulgent merci !)j'attends vos explication!

Code:

---

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

'définition de la connexion Set Database_Ref = CreateObject("ADODB.Connection") Database_Ref.Open("Driver=" & strDriver & ";" & _ "Server=" & strServeur & ";" & _ "Database=" & strDataBase & ";" & _ "Uid=" & strUid & ";" & _ "Pwd=" & strPwd & ";")   'definition de la Requete selection strSql = "SELECT NUMMATRICULE FROM TablePlanning"   'execution de la requete Database_Ref.Execute strSql   'ouverture de l'enregistrement set rs = Database_Ref.openRecordset(strSql)   'si au moins un enregistrement existe alors on stocke la valeur du champ 'NUMMATRICULE dans la variable strMatricule If rs.recordCount <> 0 Then strMatricule = rs.field("NUMMATRICULE") end If   'on affiche le résultat dans une box MsgBox (strMatricule)   'on ferme rs.close

---

Voila. Sinon j'ai voulu déclarer des variables comme en VBA en faisant par exemple
Dim rs As Recordset

eh bien ça me met une erreur du style "fin instruction attendue sur la ligne de déclaration de variable...est ce normal ?

Merci

Re,

Après la fermeture de ton recordset, il faut détruire l'instance :

Code:

---

1 2	Set Database_Ref = Nothing

---

En VbScript, les variables ne sont pas typées.

Ok merci ! Je l'ai rajouté ! En revanche j'ai une erreur sur :
set rs = Database_Ref.openRecordset(strSql)

Il me dit à l'écran :
Erreur : "les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres."
Code : 800A0BB9
Source : ADODB.Connection

ça veut dire quoi ?A quoi ça correspond ?

Re,

Et si tu utilises le code de mon 1er message ?

Re ! Bon j'ai un peu changer de méthode et cette fois ça marche !!! :D

Donc je poste le code si ça intéresse quelqu'un...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim strConnection, conn, rs, strSQL   'strConnection = "Driver={SQL Server};Server=SQLServerName;" & _ '"Database=DBaseName;Uid=sa;Pwd=password;"     Set conn = Wscript.CreateObject("ADODB.Connection") conn.Open strConnection   Set rs = Wscript.CreateObject("ADODB.recordset") 'strSQL = "SELECT * FROM TablePlanning" strSQL = "SELECT NUMMATRICULE FROM TablePlanning" rs.open strSQL, conn, 3,3   rs.MoveFirst strMatricule = rs.fields("NUMMATRICULE")   MsgBox (strMatricule)   rs.Close Set rs = Nothing   conn.Close Set conn = Nothing

---

Et voila ! merci pour votre aide !

C'est gentil de poster le code final qui fonctionne. ça m'est très utile :ccool:

Salut,

merci pour le code, c'est presque ok pour moi seulement j'ai un msg d'erreur !

Code:

---

1 2	Objet requis 'Wscript'

---

Si vous avez des idées merci de les poster

Elle fonctionne parfaitement chez moi, Wscript est reconnu par Windows 7 par défaut.

Salut ,

est ce que vous savez comment se connecter en sysdba depuis vbscript ? j'ai essayé pas mal de truc impossible de trouver... :/