Discussion :

[smain_inf]

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 :

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

[marco_fot_hxc]

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 :

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

1
2
 
 objConnection.Execute("truncate table ma_table")

Fouille dans cette direction

Bon courage et fais signe si ça marche

-M@rc0-

[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

[marco_fot_hxc]

Euh...
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 :

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

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

See you

-M@rc0-

[ced600]

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