程序里,可以连上服务器数据库,但不能对数据库操作,很简单的Select语句也会报错。Dim OraSession As Object dim OraDatabase As Object dim OraDynaset1 as objectSet OraSession = CreateObject("OracleInProcServer.XOraSession") Set OraDatabase = OraSession.OpenDatabase(strServiceName, strUser & "/" & strPassword, 0&) Set OraDynaset1 = OraDatabase.CreateDynaset("SELECT projectinfotableid From ProjectInfo WHERE procode = '" + strProcode + "' and probusi='" + strProbusi + "'", 0&) 由于客户端是8i的,代码里创建的oo4o对像也是8i的。但数据库连接信息9i,这样就操作不成功。有没有办法解决这个问题
dim OraDatabase As Object
dim OraDynaset1 as objectSet OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase(strServiceName, strUser & "/" & strPassword, 0&)
Set OraDynaset1 = OraDatabase.CreateDynaset("SELECT projectinfotableid From ProjectInfo WHERE procode = '" + strProcode + "' and probusi='" + strProbusi + "'", 0&)
由于客户端是8i的,代码里创建的oo4o对像也是8i的。但数据库连接信息9i,这样就操作不成功。有没有办法解决这个问题