频道分类

delphi ADO组件动态连接access数据库

作者:admin 来源:未知 日期:2010/4/29 11:53:24 人气: 标签:

 1.

try
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source='+ExtractFilePath(Paramstr(0))+'picture.mdb;Persist Security Info=True';
adoconnection1.connected:=true;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select* from test');
adoquery1.Open;
button1.Enabled:=false;
showmessage('连接数据库成功');
except
showmessage('数据库连接错误');
end
这只是个例子

2.

很简单,调用一个API即可
例:
with ADOQuery1 do
begin
ConnectionString :=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ExtractFilePath (Application.ExeName) + 'db1.mdb;Pe' +
'rsist Security Info=False';
end;

///////////////////////////////////////////////////////////////
with AdoConnection1 do
begin
connectionstring :='Provider=Microsoft.Jet.OLEDB.4.0;Data
Source='+你的数据库名成+'; Persist Security Info=False;
Jet OLEDB:Database Password= ********';
actice := true ;
{
try
except
end;...............
}
end;

//////////////////////////////////////////////////////////////////////

var
ConnStr,DBPath:String;
try
DBPath:='你的数据库数径全的';
ConnStr:='Provider=Microsoft.Jet.OLEDB.4.0;Data
Source='+数据库名称+'; Persist Security Info=False;
Jet OLEDB:Database Password=密码';
ADOConnection1.ConnectionString:=ConnStr;
ADOConnection1.Open;
Except
ShowMessage('数据库打开失败');
end;