如何用ADO组件动态连接access数据库,代码怎样实现?
解决方案 »
- delphi邮件问题
- 谁用过“东洋近视治疗仪”?我有急用!网址是哪里?google里都找不到!谢谢大家了!!!
- 帮忙看一下交叉表的存储过程错在哪!
- 怎么样才能给100分的帖子减到20分?
- 主从表的新增问题
- 请问:不考虑硬件环境因素,如何从优化大量数据处理的数据库应用程序性能?
- 救命!sql server专家门!
- 如何在DBGridEh里面实现这样的效果?
- 如何把DBGRID的有特定意义标题的一列固定
- 如何获得并修改本机的IP,网关与DNS??一百九十分!!!!!
- 对不起,可是有人能告诉我几个绿色的三角是什么意思?几个桔红色的星星又是什么?(我不给分,行吗?),多谢了!
- 大哥们 答辩救火 谁懂圆锥 圆台 圆柱 线框造型算法和流程框图
u can dynamic create Connectionstring to Connection Any DataBase.if u want to connect access,u must dynamic config provider,Datasource,user and password.
Provider=Jet4
datasource=Data File
begin
connectionstring :='Provider=Microsoft.Jet.OLEDB.4.0;Data
Source='+数据库名称+'; Persist Security Info=False;
Jet OLEDB:Database Password=密码';
end;
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;
例:
with ADOQuery1 do
begin
ConnectionString :=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ExtractFilePath (Application.ExeName) + 'db1.mdb;Pe' +
'rsist Security Info=False';
end;
begin
connectionstring :='Provider=Microsoft.Jet.OLEDB.4.0;Data
Source='+你的数据库名成+'; Persist Security Info=False;
Jet OLEDB:Database Password= ********';
actice := true ;
{
try
except
end;...............
}
end;