Excel连接MSSQL LocalDB

硅谷少年

关于MSSQL LocalDB的内容目前论坛几乎是空白，我在此抛砖引玉，期待高手完善。

LocalDB是从sqlserver 2012起开始有的，对于习惯了mssql的人来说，这个适合本地使用，功能比sql express少但比 access多的多，独立安装包也不到50M，使用方便，目前最新版本是 localdb2016，与sqlserver2016绝大部分特性相似。
excel直接连sqlserver是没有问题的，包括连sql express也都很正常，但连接localdb会有所不同，因为是不同的provider。

点击 Excel数据菜单——获取数据——自其它源——自OLEDB，弹出对话框中，连接字符串写这个："provider=SQLNCLI11.1;initial catalog=你的数据库名称（例如test）;data source=你的数据源名称（例如(localdb)\mssqllocaldb）"
就能连接上了。
LocalDB 2012版本默认是(localdb)\v11.0
2014和2016是(localdb)\mssqllocaldb

这个过程我录制宏的连接字符串如下：
    ActiveWorkbook.Queries.Add Name:="ResultDeltaXML", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    源 = OleDb.DataSource(""provider=SQLNCLI11.1;initial catalog=你的数据库;data source=(localdb)\mssqllocaldb"")," & Chr(13) & "" & Chr(10) & "    DEVD1v11_CHINA_PDB_Database = 源{[Name=""你的数据库"",Kind=""Database""]}[Data]," & Chr(13) & "" & Chr(10) & "    dbo_Schema = 你的数据库_Database{[Name=""dbo"",Kind=""Schema""]}[Data]," & Chr(13) & "" & Chr(10) & "    数据表名_Table = dbo_Schema{[Name=""数据表名""" & _
        ",Kind=""Table""]}[Data]" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    数据表名_Table" & _
        ""
    ActiveWorkbook.Worksheets.Add

在VBA中连接localdb，目前仍有问题，
Set conn = CreateObject("ADODB.Connection")
这种方式，好像ado不支持localdb，总报错，没解决。

========分割线===================

2019/8/23，接着研究，终于搞定了：

1. Sub localdbtest()
   
2. Dim arr()
   
3.     Set conn = CreateObject("ADODB.Connection")
   
4.     conn.Open "provider=SQLNCLI11.1;initial catalog=test;data source=(localdb)\mssqllocaldb;Integrated Security=SSPI"
   
5.     Sql = "select * from t1"
   
6.     arr = conn.Execute(Sql).getrows
   
7.     conn.Close
   
8.     Debug.Print UBound(arr, 2)
   
9. End Sub

复制代码

输出的是获取到的记录条数。测试环境：LocalDB2016，win7 sp1 64位，office365 64位 1906预览版（excel2016）。

有时就是觉得差一口气就搞定了，睡一晚第二天一般就有进展。这些年修家电，写程序，做项目，多次遇到过这种情况。