Requete a partir d'un fichier text

Version imprimable

je veut developper un programme en VBS je suis debutant ;connecter a une base de donner sql serveur ,lire un fichier text qui contient les noms de tous mes table , est executer ma requete ,l'ai resussi a me connecter a la bdd mais il execuete pas la requete voila l'erreur

Erreur de compilation Microsoft VBScript: Fin d'instruction attendue

Code:

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
Const adOpenStatic = 3
Const adLockOptimistic = 3
 
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
 
objConnection.Open _
    "Provider=SQLOLEDB;Data Source=FRA;" & _
        "Persist Security Info=true;Initial Catalog=DB_TEST;" & _
             "User ID=USR;Password=USR;"
 
 
 
Dim fso  :          Set fso = CreateObject("Scripting.FileSystemObject")
Dim ObjTextStream : Set ObjTextStream = Fso.OpenTextFile("D:\Chargement_table\commande_vbs\teste\requete.txt", 1, False)
Dim strtmp 
Dim  matable as String  
 
Do While Not ObjTextStream.AtEndOfStream
strtmp = Split(ObjTextStream.ReadAll, vbCrLf)
For i = 0 To UBound(strtmp) 
 
    matable=strtmp(i)
    objRecordset.Open " truncate table matable " , objConnection, _
    adOpenStatic, adLockOptimistic, adCmdText
Next
Loop
ObjTextStream.Close
Set ObjTextStream = Nothing
Set Fso = Nothing 
objConnection.Close

26/05/2008, 13h45
marco_fot_hxc

euh... c'est pas Execute plutot ?
Salut,
Tu devrais aller jeter un coup d'oeil sur cette page : http://florian.developpez.com/asp/?page=page_6#LVI-B

Si je ne me trompe pas, ce que tu cherche à faire, c'est executer une commande SQL et non récupérer un résultat (truncate ne "renvoit rien", c'est une commande de suppression), donc, en toute logique, il faudrait utiliser quelque chose comme :
Code:

1 2 objConnection.Execute("truncate table ma_table")
Fouille dans cette direction :mrgreen:

Bon courage et fais signe si ça marche

-M@rc0-
26/05/2008, 16h13
smain_inf

oui en faite je voulez recuperer le nom de ma table a partir d'un fichier texte apres j'execute la commande "truncate table nom de la table recuper" mais ca passe pas ,j'ai esseyé ta commande mais ca marche pas merci
26/05/2008, 16h20
marco_fot_hxc
Euh... 8O
j'avais pas vu que matable c'était une variable définie plus haut... pour utiliser une variable dans une de tes requêtes, il me semble bien que tu ne peux pas la laisser dans les guillemets comme tu le fais. Je te conseil de concaténer la valeur récupérer dans ton fichier à un string qui contient le début de ta requête. Un truc dans ce goût :
Code:

1 2 3 4 5 Dim ma_requete ma_requete = "truncate table " & matable & ";" objConnection.Execute(ma_requete)
See you

-M@rc0- :mrgreen:
26/05/2008, 18h07
ced600

Citation:

j'avais pas vu que matable c'était une variable définie plus haut... pour utiliser une variable dans une de tes requêtes, il me semble bien que tu ne peux pas la laisser dans les guillemets comme tu le fais. Je te conseil de concaténer la valeur récupérer dans ton fichier à un string qui contient le début de ta requête

Exactement, et cela m'avait echappé aussi. D'ailleurs c'est écrit dans la FAQ VBS de ce forum ici.
D'ailleurs, au vu de ton erreur de niveau de débutant (ce qui n'est pas péjoratif), je te conseillerais de lire la FAQ. Elle contient un bon nombre de choses très utile lorsque l'on est débutant. Et même pour les plus expérimenté en tant qu'aide mémoire.
Hé oui plus on veillit, plus la mémoire ..... Et malheuresement, l'expérience ne viens qu'avec le temps ;)