系统运行后,如何用ADO自动连接到数据库?

Question

已设计好一个数据库连接与配置模块.
  当客户端程序想登陆到另一台服务器数据库时,用该模块进行登陆.但是登陆后,程序如何自动获得该数据库配置信息(注:不用Ini文件.)?

Answer 1

给你段程序 自己看function TDBDataModule.ConnectServer():boolean;
var
  strCnn: string;
begin
  Result := false; //设处置为连接不成功
  strCnn := GetSetting(Application.Title,'database','数据库连接');//读注册表
  if strCnn='' then begin
    try  //为空则提供连接向导
      strCnn:=(Datalinks.PromptNew() as _Connection).connectionstring;//转换接口
    except
      exit; //取消连接向导则退出应用程序
    end;
    Savesetting(Application.Title,'database','数据库连接',strCnn);//存注册表
    //Savesetting(Application.Title,'database','login',EnDeCode(password));//存注册表
  end;
  ADOCnn.ConnectionString :=strCnn;  try  //试着打开连接
    //AdoCnn.open(username,password);
    ADOCnn.Connected := true;
    Result := true; //连接成功
  except
    //if ReConnectServer()=1 then begin //不成功则在原连接信息基础上再次给出连接向导
    //  Result:=true;
    //end;
    Result := false;
  end;
end;

Answer 2

up
运行该语句:
"Savesetting(Application.Title,'database','数据库连接',strCnn);//存注册表"时
提示出错:
[Error] AdoConn.pas(188): Undeclared identifier: 'Savesetting'.