Discussion :

[little_titi]

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]

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]

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]

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

Erreur : objet requis 'Server'

[little_titi]

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]

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.