programme VB

Question

Bonjour,
Je voudrais écrire une fonction VB qui permet d'extraire des données dans un fichier .txt et remplit les champs d'une BDD Access avec les données extraits.
Merci de votre aide.

cs_MasterHack · Answer

salut pour prendre les donnee d'un .txt faut faire dim variable as string open chemindufichiertxt for input as #1 while not eof(1) doeevents line input #1,variable text1=text1+variable wend close puis tu mets ça ds ta base de donner

Life is short...Learn more Copy Rights <> Rights to Copy

cs_MasterHack · Answer

DoEvents*

Life is short...Learn more Copy Rights <> Rights to Copy

tbbuim1 · Answer

Je connais cette fonction qui permet de cr&#233;er une table &#224; partir d'un fichier excel

DoCmd.TransferSpreadsheet acImport, 8, NomTable, PathFic, True

Peut &#234;tre qu'en s&#233;parant les valeurs par un ; dans ton txt il cr&#233;era
une table &#224; partir de ton fichier et qu'&#224; partir de cette table, tu
pourras r&#233;cup&#233;rer les valeurs et les ins&#233;rer dans la table que tu veux
et ensuite, tu n'auras qu'&#224; supprimer la table cr&#233;er
Cette commande efface les tables d'erreurs cr&#233;er lors du passage

For Each Matable In CurrentDb.TableDefs

        Effacer = False

        For Ctr = 1 To Len(Matable.Name)

            'Efface toutes les tables contenant "$" dans leur nom

            If Mid$(Matable.Name, Ctr, 1) "$" Then Effacer True

        Next

        If Effacer = True Then DoCmd.DeleteObject acTable, Matable.Name

    Next

'Celle l&#224; supprime la table que l'on veut

    DoCmd.DeleteObject acTable, NomTable

**********************

Sinon, ce qu'il faudrait que tu fasses, c'est parcourir ton fichier txt

et d'avoir un s&#233;parateur (genre ;) &#224; chaque fois que tu rencontres un ; tu r&#233;cup&#232;res le mot et tu l'envoies dans ta table...
TBBUIM

cs_CanisLupus · Answer

Salut, il y a d'innombrables sources et posts du forum sur ce sujet.
En l'absence de plus amples pr&#233;cisions, j'admire MasterHack et tbbuim1 pour avoir essay&#233; de r&#233;pondre.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_MasterHack · Answer

CanisLupus > Merci (Le Loup Gris) ;)

cs_CanisLupus · Answer

Mais de rien MasterHack, c'&#233;tait sinc&#232;re.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

tbbuim1 · Answer

C'est rien, les Kings of Fighters on l'habitude de la difficult&#233; 

Et si je r&#233;ponds, c'est aussi un peu pour exorciser toutes les
questions que j'ai pu poser et o&#249; personne ne s'est donn&#233; la peine de
me r&#233;pondre...

TBBUIM

cs_g_marvin · Answer

merci pour vos réponse,
mais jé vu sur le forum qu'il y'avait un fonction: la fonction split()
voici le code pour extraire les données!!!
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 .... 
cependant j'aimerai avoir le code de cette fonction si possible en VB6.
j'aimerai avoir aussi si possible un exemple des fonctions insert et update qui va me permettre de d'insérer mes données dans ma base access 2000.
merci de votre aide!!!!!!!!!!!

tbbuim1 · Answer

J'ai r&#233;pondu &#224; cette question, mais sur une autre page. 
TBBUIM

Programme VB

9 réponses

Discussions similaires