ado连接oracle报错如下，请高手指教！谢谢！在线等。

Question

我用ADO连接ORACLE数据库，已经在tnsnames中建立了连接串yxgl，请
高手帮忙指教要怎么样连接才是正确的，很急，在线等，谢谢了！
Private Sub cmd_Click()Dim str As String
Dim cn As ADODB.Connection
Dim Qy As ADODB.Commandstr = "Provider=MSDAORA.1;Password=sms;Persist Security Info=True;User ID=sms;Initial Catalog=yxgl;server=172.168.8.30"Set cn = New ADODB.Connectioncn.Open str
'在这里时报错为：
实时错误 ‘-2147217887 （80040e21)'
多步 OLE DB 操作产生错误。请检查每个OLE DB状态值。没有工作被完成。 
end sub

Answer 1

你的过程没问题,还是查查你的ORACLE客户端建立的问题吧

Answer 2

你用Oracle的 Sql/Plus工具连接一下看看,或者新建立一个文本文件,然后把文件属性改成.udl,用这个工具建立连接,然后用写字板打开udl文件,就可以看到数据库的连接串了

Answer 3

那你看看是不是你的Ado引用的版本太低了

Answer 4

ado应用是2.1的，用sql/plus也能连接的上

Answer 5

ado应用是2.5的以上的试试看,如果没有打个VB补丁

Answer 6

或者是教我VB中怎样用ADO的Command对象等ADO有关的连接等。