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

Question

Bonjour, je d&#233;bute en vb (je travail sur vb6) et je souhaite extraire des donn&#233;es d'un fichie *.txt afin de les introduire dans une base de donn&#233;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&#233; 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&#233;es de mon fichier...

Desormais je souhaite pouvoir balancer les donn&#233;es dans ma table SQL mais comment faire pour dire que ce sont les ";" qui s&#233;pare les champ ?? bref je patauge pas mal, si quelqun l'as d&#233;j&#224; fait ou peut m'aider

Merci a bientot

mrdep1978 · Answer

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&#233;couper ta chaine de caract&#232;res en fonction d'un s&#233;parateur.
Champs(0) contient champ1
Champs(1) contient champ2 ....

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

1 réponse

Discussions similaires