Salut vous tous,
Je tente d'accéder a SQL serveur via un VBS. J'ai cherché sur le net et tenté d'executer ce script. Je travaille sur mon poste avec un acces distant au serveur. Le DSN sur la base est créé sur mon poste, la connexion est ok.

Si quelqu'un sait y voir clair sur ce bout de code, merci de votre aide.

J'ai plusieur erreur VBS et je bloque sur celle la :
Ligne 22 (Set SQLQuery = ...) --> objet requis : [string:"select * from dbo.JTR_matab"]

Voici le script :

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
28
29
30
Option Explicit
 
main 
 
Function SQL_connect()
	Dim connect
	Dim recst
	Dim connectState
	Dim SQLQuery
 
	Set connect = createobject("ADODB.Connection")
	connect.ConnectionString = "Provider=SQLOLEDB; Data Source=SRVPROD; Initial Catalog=caischdb; uid=xx; pwd=xxx"
	connect.Open
	MsgBox "connect :" & connect
	If connect.State = 1 Then
		connectState = "open"
	Else
		connectState = "closed"
	End If
	Set recst = CreateObject("ADODB.Recordset")
	'Construction de la requete SQL
	Set SQLQuery = 	"select * from dbo.JTR_matab"
	'Ouverture du recorset et execution de la requete sql	
	recst.Open SQLQuery,connect,5,5
	connect.Close
End Function
 
Function main()
	Call SQL_connect
End Function