|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 qiufu2011 于 2024-5-20 09:44 编辑
做了个vba 连接orcle数据库,原来的orcle版本是11g,用以下代码连接正常,数据库升级了orcle 19c 版本,就出现如下错误:方法‘open’ 作用于对象‘_connection’
原先连接的代码如下:
Sub lj()
Application.ScreenUpdating = False
Dim strConn As String '连接字符串
Dim dbConn As Object '连接对象
Dim resSet As Object '查询结果集
Dim db_sid, db_user, db_pass As String 'sid,用户名,密码
'设置自己的链接数据
db_sid = Sheet3.[a2]
db_user = Sheet3.[b2]
db_pass = Sheet3.[c2]
'创建对象
Set dbConn = CreateObject("ADODB.Connection")
Set resSet = CreateObject("ADODB.Recordset")
'拼接链接字符串 下面两个选一个
strConn = "Provider=MSDAORA.1; user id=" & db_user & "; password=" & db_pass & "; data source = " & db_sid & "; Persist Security Info=True"
'-----打开数据库----
dbConn.Open strConn
Sql = "update lsb_fdmcb set mm='" & Sheet3.[d4] & "' where gh='" & Sheet3.[b4] & "'"
Set resSet = dbConn.Execute(Sql)
dbConn.Close '关闭数据库
End Sub
麻烦各位大神帮忙解决!!!!!
|
|