adresser une base de données avec un fichier vbscript

Version imprimable

salut, je cherche à réaliser un script en vbscript (donc .vbs) Le vbscript étant proche de l'asp, je pensais adresser ma table de cette manière:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub connect(sql)
  Set conn = Server.CreateObject("ADODB.Connection")
  conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                     & "SERVER=127.0.0.1;" _
                     & " DATABASE=data;" _
                     & "UID=***;PWD=****; OPTION=3"
  conn.Open
  Set rst = Server.CreateObject("ADODB.Recordset")
  rst.open sql,conn
End Sub
 
Sub chercher()
  sql = "SELECT * FROM tsyn_mails t WHERE Syn_MailQuotas = 'noquota';"
  connect(sql)
  do while not rst.eof
    body = "Nom: " & rst("Syn_MailDom") & " - Mail:" & rst("Syn_MailDes") & "@" & _
           rst("Syn_MailDom") & "<br>"
    rst.movenext
  loop
  response.write body
End Sub
 
chercher()

mais ca ne marche pas. L'objet server n'est pas accepté. Il ya une autre méthode pour adresser sa table si on passe par vbscript? A moins que ce ne soit pas possible?

10/08/2006, 16h50
pc75
Bonjour,

C'est normal, puisque ça ne tourne pas sur un serveur.

Il suffit de faire ça :
Code:

1 2 Set conn = CreateObject("ADODB.Connection")
10/08/2006, 17h14
boss_gama

avec ou sans la mention server, j'ai l'erreur access denied for user root@localhost, alors que j'execute mon script depuis le serveur. Mes informations de connexion sont correctes puisque tout mon site asp marche, et que je peux adresser la base de données directement avec ces memes infos. Une idée?

je reviens vers vous car ca ne marche toujours pas:

Code:

1
2
3
4
5
6
7
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                     & "SERVER=127.0.0.1;" _
                     & " DATABASE=data;" _
                     & "UID=****;PWD=*****; OPTION=3"
conn.Open    <- l'erreur se fait à l'ouverture
Set rst = CreateObject("ADODB.Recordset")

je n'arrive pas a savoir pourquoi, personne n'a d'idées?

16/08/2006, 14h19
Immobilis

Salut,
Comment utilises-tu ton fichier vbs (include)?
As-tu regardé là http://www.developpez.net/forums/showthread.php?t=890?

A+
16/08/2006, 14h42
boss_gama

je double clique dessus. il ne faut pas?
Sinon mon code marche si je rajoute server. devant mes chaines de connexion, et que je passe le fichier en asp. donc la chaine est valide, ou du moins valide pour l'asp. Il doit me manquer un petit truc pour le .vbs, mais je ne vois pas quoi...:?
16/08/2006, 15h26
Immobilis

Tu fais ce fichier pourquoi une appli ASP ou windows?
16/08/2006, 16h37
boss_gama

je fais juste un script qui adresse une base de données normalement utilisée par un intranet. L'utilisateur rentre des données dans l'intranet, et je lance mon script toute les semaines ou toute les 2 semaines pour vérifier certaines valeurs, et certains paramètres.
16/08/2006, 19h19
Immobilis

Il me semble que la question serait mieux résolue dans le forum VBSCRIPT.
Je déplace.