VB6的rdo与oracle10g的链接串怎写

[阿阳888]

各位兄弟姐妹,请帮忙:

我这里有一个vb6的程序
原来是连oracle8.17开发的
我装的是oracle8.17.
我这里打开源码可以运行.

但现在我的机器装的是10g,现在运行不了
但我重装oracle8.17，又可以运行

源码如下:
Puser = "dsadmin10"
Ppassword = "aa"
OracleServer = "ss"

' Set gOraSN = CreateObject("OracleInProcServer.XOraSession")
' Set gOraDB = gOraSN.OpenDatabase(OracleServer, Puser + "/" + Ppassword, 0&)
Pint = 0
' modifedy by wcy
GConnectStr = "UID=" + Trim(Puser) + ";PWD=" + Trim(Ppassword) + ";Driver={Oracle ODBC Driver};DBQ=" + OracleServer

Set Grdocn = New rdoConnection
Grdocn.CursorDriver = rdUseOdbc
Grdocn.Connect = GConnectStr
Grdocn.QueryTimeout = 60
' Grdocn.LoginTimeout = 30000
Grdocn.CursorDriver = rdUseOdbc
Grdocn.EstablishConnection rdDriverNoPrompt
If Pint = 1 Then
Set Grdors = Grdocn.OpenResultset("select ochar from doption where otype=10", 3)

但，我们一定要升到10g的
是不是驱动程序有问题

配置如下:10g客户端可以连通:
ss.gnpjvc.cgnpc.com.cn =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = ORAXORACLE)(PORT = 1521))
(ADDRESS = (PROTOCOL = TCP)(HOST = ORAXORACLE)(PORT = 1525))
)
(CONNECT_DATA =
(SID =ORCL)
)
)

[csuker]

你装完10G后,在命令行执行一下.TNSPING ss.gnpjvc.cgnpc.com.cn看通不通.估计是装完10G的设置问题.
或者在VB里放个ADO控件,在控件里直接连一下,如果行的话就生成连接串.