Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-05-2006
Choclito Choclito is offline
Miembro
 
Registrado: jul 2004
Posts: 169
Poder: 20
Choclito Va por buen camino
Lightbulb importar datos de excel a firebird

hola amigos del foro mi problema es el siguiente
Me pidieron importar datos de excel a la base de datos en Firebird algo asi como el que tiene EMS par firebird
vi en el foro y encontre un post donde dan una referencia de excel para paradox el detalle es que ellos quisieran escoger el archivo xls del cual quieren importar datos
Para lo cual me vase en ese post y añadi un opendialog para buscar en cls de la maquina y cargarlo la ruta en un label hice lo siguiente :
Código Delphi [-]
procedure TF_migrador.LMDSpeedButton1Click(Sender: TObject);
begin
abrir.Execute;
label1.Caption:=abrir.FileName;
coneccion.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;
//aqui cargo el caption del label
Data Source=label1.caption Mode=ReadWrite;Extended Properties=Excel 8.0;Jet OLEDB:System database="";
Jet OLEDB:Registry Path="";Jet OLEDBatabase Password="";
Jet OLEDB:Engine Type=35;Jet OLEDBatabase Locking
Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;
Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;
Jet OLEDB:Encrypt Database=False;Jet OLEDBon't Copy Locale on Compact=False;
Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';

end;

procedure TF_migrador.LMDSpeedButton4Click(Sender: TObject);
begin
coneccion.Connected:=true;
datos.Active:=true;
end;
coneccion es el adoconection
datos es e adodataset

Contarles de q no da me da un error de unterminated string
Donde esta el error ??? que esta mal?? que otras opciones mas hay para importar datos de excel a firebird?
Indicarles q soy nuevo en esto pero gracias al foro estoy aprendiendo muchas cosas
Trabajo con delphi7 firebird
Estare muy agradecido por toda la ayuda que me brinden
Responder Con Cita
  #2  
Antiguo 06-05-2006
Avatar de DarKraZY
DarKraZY DarKraZY is offline
Miembro
 
Registrado: ago 2003
Posts: 460
Poder: 21
DarKraZY Va por buen camino
Cita:
Empezado por Choclito
Contarles de q no da me da un error de unterminated string
La verdad, no me he enterado si te da un error, o si no. Pero supongo que por el ejemplo que has puesto, deberías de darte cuenta. Como ves en tu post, los datos de conexión es un string, y por tanto debería aparecer en rojo. Pero no termina de aparecer en rojo ya que a partir del símbolo <<'>> se da por finalizada.
Responder Con Cita
  #3  
Antiguo 06-05-2006
Choclito Choclito is offline
Miembro
 
Registrado: jul 2004
Posts: 169
Poder: 20
Choclito Va por buen camino
Lightbulb gracias por la respuesta

contarte q lo q hice es copiar todo el codigo q esta en la propiedad conectionstring y ahi cambiar la ruta del archivo xls sigo insistiendo y no da para nada
En que propiedad puedo trabajar para q la ruta hacia el archivo xls sea un parametro de entrada?
Gracias por la respuesta q me ayudara mucho
Responder Con Cita
  #4  
Antiguo 07-05-2006
Avatar de DarKraZY
DarKraZY DarKraZY is offline
Miembro
 
Registrado: ago 2003
Posts: 460
Poder: 21
DarKraZY Va por buen camino
Podrías pegar aquí el texto del error exactamente (el error que dice Delphi), y así poder ayudarte mejor Pero revisa los símbolos ' (comilla simple) porque creo que ese es el motivo.
Responder Con Cita
  #5  
Antiguo 08-05-2006
Choclito Choclito is offline
Miembro
 
Registrado: jul 2004
Posts: 169
Poder: 20
Choclito Va por buen camino
gracias por la respuesta

muchas gracias por las respuestas...
Comentarles q lo que queria era visualizar una hoja de excel en mi aplicacion en delphi
comentarles que revisando la ayuda q trae delphi sobre ado logre hacer el problema q tenia
El ejemplo en el foro era directamente para un solo archivo xls pero lo que yo queria es para cualquier archivo xls q el usuario pueda personalizar
Mostrarles q en el ejemplo de ado toda la coneccionstring lo carga en un cmbo asi q me vase en eso para que pueda parametrizar la parte del acceso al archivo xls ahhh tambien cambie la propiedad provider por :
C:\Program Files\Common Files\System\OLE DB\Data Links\DBDemos.udl
esto lo copie tal como esta en el demo de delphi sobre ado pues antes no podia ejecutar y me salia un error de excepcion
Creo q no es la manera correcta pero indicarles que muestra cualquier xls que tenga en la PC en forma de tabla para luego poder manipular e introducir en una tabla
Bueno agradecerles por la ayuda que brindan
Responder Con Cita
  #6  
Antiguo 25-07-2006
thomasini thomasini is offline
Registrado
 
Registrado: jun 2006
Posts: 3
Poder: 0
thomasini Va por buen camino
Y como haces para recorrer el excel?

tengo una consulta, ya que tengo un caso similar pero mi traba es que no puedo leer el total de registros del excel .... quisiera saber como hacen o como hicieron para saber hasta que registro llenar los datos en la BD..
les pongo un ejemplo...

Si tengo un excel con 150 filas tendria que recorrer las 150 filas pero como se sabe q son 150 filas e tratado de hacer un bucle pero este demora mucho en tiempo de ejecucion no se si uds puedan tener algun otro tipo de metodo para saber q ese excel tiene una cierta cantidad de registros, ya que para mi caso el numero de registros que debo leer es variable...

Gracias
Thomas M.
Responder Con Cita
  #7  
Antiguo 06-02-2007
Dalmine Dalmine is offline
No confirmado
 
Registrado: ago 2006
Ubicación: Argentina Campana Buenos Aires
Posts: 19
Poder: 0
Dalmine Va por buen camino
hola que tal mira asi yo recorro el excel, ya sabiando cuantas columnas tiene y teniendo una tabla de acuerdo a los campos que tien excel

table1.open;
While not ADODataSet1.EoF do begin
table1.insert;
Table1.FieldByName('nombre').Value := AdoDataSet1.Fields[0].Value ;
Table1.FieldByName('num').Value:= AdoDataSet1.Fields[1].Value ;
Table1.FieldByName('num1').Value := AdoDataSet1.Fields[2].Value ;
Table1.FieldByName('ape').Value := AdoDataSet1.Fields[3].Value ;
table1.post;
AdoDataSet1.Next;
end;
end;


para guiarme he usado este ejemplo que hizo otro companero del foro http://www.clubdelphi.com/foros/show...xcel+a+paradox

suertee
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Importar Excel a RTF CARSOFT_AR Varios 0 24-08-2005 20:59:18
importar de excel a BD jmlifi Varios 2 09-08-2005 12:47:18
Importar Base de Datos Firebird/Interbase a SQL Server altinoco21 MS SQL Server 1 06-04-2005 23:09:26
Pasar datos de Excel a Interbase o Firebird eibarra Conexión con bases de datos 2 12-03-2005 02:24:14
importar datos de excel a mi aplicacion squenda Varios 2 11-12-2003 04:33:32


La franja horaria es GMT +2. Ahora son las 10:12:26.


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
Copyright 1996-2007 Club Delphi