fich.txt to tab.mdb

Question

bonjour;


<TD id=HB_Focus_Element vAlign=top width=\"100%\" background=\"\" height=250 body UNSELECTAB<>j'ai un fichier.txt qui contient des donn&#233;es comme la suivant:

nom1;prenom1;age1
nom2;prenom2;age2
nom3;prenom3;age3
.......

je  r&#233;flechit au code tel que lorsque
je clic sur un bouton, mon prog va chercher ce fich.txt et met les
donne&#233;s dans une table Access  (une seule table &#224; trois colonnes Nom,Prenom,Age)

j'ai essay&#233; avec ce code mais ca fonctionne pas.

Dim Bd As Database
Dim Table As Recordset
Dim Tableau()
Dim a As String

Set Bd = OpenDatabase(\"nom_BD.mdb\")
Set Table = Bd.OpenRecordset(\"nom_table\", dbOpenDynaset)

Open \"c:\fichier.txt\" For Input As #1

While Not EOF(1)
Input #1, a
Tableau() = Split(a, \";\", , vbTextCompare)
Table.AddNew
Table(1).Value = Tableau(1)
Table(2).Value = Tableau(2)
Table(3).Value = Tableau(3)
Table.Update
Wend

Close #1

si quelqu'un peut m'aider ca sera un grand plaisir.

merci a vous tous;
le savoir s'agrandit d'autant que l'on partage.

cs_Tipo · Answer

Salut,

Ce sera plus facile avec ADODB &#224; mon avis

Dim conbase As ADODB.Connection
Dim record As ADODB.Recordset

Private Sub Form_Load()
    Dim tableau() As String
    Set conn = New ADODB.Connection
    conn.Provider = "MICROSOFT.JET.OLEDB.4.0"
    conn.ConnectionString = "c:	est.mdb"
    conn.CursorLocation = adUseClient
    conn.Open
    
    Set record = New ADODB.Recordset
    req = "select * from Table1;"
    
    record.Open req, conn, adOpenDynamic, adLockOptimistic


    Open "fichier.txt" For Input As #1


    While Not EOF(1)
        Input #1, a
        tableau() = Split(a, ";", , vbTextCompare)
        With record
        .AddNew
        !nom = tableau(0)
        !prenom = tableau(1)
        !age = tableau(2) ou Cint(tableau(2)) si ton champ est en num&#233;rique
        .Update
        End With
    Wend


Close #1
record.Close


End Sub

bilalstar · Answer

merci pour la reponse,

ca sera tres gentil de me donner plus d'explication sur ADODB, j'ai jamais travaill&#233; avec en fait.
est ce qu'il a des composantes ou des references a ajouter???

merci a vous tous;
le savoir s'agrandit d'autant que l'on partage
.


<TD id=HB_Focus_Element vAlign=top width="100%" background="" height=250 UNSELECTAB< body>

cs_Tipo · Answer

Il faut ajouter la r&#233;f&#233;rence Microsoft AtiveX Data Objects 2.0 Library. 

Pour le reste tu trouveras pas mal d'infos sur 

http://drq.developpez.com/vb/tutoriels/ADO/

bilalstar · Answer

<TD id=HB_Focus_Element vAlign=top width=\"100%\" background=\"\" height=250 UNSELECTAB< body>bonjour;
merci piur vos repenses.
j'ai  reussi a le faire.mais a chaque fois je rajoute le contenu du fich.txt a la table qui contient d&#233;ja des enregistrement. je voudrais tout d'abord les effacer et puis rajouter les nouvelles enregistrements.

merci d'avance.

cs_Tipo · Answer

Salut, 

Cr&#233;e une requ&#234;te de suppression :

req2 ="DELETE * FROM latable"

Puis ex&#233;cute-la :

record.Open req2, conn, adOpenDynamic, adLockOptimistic

Fich.txt to tab.mdb

5 réponses

Discussions similaires