如何在程序中用代码连接ms server 呢？

Question

如何在程序中用代码连接ms server 呢？
谢谢！
最好给我一段代码看看！

Answer 1

我用这种方法实现：
   用ADOConnection，对ConnectionString进行动态指定服器的属性
如：ADOConnection.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=数据库名;Data Source=YONG';
  
仅供参考！！！！！！！

Answer 2

一个公用函数连接Sql Server服务器，不同的服务器可通过修改下面参数实现：
function ConnectDB(DataBase:TDatabase;ServerName,UserName,PassWord:string;
  DBName:string='master'):Boolean;
begin
  Result:=false;
  DataBase.Connected:=false;
  DataBase.Params.Clear;
  Database.DriverName:='MSSQL';
  Database.Params.Values['DataBase Name']:=DBName;
  Database.Params.Values['Server Name']:=ServerName;
  Database.Params.Values['User Name']:=UserName;
  Database.Params.Values['PassWord']:=Password;
  try
    Database.Connected:=true;
  except
    Exit;
  end;
  Result:=true;
end;

Answer 3

一个公用函数连接Sql Server服务器，不同的服务器可通过修改下面参数实现：
function ConnectDB(DataBase:TDatabase;ServerName,UserName,PassWord:string;
  DBName:string='master'):Boolean;
begin
  Result:=false;
  DataBase.Connected:=false;
  DataBase.Params.Clear;
  Database.DriverName:='MSSQL';
  Database.Params.Values['DataBase Name']:=DBName;
  Database.Params.Values['Server Name']:=ServerName;
  Database.Params.Values['User Name']:=UserName;
  Database.Params.Values['PassWord']:=Password;
  try
    Database.Connected:=true;
  except
    Exit;
  end;
  Result:=true;
end;

Answer 4

uses adodb PromptDataSource()

Answer 5

做一个设置窗口，将数据连接中的各种参数保存至注册表中，在程序运行时动态设置CONNECTIONSTRINGprocedure TCClientManager.connCallCenterBeforeConnect(Sender: TObject);
var
  mName,DatabaseName,uName,uPwd:String;
begin
  mName:=ReadSetting(RegSession,'ServerName','Server');
  DatabaseName:=ReadSetting(RegSession,'DataBaseName','Database');
  uName:=ReadSetting(RegSession,'UserName','UserName');
  uPwd:=ReadSetting(RegSession,'Password','Password');  try
    connCallCenter.Connected:=False;
    connCallCenter.connectionstring:='Provider=SQLOLEDB.1;Persist Security Info=True;'
      +'User ID='+uName+';Initial Catalog='+DatabaseName+';Data Source='
      +mName+';Use Procedure for Prepare=1;Auto Translate=True;'
      +'Packet Size=4096;Workstation ID='+mName;
  except
  end;
end;

Answer 6

注意楼上的DataBase.databasename不能为空， DataBase.databasename就是你程序中用到的别名
如query1.databasename 就是它