Mira supongamos que tienes tienes lo siguiente.
Tu tabla con u campo entero, uno varchar, otro fecha con los siguientes nombres "Id", "Descripcion", "Fecha de ingreso"
A la tabla se llama "Informacion"
Y tu archivo tiene el formato
1,La casa es roja,10/12/2005
34,otra cadena mas,23/10/2004
En lo unico que tienes que tener cuidado es que al enviar la fecha la envies en formato gringo ya que asi es como la reconoce firebird ose 12/10/20005 y 10/23/2004 respectivamente pero si no me explique bien aqui tienes el codigo.
Código Delphi
[-]Procedure InsertarDatos(Const cArchivo: TFileName);
Const
csSql = 'Insert Into "Informacion"("Id", "Descripcion", "Fecha de ingreso") Values(%s, ''%s'', ''%s'');';
Var
lExtructura, lArchivo: TStrings;
lIbScript: TIB_Script;
I: Integer;
Begin
lArchivo := TStringList.Create; lExtructura := TStringList.Create; lIbScript := TIB_Script.Create(Nil); Try
lArchivo.LoadFromFile(cArchivo); For I := 0 To lArchivo.Count-1 Do Begin
lExtructura.Clear; ExtractStrings([','], [','], Pchar(lArchivo[i]), lExtructura); lIbScript.SQL.Add(Format(csSql, [lExtructura[0], lExtructura[1], FormatDateTime('mm/dd/yyyy', StrToDate(lExtructura[2]))])); End;
lIbScript.Execute; Finally
lExtructura.Free;
lArchivo.Free;
lIbScript.Free;
End;
End;