用MS JET连接数据库不就行了吗?设置ADO的CONNECTIONSTRING属性,选择microsoft jet 4.0 OLE DB provider 选择数据库名称,然后用户名为admin,密码如果没有,则为空,否则为你设置的密码
procedure TFrmMain.FormCreate(Sender: TObject); Var s:string; begin s:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'Members.mdb;'+'Mode=Share Deny None'; MainConnection.ConnectionString:=s; MainConnection.Connected :=True; end
选择数据库名称,然后用户名为admin,密码如果没有,则为空,否则为你设置的密码
Var s:string;
begin
s:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'Members.mdb;'+'Mode=Share Deny None';
MainConnection.ConnectionString:=s;
MainConnection.Connected :=True;
end