如何设置delphi7中数据打印
我采用的ADO连接动态数据库,具体是:
function ADOConnectAccess(const Adocon: TADOConnection; const DbName, Password: string): Boolean;
{* 用Ado连接Access数据库函数}
begin
with Adocon do
begin
Close;
LoginPrompt := False; //若数据库不存在时，进行判断。。。。。。
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=db.mdb;' +
'Mode=ReadWrite;' +
'Persist Security Info=False;' +
'Jet OLEDB:Database Password=' + Password + ';' +
'Jet OLEDB:Compact Without Replica Repair=True';
try
KeepConnection := True;
Screen.Cursor := crHourGlass;
Connected := True;
Open;
Screen.Cursor := crDefault;
ADOConnectAccess := True;
except
ADOConnectAccess := False;
end;
end;
end;
procedure TmanageForm.FormCreate(Sender: TObject);
begin
ADOConnectAccess(ADOConnection1,'db.mdb','')
end;
但是在做rave报表打印时,总是无法连接数据库.请问各位如何做?谢谢!
问题点数：20、回复次数：0Top
