请教动态联接数据库的语句

Question

Delphi的TADOConnection和TADODataset就是对应于VB中的connection和recordset

Answer 1

procedure TMainForm.FormActivate(Sender: TObject);
var
  myini:tinifile;
  s_s1,s_s2,s_s3:string;
begin
      //从我的INI读取系统数据库参数的信息
      myini:=tinifile.Create('.\lxh.ini');
      s_s1:=myini.ReadString('Host','Server','');
      s_s2:=myini.ReadString('Host','Username','');
      s_s3:=myini.ReadString('Host','Password','');
      myini.Free;
  try
    dm1.Starconndm.AdoStarconn.connected:=false;
    dm1.Starconndm.AdoStarconn.connectionstring:='Provider=SQLOLEDB.1;Password='+s_s3+';Persist Security Info=True;User ID='+s_s2+';Initial Catalog=master;Data Source='+s_s1+';Locale Identifier=2052;Connect Timeout=15;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID='+s_s1;
    dm1.Starconndm.AdoStarconn.LoginPrompt:=false;
    dm1.Starconndm.AdoStarconn.connected:=true;
  except
     messageboxex(handle,'连接服务器失败！请检查设置.','提示',MB_OK+MB_ICONINFORMATION,0);
  end;
  LoginForm.ShowModal;
end;