没用过ADO，用过的来帮个忙

Question

数据库    Sql server2000
服务器名  orient
用户名    sa
密码      sa
数据库名  brand请问怎么直接用代码写连接字符串（请给出具体代码），需要注意哪些问题？
 

Answer 1

你在object inspector 里面直接设置connectstring就看到了

Answer 2

connString = Format('Provider=SQLOLEDB.1;Persist Security Info=False;User ID=%s;Password=%s;Initial Catalog=%s;Data Source=%s', ['sa', 'sa', 'brand', 'orient']);

Answer 3

function GetConnectionString: string;
var
  SYSINI: TINIFile;
  ServerName, UserName, Password, InitDB,tmpstr: string;
begin
  SYSINI := TIniFile.Create(ExtractFilePath(Application.ExeName)+'DB.INI');
  try
    ServerName := SYSINI.ReadString('Database', 'ServerName', '');
    UserName := SYSINI.ReadString('Database', 'UserName', '');
    InitDB := SYSINI.ReadString('Database', 'InitDB', '');
    tmpstr := SYSINI.ReadString('Database', 'Password', '');
    Password := Decrypt(tmpstr, '');
    Currency_Unt.Cur_month:=  strtoint(SYSINI.ReadString('Database','StartMonth',''));
    Currency_Unt.Cur_prec:= strtoint(SYSINI.ReadString('Database','BXRate',''));
    Result := '';
    Result := 'Provider=SQLOLEDB.1;Password=' + Password + ';Persist Security Info=True;User ID=' + UserName + ';Initial Catalog=' + InitDB + ';Data Source=' + ServerName;
  finally
    SYSINI.Free;
  end;
end;这是我写的，从DB.INI文件中读出以上信息，并组成一个连接字符串，设置adoconnection的CONNECTION属性
example:
DataModule2.ConADMSearch.ConnectionString:= GetConnectionString;