Discussion :

[picoti2]

bojour
j'ai une base de deonne commandes.txt contenant des champs séparé par des"|"avec un dizaine de ligne.
j'ai une bdd Masaccess nommée general contenat une table commandes composées des mêms champs que la bdd commandes.txtx.
je voudrais inserer les donnees de commandes.txt dans la bdd MsAcces.

merci de ma'aider car je ne suis pas un pro de delphi

[PyRoFlo]

A tout hasard, tu appelles BDD un fichier texte ou c'est vraiment le nom de ta BDD ?

[picoti2]

commandes.txt est de la forme
nom|prenom|adresse|
dupond|jean|rue des acacias
dupond2|albert|rue des envie etc ...

c'est un fichier texte

[Philia]

Salut,

Au pire tu devras faire une moulinette, qui ouvre ton fichier texte, lit chaque ligne, décompose, les valeurs en fonction du séparateur et les enregistre dans ta table access.

Mais tu n'en dit pas assez par exemple:
Le nombre de champ de ton fichier txt est-il le meme que la table source ?
La première ligne de ton fichier comporte t'elle le nom de ces champs ?

ect..

Si le fichier volumineux, et qu'il ni est pas de probleme d'intégrité a résoudre tu peux envisager de remplacer, ton séparateur par un ; puis d'ajouter une premiere ligne contenant le nom des champs et enfin d'importer la table complete avec une connexion ADO en odbc txt.
(On peut aussi en mode "jet" mais là je n'ai jamais essayé)

[elorca]

salut
bon je pense que depuis t'as résolu ton pb?
sinon je peux t'aider

[picoti2]

j'ai pas résolu le pb car je ne suis pas un pro et je dedute sous delphi

les champs sont identiques dans le fichier texte et le bdd msAccess

merci de votre aide car j'en ai besoin ((

[Francis]

Tu sembles avoir une Table Bien structurée. Pourquoi ne pas définir tes trois champs : Nom
Prenom
Adresse.
En utilisant un SGBD simple type PARADOX, tu règleras ton problème, sans avoir à séparer et à réassembler tes données.
Je ne comprends pas pourquoi passer par une Table avec un seul champ?

[picoti2]

ce n'est pas moi qui ai choisit ce fichier client.txt nom|prenom|adresse| avec les lignes de données avec.

je veux transferer les donnees de clientx .txtx dans la bddmsaccess nommées datas.mdb avec une tables client contenant les m^me champs.

[Harry]

Tu va être obligé de lire les caractères 1 par 1 et determiner si c un | ou pas , a chaque pipe tu met les donnees des caracs précédents (préalablement mis dans une variable) dans le champ etc...

[PyRoFlo]

Codes toi l'équivalent de Explode() du PHP...

Je te donne celle que j'utilise, trouvée sur le forum et modifiée par mes soins

A toi de l'adapter.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure Explode(TexteATraite: String );
var
  Texte, phrase, caractere, separateurs: string;
  i,y, LongueurTexte: integer;
begin
    y := 0;
    phrase := '';
    Texte := TexteATraite;
    LongueurTexte := Length(Texte);
    Separateurs := ' ';
 
    for i := 1 to LongueurTexte do
    begin
        caractere := Texte[i];
        phrase := phrase + caractere; 
        if Pos(caractere, separateurs) <> 0 then
        begin
            Smileys[y] := Trim(phrase);
            phrase := '';
            Inc(y);
        end
        else
        if i = LongueurTexte then
        begin
            Smileys[y] := Trim(phrase);
            Inc(y);
        end;
 
    end;
end;

[Philia]

Tu as la solution de passer par un driver ODBC texte, et d'importer ton fichier vers ta base access.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
         { Création dynamique du ADOConnection pour l'importation }
         ADOConnection := TADOConnection.Create(Nil);
         { Configuration ODBC Ascii }
         ADOConnection.ConnectionString := 'Provider=MSDASQL.1;' +
            'Persist Security Info=False;' +
            'Extended Properties="DefaultDir=;' +
            'Driver={Microsoft Text Driver (*.txt; *.csv)};' +
            'DriverId=27;' +
            'Extensions=txt,csv,tab,asc;' +
            'FIL=text;' +
            'FILEDSN=;' +
            'MaxBufferSize=2048;' +
            'MaxScanRows=25;' +
            'PageTimeout=5;' +
            'SafeTransactions=0;' +
            'Threads=3;' +
            'UID=admin;' +
            'UserCommitSync=Yes;"';
 
         { Ouverture avec le driver odbc ascii }
         ADOConnection.Open;
 
         { La requete d'insertion  }
            S := ('INSERT INTO ' +  TableName +
               ' IN ' + '''' + MDBFile + '''' + ' Select * ' + ' FROM ' + FichierTxt);
 
        {insertion des données}
         ADOConnection.Execute(S);

[Balise [code] rajoutée par Nono40]


Bon en gros voila ce que ca peut donner

[picoti2]

philia, je ne sais pas comment declarer la variable S.
Ne faut-il pas egalement ouvrir laz connexion odbc pas la bas msaccess?