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 根据进程id获取程序ico图标

Delphi捕获u盘插入或者拔出

Delphi2007-Delphi2010 程序不出现在任务栏的方法

Delphi2010中tresourcestream流使用

Delphi 构建时间 -encodedatetime … tryencodedatetime

Delphi多线程文件搜索

Delphi xe android的所有权限按照分类总结说明

Delphi 数据异或校验

rightstr 返回字符串右边指定个数的新字符(串)

Delphi实现电脑端微信图片文件解密

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



打赏

取消

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

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

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

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

评论

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