Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   como importo datos (https://www.clubdelphi.com/foros/showthread.php?t=14117)

alachaise 09-09-2004 21:05:14

como importo datos
 
yo hize una tabla en exel con diferentes campos para lla me esta por el umero 1900 quisiera exportar la tabla esa completa a una base de dato como por ejemplo mysql podria alguin explicarme al respecto

Neftali [Germán.Estévez] 10-09-2004 15:38:28

Deberías explicarte un poco mejor y dedicar un poco más de tiempo a la pregunta si quieres que las contestaciones sean más fructíferas...

¿La tabla que tienes hecha en qué está?
¿lo quieres hacer desde un programa de Delphi o desde fuera con alguna herramienta de Dump?
¿Qué parte no entiendes? ¿cómo hacer las conexiones a las diferentes Bases de Datos? ¿El código del programa? ¿Algun componente que te facilite el trabajo?
¿?¿?¿?¿?

juziel 10-09-2004 15:51:29

Hola, yo tenia el mismo problema que tu pero trataba de importar de bdase a Firebird, y lo solucione de la siguiente manera

partiendo de que se conoce la estructura de la tabla, creas una base de datos con la misma estructura de tu tabla
Código Delphi [-]
procedure TfrmData.ImportarTabla(Ruta, NombreTabla: string);
  var
    i           : longint;
begin
  ttable.Active := false;
  ttable.DatabaseName := Ruta;
  ttable.TableName := NombreTabla;
  ttable.Active := true;
  TpFIBDataset.Active := false;       
  //
  ttable.First;                   
  TpFIBDataset.Active := true;
  frmImportar.ProgressBar.Min := 0;
  frmImportar.ProgressBar.Max := tt.FieldCount;
  i := 0;
  While Not tt.Eof do begin
    i := i + 1;
    frmImportar.ProgressBar.Position := i;
    TpFIBDataset.AppendRecord([                       
    ttable.FieldValues['PREFIJO'],
    ttable.FieldValues['NOMBRE'],
    ttable.FieldValues['COMPONE'],
    ttable.FieldValues['UNIPOR'],
    ttable.FieldValues['CANTIDAD'],
    ttable.FieldValues['PRECIO'],
    ttable.FieldValues['MONTO'],
    ttable.FieldValues['CANCONC'],
    ttable.FieldValues['PRECIOMN'],
    ttable.FieldValues['MONTOMN'],
    ttable.FieldValues['PRECIOME'],
    ttable.FieldValues['MONTOME']
    ]);
 
    trsReadWrite.CommitRetaining;

    tt.Next;
  end;
end;
y en el InsertSQL
Código SQL [-]
INSERT INTO tabla (
    PREFIJO,
    NOMBRE,
    COMPONE,
    UNIPOR,
    CANTIDAD,
    PRECIO,
    MONTO,
    CANCONC,
    PRECIOMN,
    MONTOMN,
    PRECIOME,
    MONTOME
)
VALUES(
    :PREFIJO,
    :NOMBRE,
    :COMPONE,
    :UNIPOR,
    :CANTIDAD,
    :PRECIO,
    :MONTO,
    :CANCONC,
    :PRECIOMN,
    :MONTOMN,
    :PRECIOME,
    :MONTOME
)
bueno a mi me funciono aparte de eso tiene un progressbar para mostrar como va, espero te sirva
adios.


La franja horaria es GMT +2. Ahora son las 11:45:29.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi