Cita:
Empezado por Casimiro Notevi
Como Juan Palomo, yo me lo guiso y yo me lo como.
|
no me crees verdad? bueno aqui dejo el codigo
Código Delphi
[-]var
importar, tipo: string;
begin
if OpenDialog1.Execute then
begin
importar := ExtractFileDir( OpenDialog1.FileName );
tipo := OpenDialog1.FileName;
end;
ADOConnection1.Execute('insert into archvio select * from [Excel 8.0;database='+tipo+'].[hoja1$]');
ADOQuery1.Close;
ADOQuery1.Open;
ADOQuery1.Refresh;
DBGrid1.Refresh;
end;
bien esto es una inserción directa a la base de datos MS access, no es apropiado que lo publique en este hilo ya que esta solución seria para un hilo de programación y no de base de datos