EXCEL调用PLSQL语句出现错误！

gy12222

用EXCEL的宏执行PLsql语句错写错误，请各位大侠帮忙看看！

gy12222

Sub linkOracle()

    Dim strConn As String  '连接字符串
  Dim dbConn As Object  '连接对象
    Dim resSet As Object  '查询结果集.
   Dim db_sid, db_user, db_pass As String 'sid,用户名,密码

    '设置自己的链接数据
    db_sid = "oss"
    db_user = "npo"
    db_pass = "npo1234"

    '创建对象
    Set dbConn = CreateObject("ADODB.Connection")
    Set resSet = CreateObject("ADODB.Recordset")
    '拼接链接字符串 下面两个选一个.
    'strConn = "Provider=OraOLEDB.Oracle.1; user id=" & db_user & "; password=" & db_pass & "; data source = " & db_sid & "; Persist Security Info=True"
    strConn = "Provider=MSDAORA; user id=" & db_user & "; password=" & db_pass & "; data source = " & db_sid & "; Persist Security Info=True"


    '-----打开数据库----
    dbConn.Open strConn
    '执行查询
    Set resSet = dbConn.Execute("select * from c_lte_lncel")

    '打印表头
    For j = 0 To resSet.Fields.Count - 1
      Cells(1, j + 1) = resSet.Fields(j).Name
    Next

    '粘贴结果
    Range("A2").CopyFromRecordset resSet

    '-----关闭连接----
    dbConn.Close '关闭数据库
End Sub

gy12222

没有人回答啊

文刀天可

这个要连接数据库，大家不好测试，还有就是你没有指出出现了什么样子的错误，问题没有指向性哦

gy12222

错误是编辑的宏与orace数据库连接不上。有的电脑就可以使用，有的就不行。不清楚是否还要设置那些数值

huang1314wei

gy12222 发表于 2018-3-20 20:51
错误是编辑的宏与orace数据库连接不上。有的电脑就可以使用，有的就不行。不清楚是否还要设置那些数值

有的不行是指的什么呢？不行的话，提示哪句代码出错呢？

gy12222

1. Sub linkOracle()
   
2. 
   
3.     Dim strConn As String  '连接字符串
   
4.   Dim dbConn As Object  '连接对象
   
5.     Dim resSet As Object  '查询结果集.
   
6.    Dim db_sid, db_user, db_pass As String 'sid,用户名,密码
   
7. 
   
8.     '设置自己的链接数据
   
9.     db_sid = "oss"
   
10.     db_user = "npo"
    
11.     db_pass = "npo1234"
    
12. 
    
13.     '创建对象
    
14.     Set dbConn = CreateObject("ADODB.Connection")
    
15.     Set resSet = CreateObject("ADODB.Recordset")
    
16.     '拼接链接字符串 下面两个选一个.
    
17.     'strConn = "Provider=OraOLEDB.Oracle.1; user id=" & db_user & "; password=" & db_pass & "; data source = " & db_sid & "; Persist Security Info=True"
    
18.     strConn = "Provider=MSDAORA; user id=" & db_user & "; password=" & db_pass & "; data source = " & db_sid & "; Persist Security Info=True"
    
19. 
    
20. 
    
21.     '-----打开数据库----
    
22.     dbConn.Open strConn
    
23.     '执行查询
    
24.     Set resSet = dbConn.Execute("select * from c_lte_lncel")
    
25. 
    
26.     '打印表头
    
27.     For j = 0 To resSet.Fields.Count - 1
    
28.       Cells(1, j + 1) = resSet.Fields(j).Name
    
29.     Next
    
30. 
    
31.     '粘贴结果
    
32.     Range("A2").CopyFromRecordset resSet
    
33. 
    
34.     '-----关闭连接----
    
35.     dbConn.Close '关闭数据库
    
36. End Sub
    

复制代码

gy12222

为了方便大家测试，做了一个简单测试。这个测试在几个电脑上是出现错误提示（附件有截图）！而其他电脑可以正常连接！

gy12222

'-----打开数据库----
    dbConn.Open strConn  
这个就错误了，连接不上数据库。使用的是Oracle+plsql

gy12222

没有人知道吗？