Discussion :

[zoubli]

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

[BioLoGz]

Salut,

je ne sais pas si ça va t'aider mais voilà comment je fais personnellement pour utiliser une base SQL 2003:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
'*******************************************************************************************************************
' Routine qui ouvre la connexion à la base de données
'*******************************************************************************************************************
sub     open_bdd
    set odbfd = CreateObject("ADODB.Connection")                                                                            'Objet base de données access
    odbfd.Open ODBDSN                                                                                                          'Ouverture de la connexion
    if (Err.Number <> 0) then
        err_log "erreur", ODBDSN, "Impossible de se connecter à la base"
    end if
end sub

Voici ce que vaut ODBSN:

Code :

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

1
2
 
const	ODBDSN = "PROVIDER=SQLOLEDB;SERVER=mon_serveur;UID=usr_sha;DATABASE=ma_base;PWD=xxxx"

Fonction qui exécute une requête fournie en argument:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function        get_req(byval ssql)
    dim odbresult
 
    set odbresult = odbfd.Execute(ssql)                                                                                          'Exécution de la requête
    if (Err.Number <> 0) then
        err_log "erreur", ssql, "Impossible d'exécuter la requête"
    end if
    set get_req = odbresult
end function

[zoubli]

Merci pour cette aide. Je me connecte bien au serveur DB mais j'ai toujours cette meme erreur :
Line 23
Char 2
Object required : '[string: "select * from dbo.JT"]'

La variable est déclarée, c'est du string.
Je comprends pas du tout pourquoi, la meme syntaxe de code marche chez mon collègue. Pourquoi la requête est tronquée ds le message d'erreur ? (nom de table incomplet)

Si tu vois quelques chose, je suis preneur.

[AlainTech]

Code :

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

Set SQLQuery = "select * from dbo.JTR_matab"

Peux-tu me dire pourquoi un Set pour affecter une String?

[zoubli]

Merci pour ta remarque. Je suis débutant en VBS, loin d'avoir tout assimilé.
Je travaille avec la doc du net qui n'est pas légion par rapport au python, perl et autres.
Voici donc le code corrigé et qui fonctionne. Ma remarque va vers le mode de connection au serveur. Si je veux utiliser le mode de connection ODBC au lieu de OLEDB, me suffit-il de changer uniquement le Provider, dans la mesure ou j'ai créé l'entrée du serveur dans le DSN de mon poste ? (j'ai remplacé par ODBC mais j'ai une erreur
Pour parler d'un autre mode de connection, je sais que je ne peux utiliser le Provider=SQLNCLI car il n'est pas installé sur mon poste local

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
==========
 
Option Explicit
 
main 
 
Function SQL_connect()
	Dim connect
	Dim recst
	Dim connectState
	Dim SQLQuery
	Dim ConnectionString
	Dim get_reslt
 
	Set connect = createobject("ADODB.Connection")
	ConnectionString = "Provider=SQLOLEDB; Data Source=SRVPROD1; Initial Catalog=caischdb; uid=xx; pwd=xxx"
	connect.Open ConnectionString
	If connect.State = 1 Then
		connectState = "open"
		MsgBox "Connected to database :"
	Else
		connectState = "closed"
		MsgBox "Not connected to database :"
	End If
	'Construction de la requete SQL
	SQLQuery = "Select * from dbo.JTR_matab"
	'Ouverture du recorset et execution de la requete sql
	Set recst = Connect.Execute(SQLQuery)
	If (Err.Number <> 0) Then
		err_log "Erreur", SQLQuery, "Impossible d'exécuter la requête"
	End If
	On Error Resume Next
	recst.MoveFirst
	Do While Not recst.eof
                       MsgBox "Result :" & recst("jtr_scdn") & " , " & recst("jtr_name")
	          recst.MoveNext
	Loop
 
	recst.Close
	connect.Close
	Set connect = Nothing
End Function
 
Function main()
	Call SQL_connect
End Function