Un peu de silence s'il vous plait...lol
J'ai dans des fichiers texte des requêtes SQL (qui sont justes).
je voudrais via vb6 lancer ces requetes.
J'ai fait le lien avec ma base de données.
Code :
- Dim rec As New ADODB.Recordset
- Dim Chemin As String
- Dim ligne As String
- Dim Fichier As String
- Dim VarBuffer As String
- Dim ObjetText As New FileSystemObject
- Dim Fil As File
- Dim i As Integer
- 'Variable TextStream du FSO
- Dim TStreamText As TextStream
- Set ObjetText = CreateObject("Scripting.FileSystemObject" )
- ObjetText.OpenTextFile ("D:\Test Lancement auto\Categories\Mensuel\01-Tables\01-Tables_categ.client5.sql" )
- Set Fil = ObjetText.GetFile("D:\Test Lancement auto\Categories\Mensuel\01-Tables\01-Tables_categ.client5.sql" )
- Set TStreamText = Fil.OpenAsTextStream(ForReading)
- For i = 1 To 8 '8 est le nbr de ligne de mon fichier
- 'While VarBuffer <> "/*fin*/" car mes fichiers se terminent pas /*fin*/
- VarBuffer = TStreamText.ReadLine
- ligne = "" & ligne & VarBuffer
- Text1.Text = ligne 'me permet de voir ce que j'ai lancé
- 'Wend
- Next i
- rec.Open " & text1.text", cnOracle
- While Not rec.EOF
- rec.MoveNext
- Wend
|
mais j'obtient instruction sql non valide. pourquoi ? j'ai enlevé (pour l'instant) les valeur ex where mois = 'janv' pour enlever le pb des ''.
merci
Message édité par lhonolulu le 23-03-2004 à 12:38:21