oo4o连接数据库问题，在线

Question

我的代码如下         if(!OStartup()) return false;
OSession osession;
osession.Open();
osession.BeginTransaction(); // start a transaction


oresult nConn;
nConn = m_pConnection.Open(osession, "mydb", "system", "manager");
long oraerr = osession.ServerErrorNumber();
const char *dberrs = osession.GetServerErrorText();
AfxMessageBox(dberrs); // tell user what 错误信息是：ORA-06413:连接未打开
请教怎么连阿？
我的客户端设置 服务名 mydb 

Answer 1

m_pConnection???给个VB的版本参考下:
Dim OraSession  As Object     'Declare variables as OLE Objects
Dim OraDatabase As Object
Dim OraDynaset  As Object Set OraSession  = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.DbOpenDatabase("SQL*Net_Connect_String", "scott/tiger", 0&)
  
MsgBox "Connected to " & OraDatabase.Connect & "@" & OraDatabase.DatabaseName
MsgBox "OO4O Version:   " & OraSession.OIPVersionNumber 
MsgBox "Oracle Version: " & OraDatabase.RDBMSVersion

Answer 2

这个应该对你有用:
main() 
{ 
OSession sess; 
ODatabase db; 
OValue val; 
OStartup(); 
db.Open(sess, "exampledb", "scott", "tiger", 0); 
sess.Close(); 
db.Close(); 
oval.Clear(); //only needed if OValue can contain an object 
OShutdown(); 
} 

Answer 3

才发现是vc的oo4o,拿我可就不会了，vb倒是研究过挺长时间。