连接数据库问题

Question

本来是设置了adoquery1.ConnectionString属性，指定了数据库。
后来，我想在
在from1添加按钮。procedure Tlanding.Button3Click(Sender: TObject);
begin
              adoquery1.ConnectionString;
end;在单击按钮的时候，就给我连接数据库的框。还有能直接连接数据库的那个文件，而不经过服务器吗？？

Answer 1

你按钮里的写是啥啊？
 adoquery1.ConnectionString：=‘。。’这得写东西啊。连接数据库的语句

Answer 2

procedure Tlanding.Button3Click(Sender: TObject);
begin
   adoconnection1.Connectiontstring=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BookSystem;Initial File Name=F:\MSSQL\Data\BookSystem_Data.MDF;
end;end.这样可以吗？？？上面的应该怎么写才没错。

Answer 3

我不是想在代码里面连接。我想点按钮后，能出来个框，让我找到数据库。就像Connectiontstring属性设置时一样。

Answer 4

你用的什么数据库呀，如果Access可以直接连那个文件，sqlserver或oracle等不行，你可以用adoconnection双击出现的连接一步步试试，把connectionstring的连接串取出来看看

Answer 5

需要自己去结合INI档去做一个这样的对话框~~

Answer 6

自己做？？不会吧？？？
connection控件有这个对话框，为什么不能调用呢

Answer 7

Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BookSystem;Initial File Name=F:\MSSQL\Data\BookSystem_Data.MDF;
这个就是取出来的串

Answer 8

     adoconnection1.Connectiontstring :='Provider=SQLOLEDB.1;Password='''+Password
    +''';Persist Security Info=True;User ID='+UserID
    +';Initial Catalog='+dbbase
    +';Data Source='+ServerID
    +';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;'
    +'Use Encryption for Data=False;Tag with column collation when possible=False';

Answer 9

那你可以自己创建一个udl（后缀名为udl）文件来做~~

Answer 10

先自己用ADOCONNECTION连接一次,测试连接正常,再把那段COPY过来, 再把属性改了
这样应该是没问题的 

Answer 11

uses   
  AdoConEd;procedure ConfigConnectString;
begin
  ADOConnection1.Close;     
  if   EditConnectionString(ADOConnection1)   then    
  label11.caption   :=   ADOConnection1.ConnectionString;    
end;
 

Answer 12

自己创建一个udl（后缀名为udl）文件来做

Answer 13

楼主的意思是动态连接数据库吧
做个登录窗体,拖几个Edit上去 分别保存 数据库服务器地址,登录名,密码,默认数据库
然后 再放个button上去,点击的时候 拼接一下 connectionstring字符串
然后 让ADOConnection.ConnectiongString:= 拼接的字符串 就好了
具体如何拼接connectionstring,楼上已有人说过,再不行就百度下吧