2016excel VBA 怎么连接到本地posgresql(9.4)数据库进行数据查询

a826265210

刚开始学VBA，想从数据库里面直接查数据，但在网上找了很多连接数据库的方法，都是报错。求大神指教，谢谢！

huang1314wei

驱动下载安装了吗

a826265210

huang1314wei 发表于 2019-3-18 14:15
驱动下载安装了吗

已经下载安装，并测试已经连接成功
但在excel2016VBA里面运行代码就会提示报错：
run-time error’-2147467259（80004005）
AUtomation error
unspecified error
代码如下：
Sub text()
   Dim cn As New ADODB.connection
   Dim rs As New ADODB.Recordset
   Dim strcn As String, strSQL As String
  
  strcn = "DNS=postgreSQL35W;Database=postgres;uid=postgres;pwd=12312312"
  strSQL = "select * from big"
  cn.Open strcn
  rs.Open strSQL, cn
  rs.Close
  cn.Close
  Set rs = Nothing
  Set cn = Nothing
   
End Sub

huang1314wei

a826265210 发表于 2019-3-18 15:06
已经下载安装，并测试已经连接成功
但在excel2016VBA里面运行代码就会提示报错：
run-time error’-214 ...

你的excel是32位还是64位的，如果是64位的，你需要使用64位数据源，反正我用以下代码测试是没有问题的
我的电脑环境excel 2010 32位+win7 64位

Sub test()
    Dim cn As ADODB.Connection
    Dim rst As ADODB.Recordset, sql$
    Set cn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    cn.ConnectionString = "DRIVER={Devart ODBC Driver for PostgreSQL};PORT=5432;DATABASE=Test;HOST=localhost;PASSWORD=root;USER ID=postgres"
    cn.Open
    sql = "select * from MyTest"
    Set rst = cn.Execute(sql)
    MsgBox rst.Fields(0).Value
    rst.Close
    cn.Close
End Sub

a826265210

huang1314wei 发表于 2019-3-18 15:08
你的excel是32位还是64位的，如果是64位的，你需要使用64位数据源，反正我用以下代码测试是没有问题的
...

我的是excel 2016 64 位+win10 64

a826265210

huang1314wei 发表于 2019-3-18 15:08
你的excel是32位还是64位的，如果是64位的，你需要使用64位数据源，反正我用以下代码测试是没有问题的
...

我用了你的代码还是报错。
不知道是不是 database哪里有问题，因为我的查询语句big表是在database里面的damon_dp里面
Sub text()
   Dim cn As New ADODB.connection
   Dim rst As New ADODB.Recordset, sql$
   Set cn = New ADODB.connection
   Set rst = New ADODB.Recordset
   
   cn.ConnectionString = "DRIVER={Devart ODBC driver for postgreSQL};port=5433;database=damon;hots=localhost;password=123123;user id=postgres"
   
   
  
  cn.Open
  sql = "select * from big"
  Set rst = cn.Execute(sql)
  MsgBox rst.Fields(0).Value
  rst.Close
  cn.Close
  
  
   
End Sub

huang1314wei

a826265210 发表于 2019-3-18 15:25
我用了你的代码还是报错。
不知道是不是 database哪里有问题，因为我的查询语句big表是在database里面的 ...

你看一下是哪一句代码报错，如果是 cn.Open 报错，那肯定是连接字符串出问题，最好把你的postgresql 新建的数据库和表结构截一下图，看一下具体什么情况

a826265210

huang1314wei 发表于 2019-3-18 15:34
你看一下是哪一句代码报错，如果是 cn.Open 报错，那肯定是连接字符串出问题，最好把你的postgresql 新建 ...

没有提示这些报错，还是提示 run-time error
我刚重新发了一个贴，并附上了相关内容，请大神帮忙看看是不是什么位置不正确，谢谢

links:excel2016 VBA里面运行代码提示错误，求大神指教，谢谢！
http://club.excelhome.net/thread-1466540-1-1.html
(出处: ExcelHome技术论坛)