[已解决]用VBA连接ORACLE数据库的问题？

tianketang

Sub connectTOORACLE()
Dim strconnt As String
Dim connt As ADODB.Connection
Set connt = New ADODB.Connection
Dim rs As Object
Set rs = New ADODB.Recordset
Dim sevip, Db, user, pwd As String
'设服务器地址、所连数据，及登录用户密码
sevip = "192.168.10.251"
Db = "test251"
user = "test0804"
pwd = "hr654"
strconnt = "rovider=OraOLEDB.Oracle;sevip=192.168.10.251assword=hr654;User ID=test0804;Data Source=test251;"
connt.ConnectionString = strconnt
connt.Open
Dim rsPubs As ADODB.Recordset
Set rsPubs = New ADODB.Recordset
With rsPubs
    ' Assign the Connection object.
    .ActiveConnection = connt
    ' Extract the required records.
    .Open "select * from sm_user where user_name like '刘%'"
    ' Copy the records into cell A1 on Sheet1.
    Sheet3.Range("A1").CopyFromRecordset rsPubs
    ' Tidy up
    .Close
End With
connt.Close
Set rsPubs = Nothing
Set connt = Nothing
End Sub用Provider=OraOLEDB.Oracle能够连接ORACLE,并查询出数据；而用DRIVER={Microsoft ODBC for Oracle}代替却无法连接ORACLE.请教是什么原因？

最佳答案

月排行榜 / 总排行榜

吕?布

2011-9-2 16:42

可以用那种数据库连接字串自动生成的工具自动生成试试

跳转到最佳答案楼层

tianketang

提示的错误信息是：[Microsfot][ODBC驱动程序管理器]驱动程序的SQLSETConnectAttr失败

兰色幻想

能查出不就行了？

吕?布

驱动有吗？手动能不能建立呢

tianketang

回复 吕?布 的帖子

系统驱动和用户驱动都建立了

吕?布

搞不清了，没装过Oracle

吕?布

可以用那种数据库连接字串自动生成的工具自动生成试试

tianketang

谢谢您的帮助！

吕?布

问题解决了没？

wcg剑客