Ver Mensaje Individual
  #2  
Antiguo 28-04-2012
Avatar de CHECHE81
CHECHE81 CHECHE81 is offline
Miembro
 
Registrado: may 2007
Ubicación: Huauchinango, Puebla
Posts: 64
Reputación: 17
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
Responder Con Cita