原由：

Win7 x64平台，Vb6程序启动，直接启用不了；

Vb6比较古老了，应当是石器时代的产物；这错误一看应当与oracle环境变量有关，而朋友确认装了oracle 9i client 32位。

经过：

由于程序写的比较扯淡，没有对错误异常抛出正确的信息，幸好手上还有源码，按f8单步执行看了一下，下面调试部分直接报：ora-06413:连接未打开。看了代码，比较通用的一个用ado打开数据库的代码，增加红色部分，重新生成vb程序，省得每次都单步调试。

FunctionOpenDBConnection(cnAsADODB.Connection,strCnnAsString)AsBoolean
OnErrorGoToOpenMainSybaseError
Setcn=NewADODB.Connection
Withcn
.CursorLocation=adUseClient
.ConnectionString=strCnn
.ConnectionTimeout=10
.Properties("Prompt")=adPromptNever
.Open
EndWith
OpenDBConnection=True
MsgBox"dbconnectstringis"+strCnn
ExitFunction
OpenMainSybaseError:
MsgBoxErr.Description
OpenDBConnection=False
EndFunction

再次启动程序好了，错误直接甩出来：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:ProgramFiles(x86)CommonFilesSystemOleDB

貌似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，发现：

***********************************************************************
FatalNIconnecterror6413,connectingto:
(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))))

VERSIONINFORMATION:
TNSfor32-bitWindows:Version10.2.0.1.0-Production
Time:12-12月-201621:20:45
Tracingnotturnedon.

基本猜出问题所在了(哎，靠猜的-_-!!)。

打开调式程序,再次数据链接属性：

终于成功了（可以放鞭炮了）。

结论：

没事别在路径里加括号，不然你会死的很没面子；代码里加点异常处理也不会增加很大的工作量，亦可造福后人；

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!