请问如何在程序中用代码打开ADOconnection的数据连接属性?

Question

哪位大侠知道怎么用程序代码实现在程序中自已设置数据库驱动(打开adoconnection的数据连接属性,我们在设计程序时,双击adlconnection然后选择build..之后弹出来的对话框),谢谢

Answer 1

ADOConnection1.ConnectionString:=ADODB.PromptDataSource(Handle,'Provider=SQLOLEDB.1;');
//代码如下,自己搞定了...谢谢观注,,,,,,,散分吧..

Answer 2

procedure TDM.AccessDBLink;
var
  get_path:  string;
  link_file: string;
begin
  ADOConnection1.Connected := false;
  get_path:=ExtractFilePath(ParamStr(0));
  link_file:=get_path+'db\easycd.mdb';
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
    link_file+';Persist Security Info=False';
  try
     ADOConnection1.Connected := true;
  finally
  end;
end;
在程序启动的时候调用此过程

Answer 3

可惜新的问题又来了,不知道可以帮我解决不,问题如下:
以前的XP系统,以前的delphi7,以前的office2000,一切如往常一样,可是今天再次打开delphi7.0,加入控件:datasource1,adoconnection1,adoquery1,新建一个access数据库db1,设置db1的数据库密码为:a,当双击adoconnection1时,设置db1的路径和密码,结果出现如下错误:用户组信息丢失或数据库文件被其它用户以独占方式打开....,本机为单机,没有其它的用户使用此db1,当然,这时已把db1关闭....如果不加密码,就可以正常访问,显示:连接成功....
后来把系统重装了一遍,又重新装了一次delphi7.0,还是不行,不知道为什么......把以前的程序找出来,也是access 数据库,带密码的,在此系统下编译通过,然后把数据库设置为:db1,编译也能通过,就是从当前delphi加控件到窗体上不能访问带密码的access数据库,可以访问SQL server,哪位大侠可以帮我解决一下,感激不尽......

Answer 4

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Jet OLEDB:Database Password=a';

Answer 5

PromptDataSource()//估计楼主是要这个

Answer 6

密码应该填在"所有"的Jet OLEDB:Database Password一项,而不是填在Password

Answer 7

嗯，同意楼上的，还有注意关闭access~!

Answer 8

use adoconed;procedure TForm2.FormCreate(Sender: TObject);
begin
editConnectionString(adoConneciton1);
end;

Answer 9

use adoconed;procedure TForm2.FormCreate(Sender: TObject);
begin
editConnectionString(adoConneciton1);
end
给分给分~~~~~~~~~~~~~~~~~~~~~~~~~~~
不好好看delphi的 demo

Answer 10

呵呵，楼上几位：
谢谢你们的意见，我已经关闭了access的前提下试的，我在双击adoconnection时，选择builder，然后在弹出的对话框里选择数据库驱动程序时选择的是：Microsoft.Jet.OLEDB.4.0
然后“下一步，选择已设置密码的access数据，然后输入密码，点击：测试连接，结果报错如下：测试连接失败，因为初始化提供程序时出现错误。无法启动应用程序。工作级信息文件丢失，或是已被其它用户已独占方式打开。
声明：我在重装了XP之后，没有装任何软件，然后装了delphi7.0，再连接带密码的access数据库，错误依然如故。真不明白。。

Answer 11

添加1个ADODC属性部件，一切都搞定

Answer 12

if EditConnectionString(ADOConnection1) then
      showmessage(ADOConnection1.ConnectionString);
adoconnection1.connectionstring:=promptdatasource(Handle,adoconnection1.ConnectionString);

Answer 13

楼主估计把数据库密码与用户密码搞混了，请build后，点选最后一个选项卡，从中找出
Database Password（非单独的Password） 这个选项填写你的密码，即可测试连接成功。

Answer 14

hehe ,在检查看看！我是来接点分的！：）