Cita:
Empezado por Delphius
Me preguntaba si alguien de aquí sabría cómo hacerlo. Me han comentado que una solución es copiar el código SQL generado por el Informe realizado en Access y transcribirlo al programa, pero tengo mis dudas.
|
Bueno, no se la solución con el tema de SQL, pero sí se puede imprimir un informe desde Delphi hecho en Access vía Automatización.
El código sería algo así:
Código Delphi
[-]
const
acViewNormal = $00000000;
acViewDesign = $00000001;
acViewPreview = $00000002;
const
acQuitPrompt = $00000000;
acQuitSaveAll = $00000001;
acQuitSaveNone = $00000002;
var
Access: Variant;
begin
try
Access := GetActiveOleObject('Access.Application');
except
Access := CreateOleObject('Access.Application');
end;
Access.Visible := True;
Access.OpenCurrentDatabase('c:\temp\dbdemos.mdb', True);
Access.DoCmd.OpenReport('country', acViewNormal, EmptyParam, EmptyParam);
Access.CloseCurrentDatabase;
Access.Quit(acQuitSaveAll);
Crea un form con un botón y en click del botón el código anterior;
Cambia el path de la Base de Datos y el modo de abrirla; y puedes modificar si deseas abrir o imprimir el informe.
Recuerda que debes añadir al uses la unit
ComObj para poder usar automatización.
Una saludo.