用Excel VBA连接SQL Server数据库并将表中的数据显示到Excel中

最新推荐文章于 2024-08-17 10:12:39 发布

刘一哥GIS

最新推荐文章于 2024-08-17 10:12:39 发布

阅读量1.3w

点赞数 1

分类专栏：《GIS程序设计》

本文为博主「刘一哥GIS 」原创文章，未经博主允许不得转载或爬取，侵权必究！

本文链接：https://blog.csdn.net/lucky51222/article/details/51076533

版权

《GIS程序设计》专栏收录该内容

65 篇文章 646 订阅 ¥49.90 ¥99.00

订阅专栏

通过VB和OLEDB，本实例演示如何将SQL Server 2005数据库中的表数据导入到Excel的Sheet1中，实现Excel与数据库的交互。

摘要由CSDN通过智能技术生成

本实例使用VB语言和OLEDB类连接SQL Server 2005数据库。

在sheet1上右键→查看代码，加入如下代码：

Sub admin()
    Dim conn, xRs

    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PWD=abc;Initial Catalog=GoodLuck;Data Source=localhost"
    Set xRs = CreateObject("ADODB.RecordSet")
    
    sSql = " Select * from View_S_E"
    xRs.Open sSql, conn, 1, 3

    Sheet1.Cells.Clear
    Sheet1.Range("A1").CopyFromRecordset xRs
    xRs.Close
    
    conn.Close
    Set xRs = Nothing
    Set conn = Nothing
End Sub