Foros Club Delphi - consulta en un ADOQUERY

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)

- - consulta en un ADOQUERY (https://www.clubdelphi.com/foros/showthread.php?t=93376)

Cita:

Empezado por Casimiro Notevi (Mensaje 528435)

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

Cita:

Empezado por the walrus (Mensaje 528437)

no me crees verdad? bueno aqui dejo el codigo
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

Según nuestra guía de estilo, y también la más elemental conducta de ética y buenos modales, es explicar la solución encontrada a un problema planteado.
Gracias por compartirla.
Saludos.