Dim Cn As ADODB.ConnectionPrivate Sub Form_Load()
'使用合适的值代替以下用户ID,口令(PWD)和服务器名称(SERVER)
Conn = "UID=*****;PWD=*****;driver=" & "{Microsoft ODBC for Oracle};SERVER=MyOracle;"
Set Cn = New ADODB.Connection '创建Connection对象
With Cn
.ConnectionString = Conn
.CursorLocation = adUseClient
.Open
End With
....
....
'使用合适的值代替以下用户ID,口令(PWD)和服务器名称(SERVER)
Conn = "UID=*****;PWD=*****;driver=" & "{Microsoft ODBC for Oracle};SERVER=MyOracle;"
Set Cn = New ADODB.Connection '创建Connection对象
With Cn
.ConnectionString = Conn
.CursorLocation = adUseClient
.Open
End With
....
....
将错误提示说出来!
错误.381
trace 进去发现open还是正常的,但执行sql返回结果始终为空
tanaya(蜡笔小新) ,多谢了,。。但是还是不行。。一样的错误
_1_(www.jinesc.com) ,昨天我已经找到那个帖子了,所有的oracle连接字串都是一样的错误
愁阿
不知道客户为啥把那喜欢98....
结果还是一样... 凄惨,,
win2000是用ado2.5
win98是ado 2.0/2.1
在VB里重新编译一次就ok了...thanx!