Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Servers (https://www.clubdelphi.com/foros/forumdisplay.php?f=9)
-   -   excel y access (https://www.clubdelphi.com/foros/showthread.php?t=37667)

alfil123 20-11-2006 00:32:18

excel y access
 
hola foreros, bueno estuve buscando como exportar e importar registros entre excel y access pero no he podido encontrar un hilo que me ayude , encontre entre excel y mssql o sqlserver pero no con acces, bueno si alguienme puede dar razon se lo agradeceria.
gracias

alfil123 20-11-2006 00:53:43

he probado un codigo del hilo este codigo
procedure TFormMenu.Productos2Click(Sender: TObject);
var
j: Integer;
begin
try
Excel := CreateOleObject('Excel.Application');
except
Excel.Quit;
showmessage('No se pudo crear el Objecto Excel.');
raise;
end;
if OpenDialogXls.Execute then Archivo:= OpenDialogXls.FileName
else exit;
Excel.Workbooks.Open(Archivo);
j:= 2;
try
repeat
with InsertarProductos do
begin
Close;
Parameters.ParamByName('@codplu').Value:= Excel.Cells[j,1].Value;
Parameters.ParamByName('@codtrasval').Value:= Excel.Cells[j,2].Value;
Parameters.ParamByName('@codfabricante').Value:= Excel.Cells[j,3].Value;
Prepared:= True;
ExecProc;
end;
inc(j);
until Excel.Cells[j,2].Value = '';
Excel.quit;
ShowMessage(' El fichero de productos ha sido importado exitosamente');
except
ShowMessage(' !!!!! ATENCION !!!!! ' + chr(13) +
' El fichero no pudo ser importado' + chr(13) +
' Revise bien su estructura');
end;
end;


pero da el caso que es hacia sql server y esta linea no me corre
OpenDialogXls.Execute then Archivo:= OpenDialogXls.FileName
OpenDialogXls no es reconocido por el compilador, nose me esta faltando alguna libreria

Bicho 20-11-2006 01:10:50

Por favor, no repitas los hilos, con eso no conseguirás que la gente te haga caso, sino el efecto contrario.
No seas impaciente, sino recibes respuesta será porque no hay nadie que te sepa ayudar en concreto con tu problema.
Usas las etiquetas para envolver el código y hacerlo más legible.
Pon títulos más descriptivos a los hilos, eso ayuda a que la gente entre a ver de que trata el hilo y sirve mucho a la hora de buscar cuando alguien más tiene un problema.
Y por último, situa los hilos en los subforos correspondientes.

Saludos y mucha suerte con tú problema.

delphi.com.ar 20-11-2006 01:53:59

Se me ocurre que podes hacer todo combinando las sentencias "IN" y "SELECT INTO" del propio access.

Saludos!


La franja horaria es GMT +2. Ahora son las 04:15:43.

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