[résolu]lancement de requetes contenu dans des fichiers texte (vb6)

lancement de requetes contenu dans des fichiers texte (vb6) [résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 23-03-2004 à 12:16:47    

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 :
  1. Dim rec As New ADODB.Recordset
  2. Dim Chemin As String
  3. Dim ligne As String
  4. Dim Fichier As String
  5. Dim VarBuffer As String
  6. Dim ObjetText As New FileSystemObject
  7. Dim Fil As File
  8. Dim i As Integer
  9. 'Variable TextStream du FSO
  10. Dim TStreamText As TextStream
  12. Set ObjetText = CreateObject("Scripting.FileSystemObject" )
  13. ObjetText.OpenTextFile ("D:\Test Lancement auto\Categories\Mensuel\01-Tables\01-Tables_categ.client5.sql" )
  14. Set Fil = ObjetText.GetFile("D:\Test Lancement auto\Categories\Mensuel\01-Tables\01-Tables_categ.client5.sql" )
  15. Set TStreamText = Fil.OpenAsTextStream(ForReading)
  16. For i = 1 To 8 '8 est le nbr de ligne de mon fichier
  17. 'While VarBuffer <> "/*fin*/" car mes fichiers se terminent pas /*fin*/
  18.     VarBuffer = TStreamText.ReadLine
  19.     ligne = "" & ligne & VarBuffer
  20.     Text1.Text = ligne 'me permet de voir ce que j'ai lancé
  21. 'Wend
  22. Next i
  23. rec.Open " & text1.text", cnOracle
  24. While Not rec.EOF
  25.     rec.MoveNext
  26. 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
Reply

Marsh Posté le 23-03-2004 à 12:16:47   

Reply

Marsh Posté le 23-03-2004 à 12:37:58    

g trouvé...ct tout bête !
a la ligne rec.open il faut mettre : "" & text1.text, cnoracle
et non " & text1.text ", cnoracle...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed