Hallo,
habe folgenden Code gefunden. Ich weiß nur nicht wo ich noch Veweise setzen muß, damit Delphi was mit Access anzufangen weiß.
In Uses habe ich "Access2000" und "OleServer" drin stehen.
var
Access: Variant;
begin
{open the Access application}
try
Access := GetActiveOleObject('Access.Application');
except
Access := CreateOleObject('Access.Application');
end;
Access.Visible := True;
{ open the database The second parameter specifies whether you want to open the database in Exclusive mode}
Access.OpenCurrentDatabase('C:\My Documents\Books.mdb', True);
{ open the report The value for the second parameter should be one of acViewDesign, acViewNormal, or acViewPreview. acViewNormal,
which is the default, prints the report immediately. If you are not using the type library, you can define these values like this:
const acViewNormal = $00000000; acViewDesign = $00000001; acViewPreview = $00000002;
The third parameter is for the name of a query in the current database. The fourth parameter is for a SQL WHERE clause -
the string must be valid SQL, minus the WHERE.}
Access.DoCmd.OpenReport('Titles by Author', acViewPreview, EmptyParam, EmptyParam);
{close the database}
Access.CloseCurrentDatabase;
{close the Access application} {const acQuitPrompt = $00000000; acQuitSaveAll = $00000001; acQuitSaveNone = $00000002;}
Access.Quit(acQuitSaveAll);
end;
Danke an den Autor der Codezeilen - aber ich weiß nicht wer es geschrieben hat.
Kann mir jemand helfen es zum Laufen zu bringen?
tom
