原由:
Win7 x64平台,Vb6程序启动,直接启用不了;
Vb6比较古老了,应当是石器时代的产物;这错误一看应当与oracle环境变量有关,而朋友确认装了oracle 9i client 32位。
经过:
由于程序写的比较扯淡,没有对错误异常抛出正确的信息,幸好手上还有源码,按f8单步执行看了一下,下面调试部分直接报:ora-06413:连接未打开。看了代码,比较通用的一个用ado打开数据库的代码,增加红色部分,重新生成vb程序,省得每次都单步调试。
Function OpenDBConnection(cn AsADODB.Connection, strCnn As String) As Boolean On Error GoTo OpenMainSybaseError Set cn = New ADODB.Connection With cn .CursorLocation = adUseClient .ConnectionString = strCnn .ConnectionTimeout = 10 .Properties("Prompt") = adPromptNever .Open End With OpenDBConnection = True MsgBox "dbconnectstring is " + strCnn Exit Function OpenMainSybaseError: MsgBox Err.Description OpenDBConnection = False End Function
再次启动程序好了,错误直接甩出来:ORA-06413连接未打开
看了下连接字符串:
Provider=MSDAORA;data source=ora;UserId=cxf1;Password=test;Unicode=True
用的msdaora,tnsping ora了一下,没有问题;那么问题来了,msdaora的问题?这个驱动在官方确实有说明
https://www.microsoft.com/en-US/download/details.aspx?id=20065
只有2003和xp的版本了,不过后来检查
C:\Program Files (x86)\Common Files\System\Ole DB
貌似64位下直接有这三个文件:msdaOra.dll,msdaosp.dll,msdaOrar.dll 并不需要额外的驱动;
但既然怀疑到这了,尝试用了OraOleDb.Oracle.1,换了个错误 ,居然报tns-12514,看样子还是与环境变量有关。后面的故事比较无聊,纯属安装卸载,卸了ora92版本,重新安装oracle 10g client,依旧,卸载10g client装11g 依旧,32位都不行,要不试试64位,装上11g 64位,直接报驱动没启用:
有点病急乱投医了,好了,理理思路:
1 64位肯定不行,因为那时32位的vb压根儿不知道64位的事情;
2 10g的32位client既然能到tsn-12514证明,这个驱动应当是可用的,只是环境变量不对;
重新上了下oracle的官网,说提供了32位的odac驱动,
http://www.oracle.com/technetwork/topics/dotnet/utilsoft-086879.html
好家伙,直接下载了个10G的最低版本,为啥最低,各位懂的,vb6这个元老用老的不出错;结果装不上,正常,10g嘛,装在64位上要更改oraparam.ini,
[Certified Versions]
#You can customise error message shown for failure,provide value for CERTIFIED_VERSION_FAILURE_MESSAGE
Windows=4.0,5.0,5.1,5.2,6.0,6.1
好,OK装上了,测试ODBC,一切正常,万事OK,一开程序,依旧报ora-06413.
没辙了,看看sqlnet.log,发现:
*********************************************************************** Fatal NI connect error 6413, connecting to: (DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=115.29.114.XXX)(PORT=1521)))(CONNECT_DATA=(SERVICE_NAME=orcl)(CID=(PROGRAM=C:\test()\ttest.exe)(HOST=SNOWIND-PC)(USER=snowind)))) VERSION INFORMATION: TNSfor 32-bit Windows: Version 10.2.0.1.0 - Production Time: 12-12月-2016 21:20:45 Tracing not turned on.
基本猜出问题所在了(哎,靠猜的-_-!!)。
打开调式程序,再次数据链接属性:
终于成功了(可以放鞭炮了)。
结论:
没事别在路径里加括号,不然你会死的很没面子;代码里加点异常处理也不会增加很大的工作量,亦可造福后人;