connexion sql 2005

**chauchs** · 22/04/2009, 18h40

Bonjour,

j'essai de faire une connexion à un serveur SQL2005 dans un vbs et j'ai un souci :
voici mon code et le résultat

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
On Error Resume Next
dim args
dim cnn
 
set args = wscript.arguments
IF args.count = 0 THEN
  msgbox "erreur"
end if
 
set cnn = CreateObject("ADODB.connection")
cnn.ConnectionString = "Driver={SQL Server};Server=" + args(0) + ";Database=master;Uid=" + args(1) + ";Pwd=" + args(2)
'msgbox cnn.ConnectionString
 
cnn.open
 
if err.count <> 0 then
  msgbox "Error # " & CStr(err.Number) & " " & err.Description
else
  msgbox "connection ok"
end if
 
cnn.close
set cnn = nothing

Error # 438 Cet objet ne gère pas cette propriété ou cette méthodes

donc a priori il ne comprend pas la méthode open

Merci de bien vouloir m'aider.

**orducom1** · 24/04/2009, 14h34

'lut

Du coté de MS il semble falloir passer des paramètres pour que ça fonctionne (dixit MSDN) :
http://msdn.microsoft.com/en-us/library/ms807027.aspx

Sinon y'a ça avec plein d'exemples (via Google

)
http://wwwedu.ge.ch/CPTIC/formation/...objetsado.html

Si ça peut t'aider ...

**chauchs** · 24/04/2009, 15h13

Bonjour,

merci pour ces liens mais cela ne change rien car le fait de passer des paramètres revient au même que de renseigner la chaine de connexion et d'ailleurs dans la doc microsoft, vers le bas, on trouve exactement le même code que moi (sauf que c'est en vb et pas vbs).

Donc je n'ai toujours pas de solutions

Le pire est que lorsque j'active mon msgbox pour voir le contenu de ma connectionstring, il m'affiche bien la bonne string donc c'est normalement que mon objet est bien créé ... NON?

Si quelqu'un a une idée ...
Merci.

**orducom1** · 24/04/2009, 16h01

Une idée, toute bête comme ça ...
Remplaces tes "+" par des "&" pour concaténer ta chaine de caractères ...

Code :

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

1
2
3
4
CONN_STRING_SCOPE = "DRIVER={Microsoft ODBC for ORACLE};UID=DBuser;PWD=DBpsswd;Server=DBserver"
 
Set myConn = createobject("adodb.connection")
myConn.Open CONN_STRING_SCOPE