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

**little_titi** · 21/01/2010, 15h04

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++ !

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 !

**pc75** · 21/01/2010, 16h04

Bonjour,

Une piste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
..................

**little_titi** · 21/01/2010, 16h13

Merci pour cette réponse

je vais tester de ce pas ! J'étais parti justement sur quelque chose dans ce genre...on va voir !

**little_titi** · 21/01/2010, 17h05

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

Erreur : objet requis 'Server'

**little_titi** · 21/01/2010, 17h46

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 :

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
'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

**pc75** · 22/01/2010, 08h22

Re,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set Database_Ref = Nothing

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

**little_titi** · 22/01/2010, 09h08

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 ?

**pc75** · 22/01/2010, 10h20

Re,

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

**little_titi** · 22/01/2010, 10h23

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

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

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
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 !