Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Go Back   Foros Club Delphi > Principal > Servers
Register FAQ Members List Calendar Guía de estilo Today's Posts

 
 
Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #2  
Old 28/04/2012
CHECHE81's Avatar
CHECHE81 CHECHE81 is offline
Miembro
 
Join Date: May 2007
Location: Huauchinango, Puebla
Posts: 64
Poder: 20
CHECHE81 Va por buen camino
Smile

Saludos Chaja
Si nos muestras tu código podriamos ver como lo haces o talvez sea el tipo de dato que tienes en tu bd por ejemplo yo
para importar un excel a mysql utilizo algo como esto:

Código Delphi [-]
try
  AdoDataSet1.First;
  While not AdoDataSet1.EoF do
  begin

      cds1.Append;
     if not AdoDataSet1.FieldByName('campostring1').IsNull then
      cds1.FieldByName('campostring1').Value:= AdoDataSet1.FieldByName('campostring1').Value ;

      if not AdoDataSet1.FieldByName('campostring2').IsNull then
      cds1.FieldByName('campostring1').Value := AdoDataSet1.FieldByName('campostring2').Value ;
…

      if not AdoDataSet1.FieldByName('campoentero1').IsNull then
        cds1.FieldByName('campoentero1').Value := AdoDataSet1.FieldByName('campoentero1').Value ;
      …
      if not AdoDataSet1.FieldByName('campoentero2').IsNull then
        cds1.FieldByName('campoentero2').Value := AdoDataSet1.FieldByName('campoentero2').Value ;
      …


      cds1.post;

      AdoDataSet1.Next;

  end;

  Cerrar; //función para cerrar y refrescar el cds1 para mostrar los datos importados

  showmessage('Se agregaron los datos con éxito.');

  except
    ShowMessage('Verifique que los datos de su archivo de excel esten correctos, gracias.'); // Esto es si no coinciden
// los campos que estoy guardando en mi tabla  y los tengo en mi código de importación con los que tiene el excel, con 
//uno que no coincida aqui truena ok.
  end;

Solo que tengo un detalle se tarda demaciado, se me pasma la pantalla no he probado con los componentes de excel y no
se si es más rapido por esa vía, pero por aqui se me tarda un rato con un excel de 72 filas y 13 columnas, estuve pensando
si se podria hacer un insert con un select:
Código SQL [-]
INSERT INTO tabla_A(CAMPO1, CAMPO2) select CAMPO1,CAMPO2 from tablaB
para que sea más rapida la importación y dejarle la chamba a la bd pero el detalle es que mi AdoDataSet1 esta conectado al
excel y los datos no estan en la bd sino en el el excel... si alguien ha hecho algo parecido y tiene algún dato extra se lo
agradezco de ante mano y estaria super jojojo¡¡¡¡¡

Grax por su tiempo.
__________________
Cuidemos el medio ambiente....jojo
Reply With Quote
 



Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
exportar/importa a excel martonbarbosa Varios 1 22/07/2014 22:09
importacion de Datos Excel 2007 oscarac Varios 4 19/12/2011 06:04
Importacion desde Excel oscarac Varios 1 01/03/2011 17:23
Importación desde fichero XML???? burasu .NET 4 16/10/2005 12:04
Importación de Contactos desde outlook hot1974 Servers 7 09/06/2005 00:53


All times are GMT +2. The time now is 05:30.


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