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 OLEDB:Database Password="";
Jet OLEDB:Engine Type=35;Jet OLEDB:Database 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 OLEDB:Don'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

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.

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

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.

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

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.

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