Ver Mensaje Individual
  #21  
Antiguo 17-09-2018
the walrus the walrus is offline
Miembro
NULL
 
Registrado: abr 2018
Posts: 66
Reputación: 6
the walrus Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
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
Responder Con Cita