VBA链接数据库

VBA连接 ORACLE 需要安装 OO4O （Oracle Objects for OLE）组件。

可以到 ORACLE 公司下载：

http://www.oracle.com/technology/global/cn/software/tech/windows/ole/index.html

下载以后安装就行了，请注意，安装到你要运行VBA的计算机上。

这个是在网上搜到的东西，没有安装PostgreSQL，所以不能验证。你自己试试。

Sub Main()

  Dim cn as New ADODB.Connection

  Dim rs as New ADODB.Recordset

    'Open the connection

    cn.Open "DSN=PostgreSQLUID=davePWD=password"

    'Open the recordset

    rs.Open "SELECT relname FROM pg_class", cn

    'Loop though the recordset print the results

    While Not rs.EOF

      Debug.Print rs!relname

      rs.MoveNext

    Wend

    'Cleanup

    If rs.State <> adStateClosed Then rs.Close

    Set rs = Nothing

    If cn.State <> adStateClosed Then cn.Close

    Set cn = Nothing

  End Sub

以上代码使用时 要注意工程里库的引用

---