我们在使用Delphi编写以Micorsoft SQL Server为后台数据库的时候，经常为程序的发布担忧：
我们怎样才能让用户自由设置数据库参数，程序自动连接? 笔者经过多次试验，使用Delphi自带的
DataBase数据库连接控件可以很好的实现SQL数据库的自动连接。实现方法如下：

procedure ConnectDatabase(ServerName,DatabaseName,UserName,PassWord:String);
var
  Database1:TDataBase;
begin
   Database1.DatabaseName := ’Test’;
   Database1.DriverName := ’MSSQL’;
   LoginPrompt := False;
   with Database1.Params do
   begin
      Add(’DATABASE NAME=’ + DatabaseName);
      Add(’SERVER NAME=’ + ServerName);     //ServerName也可以是SQL服务器的IP地址
      Add(’USER NAME=’ + UserName);         //设置MSSQL数据的用户名称 如：sa
      Add(’OPEN MODE=READ/WRITE’);
      ADd(’SCHEMA CACHE SIZE=8’);
      Add(’BLOB EDIT LOGGING=’);
      Add(’LANGDRIVER=’);
      Add(’SQLQRYMODE=’);
      Add(’SQLPASSTHRU MODE=SHARED AUTOCOMMIT’);
      Add(’DATE MODE=0’);
      Add(’SCHEMA CACHE TIME=-1’);
      Add(’MAX QUERY TIME=300’);
      Add(’MAX ROWS=-1’);
      Add(’BATCH COUNT=200’);
      Add(’ENABLE SCHEMA CACHE=FALSE’);
      Add(’SCHEMA CACHE DIR=’);
      Add(’HOST NAME=’);
      Add(’APPLICATION NAME=’);
      Add(’NATIONAL LANG NAME=’);
      Add(’ENABLE BCD=FALSE’);
      Add(’TDS PACKET SIZE=4096’);
      Add(’BLOBS TO CACHE=64’);
      Add(’BLOB SIZE=32’);
      Add(’PASSWORD=’ + PassWord);        //设置MSSQL用户口令；
   end;
   try
     Database1.Connected := true;
     Query1.DatabaseName := ’Test’;
     ...   //数据库查询
   
   Except
     Application.MessageBox(’数据库连接错误！’,’错误’,MB_OK+MB_ICONERROR);
   end;
end;

这种方法不太让人理解。。

其实也没有必要设置这么多参数

另外数据库的用户名和密码应该加密后保存到ini文件中（不要保存到注册表里）

请问，如果我用ado的话，有能动态的连接数据库的方法吗

好像这样讲对于我们这些新手来说

是很难理解的

有没有好用的例子或书籍介绍一下

写的不错。顶，如果能介绍一下动态连SQL时候connectionstring的参数怎么设置就更好了。

我一直在研究这个问题。

正在写这一文章。。。。
数据库的恢复与备份。
主要是解决开发中的恢复内容 。。。。

wait..

关注！