主题：请问大侠们怎么样动态的连接acess数据库（30）
克里斯
[专家分：0] 发布于 2006-07-19 16:10:00
请问我说的是 不在控件里设置
就是在代码里写 代码连接
然后 不管 程序和数据库在电脑的哪个盘 都能正常访问 和打开程序
不像在控件里写 换个地方就不好用了
谢谢了
顺便 说一下 就是有密码的acess 怎么连啊 也是和上面的要求一样谢谢了
非常感谢各位
回复列表 （共2个回复）
沙发
wealthy [专家分：1840] 发布于 2006-07-20 09:43:00
var
DataModule9: TDataModule9;
Itemstr，Itemstr1:String;
implementation
uses unit1;
{$R *.dfm}
procedure TDataModule9.DataModuleCreate(Sender: TObject);//对于TADOTable
begin
Itemstr:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;User Password=******;Data Source='+extractfilepath(application.ExeName)+'\data\Item.mdb;Persist Security Info=False';//取得数据表在运行程序的目录的DATA目录中
ItemADOTable1.ConnectionString:=Itemstr;//连接数据表
ItemADOTable1.TableName:='Item';//设数据表名
ItemADOTable1.active:=True;//打开
end;
procedure TDataModule9.DataModuleCreate(Sender: TObject);//对于TADOQuery
begin
Itemstr1:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;User Password=******;Data Source='+extractfilepath(application.ExeName)+'\data\Item.mdb;Persist Security Info=False';//取得数据表在运行程序的目录的DATA目录中
ItemADOQuery1.ConnectionString:=Itemstr1;//连接数据表
ItemADOQuery1.SQL.ADD:='select * from Item';//添加查询语句
ItemADOQuery1.active:=True;//打开TADOQuery
end;
板凳
克里斯 [专家分：0] 发布于 2006-07-20 16:36:00
\谢谢了 真的感谢
我来回复
您所在位置：