trés urgent svp

Question

bonjour
j'ai un fichier text ou il ya des 1000 de line chaque line contient 6 partie separer par un /
ce que je ve savoir c'est comment cr&#233;er une base de donnes a parir de ce fichier avec 4 champ
le 1 champ :  contient le mots entre le 5eme/ et le 6eme/
le 1 champ :  contient le mots entre le 2eme/ et le 3eme/
le 3 champ :  contient le mots apr&#233;s le 6eme / le dernier
le 4 champ :  contient toute la line

yohan49 · Answer

salut , regarde les source et cherche DAO 2.5/3.50 dans tes references projet , y'a plein de sources dispo sur le site pour creer des base de donnee facilement

cs_ITALIA · Answer

tu as d&#233;ja cr&#233;&#233; ta base ?

It@li@

cs_ITALIA · Answer

En DAO ac'eat &#224; dire en cochant Projet...R&#233;f&#233;rences..Microsoft DAO 3.51 Object Library

Set Db = OpenDatabase(AdresseBase)
Open "C:\TonFichier.txt" For Input As #1
   Do Until EOF(1)
        Line Input #1, ligne
         Pos1=instr(0,Ligne,"/") ' Recherche des Positions des "/'
         Pos2=instr(Pos1+1,Ligne,"/")
         Pos3=instr(Pos2+1,Ligne,"/")
         Pos4=instr(Pos3+1,Ligne,"/")
         Pos5=instr(Pos4+1,Ligne,"/")
         Set Ajout = Db.OpenRecordset("SELECT * FROM TaTable")
         Ajout.AddNew
         Ajout("NomduChanp")=mid(Ligne,0,Pos1)
         .....
         .....
         .....
         .....         
         Ajout.Update
    Loop
Close #1
Set Db=Nothing
Set Ajout=Nothing

It@li@

spaa05 · Answer

bonsoir
quand j'execute le programme il ya une :


erreur d'execution 5
argument ou apel de procedure incorect
quand je d&#233;bog la ligne   (Pos1=instr(0,Ligne,"/") ' Recherche des Positions des "/')
est d&#233;boger

cs_ITALIA · Answer

Remplaces 0 par 1 !!!

It@li@

Trés urgent svp

5 réponses