Ver Mensaje Individual
  #6  
Antiguo 02-08-2010
Avatar de Alvarus
Alvarus Alvarus is offline
Registrado
 
Registrado: ene 2007
Posts: 7
Reputación: 0
Alvarus Va por buen camino
Thumbs up Solucionado !!!

Hola,
El problema lo solucione cambiando lo siguiente en mi código:

Código Delphi [-]
SqlQuery1.SQL.Text:='LOAD DATA INFILE ''c:file.csv'' INTO TABLE test.table FIELDS TERMINATED BY '','' ENCLOSED BY ''"''LINES TERMINATED BY ''\n''ignore 1 lines;';
SqlQuery1.Active:=True;




Estas líneas fueron cambiadas por:

Código Delphi [-]
SQLQuery1.SQL.Add('LOAD DATA INFILE ''c:file.csv'' INTO TABLE test.table FIELDS TERMINATED BY '','' ENCLOSED BY ''"''LINES TERMINATED BY ''\n''ignore 1 lines;');
   SQLQuery1.ExecSQL(true);




Para aquel que necesite un ejemplo del código final es este:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    ClientDataSet1.Close;
    SQLDataSet1.Close;
    SQLQuery1.SQL.Clear;
    SQLQuery1.SQL.Add('LOAD DATA INFILE ''c:irnet.csv'' INTO TABLE test.irnet FIELDS TERMINATED BY '','' ENCLOSED BY ''"''LINES TERMINATED BY ''\n''ignore 1 lines;');
    SQLQuery1.ExecSQL(true);
    SQLDataSet1.Open;
    ClientDataSet1.Open;
 end;

Claro quedaría mucho mejor si pudiera enviar un mensaje que le muestre al usuario cuantos registros subió con el archivo, pero bueno supongo que son detalles que ya ire encontrando en Delphi 2010.
Saludos
Alvarus
Responder Con Cita