Problème d'importation de fichier csv dans access avec delphi

Question

Kami.59

Bonjour à tous et à toutes.
J'ai un petit souci et j'espère que quelqu'un sera résoudre mon problème.
J'ai créé un petit programme pour importer un fichier csv dans une base access.
La manip fonctionne bien mais malheureusement je me retrouve avec des champs vides.
Après quelques recherches, j'ai trouvé que c'est lié au texte alphanumérique comme "4B" par exemple.
j'ai essayé d'inclure 10 enregistrements texte dans ma table avant d'importer mais rien n'y fait.
Ce qui est bizarre, c'est que si j'importe manuellement depuis access, je n'ai aucun souci.
Quelqu'un aurait-il une réponse ou une piste sur mon problème car là je séche.

HELP!!!!!!!!!!!!!!!!!!!!!

Merci d'avance.

cs_cantador · Answer

bonjour,

mets le code

cantador

cs_kami59 · Answer

Kami.59

Procedure TForm1.CreerSchemaIni(APath, ANameOnly: TFileName; const ADelimiteur: ShortString);
var
SchemaIni: TIniFile;
begin
    SchemaIni:=Nil;
  try
    SchemaIni:=TIniFile.Create(IncludeTrailingPathDelimiter(APath)+'SCHEMA.ini');
    SchemaIni.WriteString(ANameOnly, 'Format', 'Delimited('+ADelimiteur+')');
  finally
    SchemaIni.Free;
  end;
end;


procedure TForm1.ImportDirectCVSToBase(ADOObject : TADOConnection ; PathFichierCSV, NomFichierCSV, DBPath:TFileName ; NomTable : string ; Delimiteur : Char);
const
Requete='INSERT INTO [%s] IN "%s" SELECT * FROM %s;';


begin
  try
    CreerSchemaIni(PathFichierCSV, NomFichierCSV,Delimiteur);
    ADOObject.Close;
    ADOObject.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+PathFichierCSV+';Extended Properties="text;HDR=NO;FMT=Delimited"';
    ADOObject.Execute(Format(Requete,[NomTable,DBPath,NomFichierCSV]));


  finally
    ADOObject.Connected:= false;
    ADOObject.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Extractfilepath(application.ExeName)+'BASE.mdb;Persist Security Info=False';
    ADOObject.LoginPrompt:= false;
    ADOObject.Connected:=true;
    //on E:Exception do
    //begin
    //  showmessage(E.Message);
   // end;
  end;
end;


procedure TForm1.BitBtn2Click(Sender: TObject);


var
cheminfichiercsv,nomfichiercsv,chemindatabase:TFileName;
begin
  if (Radiobutton1.Checked) then
  begin
  try
  cheminfichiercsv:=Form3.Edit1.Text;
  nomfichiercsv:='Wires_List.csv';
  chemindatabase:=extractfilepath(application.ExeName)+'BASE.mdb';
  //ADOConnection1.Connected:= false;
  //ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Extractfilepath(application.ExeName)+'BASE.mdb;Persist Security Info=False';
  //ADOConnection1.LoginPrompt:= false;
  //ADOConnection1.Connected:=true;
  ADOQuery1.SQL.Text :='DELETE TbImport.* FROM TbImport;';
  ADOQuery1.ExecSQL;
  ImportDirectCVSToBase(ADOconnection1,cheminfichiercsv, nomfichiercsv, chemindatabase, 'TbImport',';');
  //ADOTable1.Active:=true;
  ADOQuery1.SQL.Text :='DELETE TbImport.CODE, TbImport.* FROM TbImport WHERE (((TbImport.CODE) Like "AAZZ*"));';
  ADOQuery1.ExecSQL;
  showmessage ('IMPORTATION NETWORK OK!') ;
  Sousensemble1.Enabled:=True;
  //BitBtn4.Enabled:=true;
  Except
  showmessage('Error for Import File!');
  end;
  end

cs_kami59 · Answer

Kami.59

Bonjour Cantador,

Tu trouveras le code pour mon importation ci-dessous.

cs_cantador · Answer

essaie de changer cette ligne 
nomfichiercsv:='Wires_List.csv';
en
nomfichiercsv:='WiresList.csv';

cantador

cs_cantador · Answer

autre chose..
dans 
CreerSchemaIni(PathFichierCSV, NomFichierCSV, Delimiteur);
Delimiteur n'est pas défini..
il faut lui passer quel délimiteur tu souhaites utiliser.

cantador

cs_kami59 · Answer

Kami.59

Bonjour Cantador,

J'ai défini Delimiteur avec un ';' et j'ai retiré le "_" de mon "wires_list".
Verdict: j'ai toujours le même problème.
D'autres hypothéses ou solutions?

Merci d'avance.

cs_cantador · Answer

En fait, il était déjà définit dans :


ImportDirectCVSToBase(ADOconnection1,cheminfichiercsv, nomfichiercsv, chemindatabase, 'TbImport',';');

donc, c'est pas ça..


Peux-tu mettre quelques enregistrements de ton fichier .csv ?




cantador

cs_kami59 · Answer

Kami.59

Voici un extrait du fichier csv.
La 1ere ligne c'est le nom des colonnes et en gras les champs qui posent problemes.

Code;LIST;Schema;Prof;Pote;Suff2;MW_code;Sleeve_D;School_Class;Origin_d;From_P;Origin_location;Dest_D;To_P;Destination_Location

XXXX772001;SCIE;XXXX771039;D;26121;;;;4B;CM-26Y1;1;TOTO;26K2;2;TITI

XXXX772009;TOIT;XXXX771046;BL;10706;;BL716;BL;5;CF-BR;SH36;TUTU;10A1;SH36;TUTU

XXXX772009;TOIT;XXXX771046;BL;10707;;BL717;BL;5;CF-BR;SH36;TUTU;10A1;SH36;TUTU

XXXX772009;TOIT;XXXX771046;BL;10708;;BL718;BL;5;CF-BR;SH36;TUTU;10A1;SH36;TUTU

XXXX772009;TOIT;XXXX771046;BL;10709;;BL719;BL;5;CF-BR;SH36;TUTU;10A1;SH36;TUTU

XXXX772009;TOIT;XXXX771046;;10709;;BL719;1;5;CF-BR;#4;TUTU;10A1;0;TUTU

XXXX772009;TOIT;XXXX771046;;10706;;BL716;1;5;CF-BR;#1;TUTU;10A1;0;TUTU

XXXX772009;TOIT;XXXX771046;;10707;;BL717;1;5;CF-BR;#2;TUTU;10A1;0;TUTU

XXXX772009;TOIT;XXXX771046;;10708;;BL718;1;5;CF-BR;#3;TUTU;10A1;0;TUTU

Je desespere.

c'est vraiment bizarre.

cs_cantador · Answer

je viens juste de te lire..
juste un truc..as tu vérfier si le type du champ en gras (déclaré dans la table) ne posait pas de problème par hasard ???
est-il le même que le précédent qui fonctionne ?

cantador

cs_kami59 · Answer

j'ai vérifié dans access et le type et sur "texte".
Aussi bien en importation auto avec delphi qu'en importation manuel en direct dans access. 
La seule difference est qu'en importation automatique ca bug sur les alphanumerique (en gras ci-dessus).

Kami.59

cs_kami59 · Answer

Tu n'as pas d'autres hypothéses cantador?

Kami.59

cs_cantador · Answer

désolé, mais j'étais pas mal pris ces temps ci..
pour revenir sur le sujet, lors de l'importation est ce qu'une partie des données sont néanmoins stockées dans access ?

cantador

cs_kami59 · Answer

C'est à dire?


J'ai crée une table avec 10 enregistrements uniquement avec du texte que j'insére dans ma table principale avant l'import.

c'est un ajout que j'ai fait pour essayer de pallier à mon problème sur les champs alphanumérique mais rien ne change.

J'ai également la table principale qui est vide avant l'import et l'ajout.

Kami.59

cs_cantador · Answer

ton champ "Code" qui normalement doit être une clé primaire reçoit le même enregsitrement :

XXXX772009

si tel est la cas, c'est normal, ca tu as des doublons dans ta clé...
essaie d'envoyer un seul enregistrement :
le premier par exemple :
XXXX772001;SCIE;XXXX771039;D;26121;;;;4B;CM-26Y1;1;TOTO;26K2;2;TITI

cantador

cs_kami59 · Answer

J'ai essayé avec l'enregistrement ci-dessus et ca fonctionne.
Par contre dès que j'en met 2 ça ne fonctionne plus (les deux 1er enregistrements).

Kami.59

cs_cantador · Answer

Bien on avance un peu...
Quel est le type du champ CODE dans la base access ?

cantador

cs_cantador · Answer

j'ai modifié ton code et tout testé avec :

CSV :
CODE;CHAMP1;CHAMP2;CHAMP3
1000;tata;toto;titi
2000;papa;pepe;papi
3000;roro;riri;rara

et une table TImportdans access avec
CODE
CHAMP1
CHAMP2
CHAMP3 
le tout en format Texte


voici le code qui n'est pas du tout optimisé mais qui fonctionne...

unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, IniFiles;


type
  TForm1 = class(TForm)
    Button1: TButton;
    ADOQuery1: TADOQuery;
    ADOQuery1CODE: TWideStringField;
    ADOQuery1CHAMP1: TWideStringField;
    ADOQuery1CHAMP2: TWideStringField;
    ADOQuery1CHAMP3: TWideStringField;
    ADOConnection1: TADOConnection;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;


var
  Form1: TForm1;
  SchemaIni: TIniFile;
  
implementation


{$R *.dfm}


const
  cstADOCsvConnexion = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties="text;HDR=YES;Format=Delimited"';


procedure CreerSchemaIni(APath, ANameOnly: TFileName; const ADelimiteur: ShortString);
begin
  try
    SchemaIni := nil;
    SchemaIni := TIniFile.Create(IncludeTrailingPathDelimiter(APath) + 'Schema.ini');
    SchemaIni.WriteString(ANameOnly, 'Format', 'Delimited(' + ADelimiteur + ')');
  finally
    SchemaIni.Free;
  end;
end;


procedure ImportDirectCVSToBase(PathFichierCSV, NomFichierCSV: TFileName);
const
  Requete = 'INSERT INTO [%s] IN "%s" SELECT * FROM %s';
  cstDefautSeparateurChamp = ';';
  NomTable = 'TImport';
var
  cstNomBase: string;
begin
  try
    cstNomBase := 'bd1.mdb';
    CreerSchemaIni(PathFichierCSV, NomFichierCSV, cstDefautSeparateurChamp);
    Form1.ADOConnection1.Close;
    Form1.ADOConnection1.ConnectionString := Format(cstADOCsvConnexion, [PathFichierCSV]);


    Form1.ADOConnection1.Execute(Format(Requete, [NomTable,
      IncludeTrailingPathDelimiter(PathFichierCSV) + cstNomBase,
        NomFichierCSV]));


  finally
    Form1.ADOConnection1.Close;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  cheminfichiercsv, nomfichiercsv, chemindatabase: TFileName;
begin
//  if (Radiobutton1.Checked) then
//  begin
  try
    try
      Screen.Cursor := CrHourGlass;
      cheminfichiercsv := extractfilepath(application.ExeName);
      nomfichiercsv := 'Classeur1.csv';
      chemindatabase := extractfilepath(application.ExeName) + 'bd1.mdb';
      ADOConnection1.Connected := false;
      ADOConnection1.Connected := true;
      ADOQuery1.SQL.Text := 'DELETE TImport.* FROM TImport;';
      ADOQuery1.ExecSQL;


// Importation du CSV dans la table
      ImportDirectCVSToBase(cheminfichiercsv, nomfichiercsv);


{  ADOQuery1.SQL.Text := 'DELETE TImport.CODE, TImport.* FROM TImport WHERE (((TImport.CODE) Like "AAZZ*"));';
  ADOQuery1.ExecSQL;
  showmessage('IMPORTATION NETWORK OK!');   }


//    Sousensemble1.Enabled := True;
  //BitBtn4.Enabled:=true;
  
    finally
      Screen.Cursor := CrDefault;
      ShowMessage('Importation terminée !');
    end;
  except
    showmessage('Error for Import File!');
  end;
end;

end.

cantador

cs_kami59 · Answer

Peux tu faire un essai avec l'importation dans le champ1 (en texte), de valeurs numériques et alphanumérique? pour voir si ça fonctionnent aussi.

Car les données que j'insére dans le champ1(en texte) par exemple peut être purement du texte, du texte contenant uniquement des chiffres ou des chiffres avec des lettres.

J'ai refait un test d'import avec mon prog, du csv et voici un petit résultat.

Import deux enregistrements avec valeurs texte et alphanumérique ->OK

Import deux enregisrements avec valeurs texte et numérique -> le texte n'est pas ajouté.

Import deux enregistrements avec valeurs numérique et alphanumérique -> la valeur alphanumérique n'est pas ajouté.

Kami.59

cs_cantador · Answer

oui, bien sûr; j'ai refait un test avec  le code fourni et ceci pour le CSV :
CODE;CHAMP1;CHAMP2;CHAMP3
1000;tata;250;titi
2000;papa;A28;papi
3000;roro;AbCd7;rara

et aucun souci tout se retrouve dans la table..

Mais, je ne vois pourquoi tu fais des différences alpha ou pas..
Dès l'instant où ton champ est déclaré en texte, tu peux mettre tout ce que tu veux dedans (alphanumérique, alpha, numérique...)


il n'y a que dans le cas où tu prends le type numérique que le choix est restreint..
et tu n'as pas répondu à ma question sur le type du champ "CODE"..

cantador

cs_kami59 · Answer

Dans quel composant je trouve les TWideStringField ?

Kami.59

cs_kami59 · Answer

Bonjour cantador,

Le type du champ "CODE" est 'texte', il n'a pas de clé primaire. tous les autres champs sont en texte aussi.

Je pense que le problème pourrait éventuellement venir des TWideStringField car je n'en ai pas déclaré dans mon prog.

Ils sont placés dans quel composant?

Kami.59

cs_cantador · Answer

TWideStringField ?

mais ceci n'apparaît nulle part...

moi, j'ai une forme avec trois composants :
TADOConnection + TADOQuery (avec sql (select * from TImport)
bien sûr par habitude j'ai rentré les champs dans le query)
et un TBUTTON.

Utilises le code fourni et tu verras ça marche !

cantador

cs_kami59 · Answer

Euhhh,

J'ai fait l'essai et ça ne marche pas.
Comment je dois faire pour t'envoyer mon prog avec ta source? 

Kami.59

cs_cantador · Answer

Non, je préfère t'envoyer le mien..
envoie ton email par MP.

cantador

cs_kami59 · Answer

je t'ai envoyé l'adresse.

Kami.59

cs_cantador · Answer

ça y est le zip est transmis..


je pense que tu devrais pouvoir comparer les sources et trouver le petit "os" qui ne va pas..


car il faut aussi prendre en compte les paramétrages des composants que l'on ne voit évidemment pas sur le forum..

cantador

cs_kami59 · Answer

Resultat des courses...
ton prog fonctionne avec ton fichier csv mais en essayant avec les données
de mon fichier csv, j'ai le même souci.

La question reste entière.
Pourquoi ça bug?

P.s: on a quand même avancé. a savoir qu'il y a possibilité que celà fonctionne.

Kami.59

cs_cantador · Answer

essayant avec les données
de mon fichier csv, j'ai le même souci.


ben tu as trouvé la réponse...
ton fichier n'est pas de la forme .csv
ce n'est pas parce que tes données sont séparées par un point-virgule que ton fichier acquière cette qualité..
il faut faire attention car quelquefois des caractères invisibles (retour chariot, blanc etc par exemple..) viennent polluer le fichier..

Le mieux est de placer tes données dans un tableau EXCEL et d'enregistrer le tout au format .csv. (enregistrer sous..)

cantador

cs_kami59 · Answer

Le souci est que mon fichier est un fichier excel converti en .csv directement depuis excel.






Kami.59

cs_cantador · Answer

aie !


est ce que c'est toi qui a effectué la conversion ?
sinon, je te conseille de le refaire.

cantador

cs_kami59 · Answer

Dans le cas où le csv ne fonctionne pas, serais-tu comment importer directement via delphi de excel vers access les champs code et champs de 1 à 3 par exemple. et celà pour un nombre d'enregistrements indéfini?

car là avec cette histoire de fichier csv je désespère complétement.

Kami.59

cs_kami59 · Answer

oui oui, c'est moi qui ai enregistré en csv

j'ai fait enregistré sous (sous format csv avec ;) et refais une fois avec en plus l'option convertir en texte chaque colonne.






Kami.59

cs_cantador · Answer

oui oui, c'est moi qui ai enregistré en csv

j'espère que tu as pensé également à renommer les entêtes de champ dans le fichier EXCEL..

moi, j'ai choisi CODE, CHAMP1, CHAMP2 etc..
mais il faut adapter son fichier en fonction des champs de la table..

Si ça ne marche toujours pas, envoie moi ton fichier CSV que je le teste..
([mailto:pulsar3000@wanadoo.fr pulsar3000@wanadoo.fr])

cantador

rec1982 · Answer

salut cantador et kami59 ,j'ai le meme probleme avec le meme source de kami ; je l'ai  télécharger apartir d'un site fronco mais il me sort le meme probleme; sachant que j'ai reussi  avec exportation to csv mais avec importation je travail sur ce probleme.
si je reussi je t'envois la solution cordialement

cs_kami59 · Answer

Salut Candator.


Je t'ai envoyé mon fichier csv.

Kami.59

cs_kami59 · Answer

salut REC1982.

ça fait combien de temps que tu es bloqué avec ce problème sur l'importation?

Moi je galère depuis 1 mois.

Ce qui est bizarre aussi, c'est qu'apparamment personne ne parle de ce problème sur les forums.

Seul cantador et toi maintenant êtes intéressé par ce problème.

Kami.59

rec1982 · Answer

salut ami. j'ai trouvé la solution ,dés que j'ai résolus le probléme ,j'ai essayé de vous contacté mais le proxy chaque fois ferme la page acause des images dans le site, donc je suis à la maison et je peut vous envoyé la solurion: /////////////////////////////////////////////*********** CODE SOURC***********////// procedure TForm1.Button1Click(Sender: TObject); var f:tstringlist; s,fie:string; col,posdelem:integer; vt:variant; begin f:=tstringlist.Create; f.LoadFromFile('c:\mes\mesure.csv'); showmessage('fin'); s:=f.Strings[0]; //edit1.Text:=inttostr(f.Count); //listbox1.Items[0]:=s; //f.Free; t.Insert; col:=0; repeat posdelem:=pos(';',s);// position de dilimiteur dans le string S if posdelem> 0then fie:=copy(s,1,posdelem-1) else fie:=s; // :******************************************************* vt:=vartype(t.Fields[col].Value); case vt of vtinteger,vtextended,vtcurrency,vtint64: t.fields[col].AsInteger:=strtoint(fie)//traitement principal else t.fields[col].AsString:=fie; end; //********************************************************* if posdelem>0then delete(s,1,posdelem); col :=col+1; until posdelem=0 ; t.Post; showmessage('fin transmission'); end; ////////////////////////////////////************************fin de source***************** t:at un adotable. delem:et un delimiteur(j'aiutilisé le ; ) posdelem:position de delimiteur. donc voila ma solution ,si quelqun à des remarque ou des ajout je serai trés heureus de votre participation. cordialement rec1982. en effet j'ai posé le meme probleme dans un autre forum et voici le lien http://www.developpez.net/forums/d733519/environnements-developpement/delphi/bases-donnees/importation-donnees/ si vous ne comprener pas quelque chose je suis là ,mais aprés les heure de travail.(si tu veut l'exportation je suis là). remarque : j'ai importer que la premiere ligne.je veut donnerais la version final plus tard. cordialement.

rec1982 · Answer

salut .
juste des ilustrations:
 mon fichier csv contien le (;) comme delimiteur.
j'ai importer que la premiere ligne de fichier csv

cs_cantador · Answer

@rec1982:


Oui, on peut faire l'importation de cette manière mais ce n'est pas la plus rapide..
Le SQL sera toujours plus performant.

cantador

rec1982 · Answer

salut.
j'ai fini l'importation de touts les lignes ,j'ai pas pu vous contactés acause des images de bla bla dans ce site et mon proxy ferme la page automatiquement.


poour cantador ,c'est vrais que sql et plus rapide ,c'est tu trouve le code avec sql qui permet de faire importation je suis preneur.
pour kami59:
////////////////////////////////////////////////////////////////////:::::::::::::
salut.
voila une petite modification ,pour toutes les lignes:





Code :

 
procedure tform1.importer(t:tadotable;delem:char;cheminf:string);
var f:tstringlist;
    i,col,posdelem:integer;
    vt:variant;
    s,l:string;
begin
f:=tstringlist.create;
f.LoadFromFile(cheminf);
for i:=0to f.Count-1dobegin
     s:=f.strings[i];
     t.Insert;
     col:=0;
          repeat
           posdelem:=pos(delem,s);
           if posdelem >0then
           l:=copy(s,1,posdelem-1)else
           l:=s;
           vt:=vartype(t.Fields[col].Value);
           case vt of vtinteger,vtextended,vtcurrency,vtint64:
           t.Fields[col].AsInteger:=strtoint(l);
           else
           t.Fields[col].asstring:=l;
           end;
           if posdelem >0then
           delete(s,1,posdelem);
           col:=col+1until  posdelem=0;
           t.Post;
          
    end;
     f.Free;
end;
 




et en fait appelle à cette procedure comme ça:





Code :

procedure TForm1.Button2Click(Sender: TObject);
begin
opendialog1.Execute;
importer(t,';',opendialog1.FileName)  ;
showmessage('fin transmission');
end;




si il ya des suggestions ou modifications je suis preneur et merci .
cordialement 
et voila ma discussion dans autre forum:
http://www.developpez.net/forums/d733519/environnements-developpement/delphi/bases-donnees/importation-donnees/

rec1982 · Answer

pardant: voila le code:
////////////////////////////////
procedure tform1.importer(t:tadotable;delem:char;cheminf:string);
var f:tstringlist;
    i,col,posdelem:integer;
    vt:variant;
    s,l:string;
begin
f:=tstringlist.create;
f.LoadFromFile(cheminf);
for i:=0to f.Count-1do
    begin
     s:=f.strings[i];
     t.Insert;
     col:=0;
          repeat
           posdelem:=pos(delem,s);
           if posdelem >0then
           l:=copy(s,1,posdelem-1)
           else
           l:=s;
           vt:=vartype(t.Fields[col].Value);
           case vt of vtinteger,vtextended,vtcurrency,vtint64:
           t.Fields[col].AsInteger:=strtoint(l);
           else
           t.Fields[col].asstring:=l;
           end;
           if posdelem >0then
           delete(s,1,posdelem);
           col:=col+1
           until  posdelem=0;
           t.Post;
          
    end;
     f.Free;
end;
 /////////////////
et en fait appelle à cette procedure comme ça:
procedure TForm1.Button2Click(Sender: TObject);
begin
opendialog1.Execute;
importer(t,';',opendialog1.FileName)  ;
showmessage('fin transmission');
end;
cordialement rec1982.

cs_cantador · Answer

la solution que j'ai proposée est en sql...

cantador

cs_kami59 · Answer

Bonjour Cantador.


Je t'ai renvoyé le fichier csv, l'ancien email n'a pas du partir.


Bonjour rec1982, est ce que le code permet l'importation direct dans une table access?

Kami.59

cs_cantador · Answer

oui alors j'ai créer un champ "CHAMP4" supplémentaire dans la table TImport.

et avec ton .csv, j'ai lancé le programme et tout marche sans erreur
je t'ai d'ailleurs transmis la base avec les données importées.

J'ai toutefois noté un détail que je ne m'explique pour l'instant :


Toutes les données sont correctement importées mais l'importation déclenche naturellement un TRI croissant sur le champ "CODE" ce qui a pour effet bien entendu de ne pas visualiser les informations dans le même ordre que le .csv.
(ce tri n'étant pas provoqué par une instruction SQL ni un ordre delphi..)

Mais au final, si on réfléchit bien, c'est quand même préférable.

cantador

cs_kami59 · Answer

Salut Candator


J'ai ouvert ta base et tu as comme moi.


C'est à dire que si tu regardes les champs 3 et 4, tout ce qui est alphanumérique n'apparait pas. (comparaison à faire avec le fichier csv).


Cordialement.

Kami.59

rec1982 · Answer

salut
bien sure il importe tout le fichier csv.
mais pas dans l'ordre de ton fichier csv.
cordialement.

cs_kami59 · Answer

Bonjour REC1982,

J'ai compilé ta source et en essayant l'import, le prog me marque "ACCESS VIOLATION AT ADDRESS 00477CA8 IN MODULE 'PROJECT1.EXE'. READ OF ADDRESS 8BD88BD7.


C'est dû à quoi? comment résoudre le problème?


Merci d'avance. 


Cordialement.

Kami.59

cs_kami59 · Answer

c'est bon.

j'ai résolu le problème de la violation d'accès.

Ca donne quoi Cantador avec le SQL pour l'import du fichier CSV?

Kami.59

cs_cantador · Answer

L'import se passe bien mais quelques enregistrements ne sont curieusement pas stockés dans la table..

Je cherche..

cantador

cs_jjgone · Answer

Bonjour, je sais que ce topic date un peu, mais comme à priori ça n'a pas été résolu ou tout du moins aucune solution n'a été apportée, je vais tenter d'expliquer le problème ça pourra servir pour quelqu'un d'autre.
Lors de l'import de données d'un fichier csv vers Access par programmation, certaines données sont ignorées et ne sont pas importées dans la table.
En fait cela vient du fait que lors de l'importation du fichier csv microsoft.jet ne se fie pas au type de donnée du champ dans la table, mais scanne le fichier csv et détermine le type de champ en fonction du type majoritaire rencontré. Ceci n'est pas très subtil et peut effectivement apporter des surprises dans l'importation des données.
Pour résoudre le problème, il suffit d'encadrer de guillemet les champs texte contenant des chiffres y compris un champ comme 25AB47 qui donnerait 2547 (??).
Comme encadrer tous les champs serait fastidieux, il suffit de n?encadrer que les champs de la 1ère ligne et de rajouter dans le fichier Schema.ini la ligne :
MaxScanRows=1, ce qui force à ne scanner que la 1ère ligne pour déterminer le type du champ.
Scema.ini ressemblerait à cela avec un ; comme délimiteur de champs:

[Nom du fichier csv]
Format=Delimited(;)
MaxScanRows=1

La procédure de création du fichier Schema.ini serait alors la suivante : 

function CreateSchemaFile(CsvFile: TFileName; Delimiter: Char): string;
{
-	CsvFile nom complet du fichier csv
-	Delimiter le caractère délimiteur (ne pas choisir la virgule qui est pour la France le séparateur décimal)	
}
begin
  Result := '';
  with TIniFile.Create(ExtractFilePath(CsvFile) + 'Schema.ini') do
  begin
    try
      WriteString(ExtractFileName(CsvFile), 'Format', 'Delimited(' + Delimiter + ')');
      WriteInteger(ExtractFileName(CsvFile), 'MaxScanRows', 1);
    except
      on E: Exception do
        Result := E.Message;
    end;
    Free;
  end;
end;Voilà si cela peut servir, bonne journée.

Problème d'importation de fichier csv dans access avec delphi

50 réponses

Votre réponse

Discussions similaires