VB6 程序连Ora-06413解决手札

原由：

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.

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

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

终于成功了（可以放×××了）。

结论：

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