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


本文整理自网络,侵删。

 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 实现检测线程类tthread是否结束

Delphi mailurlmaybeinvalid 检测邮箱地址有效性

Delphi renamefile 文件改名

Delphi shellexecute最简单的结束进程代码

Delphi 把单张图片保存到access数据库

Delphi做繁体简体转换

Delphi webbroker 输出图片的问题

Delphi fmx 图像处理成圆角图像

Delphi10.2.3解决的一个json问题

Delphi 用firedac获取 sql server错误文本信息

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...