Transfert de données de fichier txt vers base Sql server

Mr Capone
Messages postés
21
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
19 juin 2005
- 21 janv. 2005 à 16:31
mrdep1978
Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
- 21 janv. 2005 à 16:52
Bonjour, je débute en vb (je travail sur vb6) et je souhaite extraire des données d'un fichie *.txt afin de les introduire dans une base de données sous Sql Server...

Mon fichier text ressemble a ceci:
champ1;champ2;champ3;
champ1;champ2;champ3;

chaque ligne est un enregistrement d'une table de la base...

Je ne sait pas tres bien comment m'y prendre...

j'ai commencé un code qui ressemble a ceci

Sub extraction ()
dim chaine as string

open "C:\monfichier.txt" for input as #1

do while not eof(1)

input #1, chaine

loop

close #1

end sub

donc si je comprend bien "chaine" comporte les données de mon fichier...

Desormais je souhaite pouvoir balancer les données dans ma table SQL mais comment faire pour dire que ce sont les ";" qui sépare les champ ?? bref je patauge pas mal, si quelqun l'as déjà fait ou peut m'aider

Merci a bientot

1 réponse

mrdep1978
Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
6
21 janv. 2005 à 16:52
Sub extraction ()
dim chaine as string
dim Champs() as string

open "C:\monfichier.txt" for input as #1
do while not eof(1)
input #1, chaine
champs = split(chaine, ";")

loop
close #1

end sub

La fonction Split permet de découper ta chaine de caractères en fonction d'un séparateur.
Champs(0) contient champ1
Champs(1) contient champ2 ....
0