como importar informacion a mi base de datos desde un disket

[ibbeth]

Gracias por tu ayuda, no es pesades pero quiero intentarlo, te agradezco de todo corazon tu ayuda,pero si no pude te digo y me ayudas va.

Con cariño ibbeth

[rastafarey]

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
  //Asi se encuentra en el formato de disco
  //"Id",  "Descripcion", "Fecha de ingreso"
  lArchivo := TStringList.Create; //Creo el archivo
  lExtructura := TStringList.Create; //acrea la estructura
  lIbScript := TIB_Script.Create(Nil); //Creao el escript que ejecutara las instrucciones
  //lIbScript.IB_Connection := el nombre del componente de base de datos que establece la conexion
  //Yo trabajo con ibo tu solos debes adatarlo al tipo d ecomponentes que uses
  Try
    lArchivo.LoadFromFile(cArchivo); //Leo le archivo
    For I := 0 To lArchivo.Count-1 Do Begin
      lExtructura.Clear; //Limpio la estructura
      ExtractStrings([','], [','], Pchar(lArchivo[i]), lExtructura); //Extraigo la la line actual del archivo par apoder trabajarla
      lIbScript.SQL.Add(Format(csSql, [lExtructura[0], lExtructura[1], FormatDateTime('mm/dd/yyyy', StrToDate(lExtructura[2]))])); //Ensamblo la linea de insercion
    End;
    lIbScript.Execute; //Envio los datos hacia la base de datos y listo
  Finally
    lExtructura.Free;
    lArchivo.Free;
    lIbScript.Free;
  End;
End;

[ibbeth]

hola no se quien seas pero nuevamente te agradezco tu ayuda.
graaaaacias.

[rastafarey]

Soy RASTAFAREY pero si dices por lo del codigo.
Es que ultimadamente solo responde con codigo por que mis explciaciones no las estan entendiendo.
auanque creo que es que soy malo para explicar.

ha con lo de respecto als gracias de nada

[JL_IFE]

para RASTAFAREY si puede contestarme
Disculpen si esto es muy basico
Deseo hacer lo mismo pero la base de datos es con informix y con delphi 6 la duda es en lugar del script que debo manejar, supongo que a travez de un query guardo en la base de datos y la estructura que se sigue usando, si es basico donde lo checo , de todos modos estoy leyendo sobre bases de datos.

[[Lepe]]

si te fijas, lIbScript tiene una propiedad que es sql también, por tanto puedes usar un query como dices, aunque ejecutando la sql por cada línea del Stringlist.

Más o menos:

Código Delphi [-]
For I := 0 To lArchivo.Count-1 Do Begin
      lExtructura.Clear; //Limpio la estructura
      ExtractStrings([','], [','], Pchar(lArchivo[i]), lExtructura); //Extraigo la la line actual del archivo par apoder trabajarla
      lIbScript.SQL.Add(Format(csSql, [lExtructura[0], lExtructura[1], FormatDateTime('mm/dd/yyyy', StrToDate(lExtructura[2]))])); //Ensamblo la linea de insercion
    lIbScript.Execute; // Por cada iteración, ejecuto el script, en tu caso un Query
    End;

Saludos