Q:如何執行 Access 資料庫的報表?
A:以下程式碼由 Bill Todd (TeamB) 提供
procedure dgAccessRunReport(AliasName,
ReportName,
WhereCondition: String);
{Runs an Access report using automation.}
var
Access: Variant;
AliasParams: TStringList;
Database: String;
I: Integer;
begin
{Get the path to the Access database using the alias name.}
AliasParams := TStringList.Create;
try
Session.GetAliasParams(AliasName, AliasParams);
for I := 0 to Pred(AliasParams.Count) do
if Pos('DATABASE NAME', AliasParams[I]) > 0 then
begin
DataBase := Copy(AliasParams[I], 15, Length(AliasParams[I]) - 14);
Break;
end; file://if
finally
AliasParams.Free;
end; file://try
Access := CreateOleObject('Access.Application');
Access.OpenCurrentDatabase(Database);
{Print the report.}
if WhereCondition = '' then
Access.DoCmd.OpenReport(ReportName)
else
Access.DoCmd.OpenReport(ReportName,,,WhereCondition);
{Close Access.}
Access.Quit;
Access := varNull;
end;
               (
geocities.com/huanlin_tsai)