Discussion :

[titof90]

Bonjour,

J'ai actuellement un problème pour créer une table à partir d'un fichier texte qui contient du code SQL.

j'ai recupéré le code de l'aide pour lire une fichier texte :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub LireFichier()
    Dim MyChar
    Open "FICHTEST" For Input As #1 'Ouvre le fichier
        Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier
        MyChar = Input(1, #1) ' Lit un caractère
    Debug.Print MyChar ' Affiche dans la fenêtre Exécution
Loop
Close #1 ' Ferme le fichier
End Sub

Donc pour ca pas de problème la lecture du fichier marche bien.
Maintenant quand je remplace la ligne "Debug.Print Mychar" par la commande " DoCmd.RunSQL Mychar" il me dit : "Instruction SQL non valide; delete, insert, procedure, select ou update attendus".

Or j'ai testé cela ne vient pas du sql puisque en faisant du DoCmd.RunSQL CREATE TABLE dans une autre fonction la table se crée bien.

J'en deduit que cela vient du code de lecture du fichier, peut etre mal mis dans la variable.

je ne sais pas trop comment faire , merci pour votre aide

[Invité]

Bonjour

Met ton instrucion en dehors de la boucle de lecture pour voir, mychar converti la en srting (cstr) avant

Starec

[titof90]

Merci pour ton aide precieuse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub LireFichier()
	Dim MyChar As String
	Mychar = "C"
	Open "FICHTEST" For Input As #1 'Ouvre le fichier
		Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier
		MyChar = Mychar + Input(1, #1) ' Lit un caractère
Loop
Close #1 ' Ferme le fichier
DoCmd.RunSQL Mychar
End Sub

La question maintenant que je me pose c'est comment lui faire prendre en compte les ; comme fin et debut d'une nouvelle instruction sql.

Une idée pour m'aider ? merci

C'est bon probleme réglé merci