怎么设置ADOQuery连接Oracle8.1.6数据库的ini文件？

Question

我在程序中用了ADOQuery控件。想连接数据库在delphi里怎么写？在ini文件里对应怎么写呢？我要具体的源代码！比如：服务器的IP地址是192.168.0.108，数据库名是repair。用户名是sjt。密码是sjt

Answer 1

正好我用的是ORACLE 8的数据库，你可以参考一下：function GetConnectionString: string;
var
  SYSINI: TINIFile;
  ServerName, UserName, Password, tmpstr: string;
begin
  SYSINI := TIniFile.Create(ExtractFilePath(Application.ExeName)+'DB.INI');
  try
    ServerName := SYSINI.ReadString('Database', 'ServerName', '');
    UserName := SYSINI.ReadString('Database', 'UserName', '');
    tmpstr := SYSINI.ReadString('Database', 'Password', '');
    Password := Decrypt(tmpstr, '');
    Result := '';
    Result := 'Provider=OraOLEDB.Oracle.1;Password=' + Password + ';Persist Security Info=True;User ID=' + UserName + ';Data Source='+ServerName+';Extended Properties=""';
  finally
    SYSINI.Free;
  end;
end;{这是读取INI文件，组成一个连接字符串用的}这个函数可以在ADOCONNECTION的WILLCONNECT事件中使用我的DB.INI文件的内容[Database]
ServerName=oracledb
UserName=franshion
Password=BA4BD753AB75
当然，我这里的PASSWORD是加过密的，加密程序由楼主自己写了：)还有一个就是设置数据库的INI文件 的函数，楼主对着上面的函数自己再写一下吧，就当是练手!