Discussion :

[boss_gama]

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 :

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
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?

[pc75]

Bonjour,

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

Il suffit de faire ça :

Code :

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

1
2
 
Set conn = CreateObject("ADODB.Connection")

[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?

[boss_gama]

je reviens vers vous car ca ne marche toujours pas:

Code :

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

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?

[Immobilis]

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

A+

[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...

[Immobilis]

Tu fais ce fichier pourquoi une appli ASP ou windows?

[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.

[Immobilis]

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