关于连接数据库

Question

用TAdoConnection连接数据库时，connectionstring 里面的连接参数用代码怎么写啊

Answer 1

最好让他自动生成：用ADO连接SQL SERVER数据库：
首先放置一个ADOConnection控件ADOConnection1；
然后双击该控件，在弹出窗口中选择build..按钮；
在弹出的“数据连接属性”框中的“提供程序”页选择并双击：“Microsoft OLE DB Provider for SQL Server”到连接页；
服务器名称中输入你的服务器名，下拉应当可以找到，也可以填SQL服务器的IP地址；
登录方式由你根据你的SQL数据库安装情况选择，如果是使用用户名称和密码，最好将允许保存密码钩上；
然后选择数据库（例如：master）。测试一下就OK了。
LoginPrompt设为false,就不会弹出密码框了。然后放置一个ADOQuery1，将Connection 设为ADOConnection1；
在SQL属性上点三个点的小按钮，输入：select * from MSreplication_options;再放一个DataSource1：
Dataset属性设为ADOQuery1；再放一个DBGrid1：
DataSource属性设为DataSource1；选择ADOQuery1，将Active设为True;DBGrid1中是不是显示了数据。

Answer 2

按照 jpyc(九品御厨-进军嵌入式)说的连上数据库后，看看connectionstring，应该会了吧

Answer 3

我是这样写的，为何不行？
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
   with ADOConnection1 do begin
     close;
     LoginPrompt:= False;
     Connectionstring:= 'Provider=SQLOLEDB.1;Password=edit4.text;Persist Security Info=True;'+'User ID=edit3.text;Initial Catalog=edit2.text;DataSource=edit1.text';
     connected:=true;
   end;
  except
    showmessage('连接数据库失败');
  end;   
end;

Answer 4

procedure Tdatamodule2.DataModuleCreate(Sender: TObject);
begin
  OpenDialog1.Filter:='WORD文档|*.doc|EXCEL文件|*.xls|所有文件|*.*';
  IniFile := TIniFile.Create(GetIniFilePath);
  ser_ip:=IniFile.ReadString('sever_ip', 'sever', '');
  user_name:=inifile.readstring('user_name','default_name','');
  user_pw:=inifile.readstring('user_pw','default_pw','');
  dbname:=inifile.readstring('dbname','database','');
  ftp_ip:=inifile.readstring('ftp_sever','ftp_ip','');
  IniFile.Free;  
ADOConnection1.ConnectionString :=
    'Provider=SQLOLEDB.1;Persist Security Info=false'
    + ';User ID=' + user_name
    + ';Initial Catalog=' + DBName
    + ';Data Source='+ser_ip
    + ';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096'
    + ';Workstation ID='+localip
    + ';Use Encryption for Data=False'
    + ';Tag with column collation when possible=False';