如何在Delphi里通过Oracle提供的OLE对象来访问Oracle
环境:Delphi6; Oracle9i
我想通过oo4o里提供的OLE对象来访问本机上的Oracle数据库。结果在连接时就出错。麻烦大家帮我看看。
代码如下
Var
OraSession,OraDatabase:OleVariant; //全局变量
procedure TFormLogin.BtnLoginClick(Sender:TObject);
var
Param2:String;
begin
User:= Trim(EditUser.Text);
Password:=Trim(EditPassword.Text);
Server:= Trim(EditServer.Text);
Param2:= User+'/'+Password;
OraSession:= CreateOleObject('OracleInProcServer.XOraSession'); //这一步成功
OraDatabase:= OraSession.OpenDatabase(Server,Param2,$0); //报错:"未找到成员"
end;
其它供参考的信息有
我在VB里调用CreateObject("OracleInProcServer.XOraSession")以及OraSession.OpenDatabase(Server,Param2,&00)是完全正确的。我输入的参数如Server/User/Password一模一样。