本文整理自网络，侵删。
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;
相关阅读 >>
Delphi 任务栏显示进度条 createcomobject(clsid_taskbarlist) as itaskbarlist4
Delphi tfdquery提交tfdmemtable修改的数据
Delphi dblookupcombobox组件的使用方法
更多相关阅读请进入《Delphi》频道 >>
