vb连接oracle的问题

[hawkoffree]

采用Microsoft OLE DB Provider for Oracle 驱动连接,代码如下
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
With cn
.ConnectionString = "Provider=MSDAORA.1;Password=Admin999;User ID=Admin;Data
Source=open2000;Persist Security Info=True"
.Open
End With
End Sub
在调试状态下运行没问题,编译成可执行文件运行时出错信息:
Run-time error '-2147467259 (80004005)':
发生了一个Oracle错误,但无法从Oracle中检索错误信息.
实在找不到原因,大虾救命

[w3k]

顶

[深渊的水影]

调试状态下没问题，会不会是其他地方的问题。。。一定是连数据库时的问题嘛？？

[阿泰]

这个打开oracle的方法没错

[daisy8675]

Standard security:

"Provider=msdaora;Data Source=MyOracleDB;User Id=UserName;Password=asdasd;"
This one's from Microsoft, the following are from Oracle
Standard Security:

"Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;User Id=Username;Password=asdasd;"



Trusted Connection:

"Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;OSAuthent=1;"

//看你的连接字符是没有错的，确认下你的数据库是否连接正确，然后设置超时间为0
或者看是哪个地方出错，关闭时还是打开时候？

[strider023]

先用ado控件连接一次，然后把connectstring拷出来，再用ado对象连接，这样一般不会出错了

[fishyx]

我也遇到这个问题了

[任何风]

你用的是ORACLE什么版本了，试试下面的连接方式可以吗
With DB
.ConnectionString = "Provider=OraOledb.Oracle.1;" & _
"password=" & OraPw & ";" & _
"User ID =" & OraUs & ";" & _
"Data Source=" & OraSid & ";" & _
"Locale Identifier=2052"
.Open
End With

[aperyx]

會不會是游標的問題,加上CursorLocation = adUseClient試試