leer csv

[aprendiz_delphi]

Buenos dias.
Estoy empezando con esto del delphi.
Me planteo leer un fichero csv y tengo que pasarlo a una tabla de una base de datos.
Hay alguna opción en delphi para no hacerlo que simplifique la lectura y la concatenacion para realizar el insert.

CAMPO1;CAMPO2;CAMPO3
A;B;C
D;E;F
A;F;B

Necesitaria realizar 3 insert con esos 3 campos

[Casimiro Noteví]

¿Qué base de datos?

[aprendiz_delphi]

pues Maria_db, pero al final entiendo que esto es independiente.
Necesito crear los insert en el programa.

[Neftali [Germán.Estévez]]

Aquí tienes un par de links correspondientes a entradas del blog sobre leer un TXT (que puede ser un CSV) utilizando ADO.
Puedes pasarlo desde el fichero a un Dataset o directamente a la tabla.

https://neftali.clubdelphi.com/carga...tilizando-ado/
https://neftali.clubdelphi.com/carga...o-ado-parte-2/

[ecfisa]

Hola.

Tenes que leer el archivo csv en un TStringList y sabiendo que la primer linea corresponde a la cabecera de columnas, operar en consecuencia.

Ejemplo simplificado usando la tabla Customers.csv (que viene con Delphi)

Código Delphi [-]
...
var
  T1,T2: TStrings;
  i,j: Integer;
begin
  T1 := TStringList.Create;
  try
    T1.LoadFromFile('Customers.csv');
    for i := 1 to T1.Count-1 do
    begin
      T2 := TStringList.Create;
      ExtractStrings([';'], [' '], PChar(T1[i]), T2);
      try
        DataSet.Insert;
        for j := 0 to DataSet.FieldCount-1 do
          DataSet.Fields[j].AsString := StringReplace(T2[j],'"','',[rfReplaceAll]);
        DataSet.Post;
      finally
        T2.Free;
      end;
    end;
  finally
    T1.Free;
  end;
end;

Saludos

[aprendiz_delphi]

Gracias, por las ideas.
No puedo usar un dataset, ya que algunas veces, la insercion es incremental o completa en funcion del radio button.
lo primero que hago ya, es una select a la tablas para ver el nombre de las columnas y preparar los campos del insert.
Luego voy a leer linea a linea el fichero.
Cuando tenga la linea lo pasare a un tstringlist con el delimitador, para que me lo trocee.
Ahi generare el insert a la tabla, para luego pasarlo como un script.
Como lo veis?

[ecfisa]

Hola.

Empezado por aprendiz_delphi

Gracias, por las ideas.
No puedo usar un dataset, ...

Use un TDataSet para el ejemplo por que en tu consulta inicial indicabas:

Empezado por aprendiz_delphi

...
Me planteo leer un fichero csv y tengo que pasarlo a una tabla de una base de datos.
Hay alguna opción en delphi para no hacerlo que simplifique la lectura y la concatenacion para realizar el insert.
...

Saludos

[ariasdill]

Disculpa, no estoy seguro si es correcto.
En la parte de variables defines T1 como Tstrings y en el cuerpo del programa la inicializas como TStringlist

Es eso correcto? o es un error de dedo?

[ecfisa]

Hola.

Empezado por ariasdill

Disculpa, no estoy seguro si es correcto.
En la parte de variables defines T1 como Tstrings y en el cuerpo del programa la inicializas como TStringlist

Es eso correcto? o es un error de dedo?

Si, es correcto. Estoy aplicando polimorfismo, uso la clase base para los objetos que representan listas de cadenas en Delphi, pero no puedo instanciarla directamente por que contiene métodos abstractos.

Sin embargo, si necesitara algún método o atributo, como por ejemplo el método Sort, de la clase derivada TStringList, debería declarar la variable de este último tipo o no los tendría disponibles.

Saludos