【VBA】通过ADODB实现读取数据库数据

说明：以读取SQL Server数据库为例介绍。

测试代码：

Option Explicit
Sub ReturnSQLrecord()
    Dim i As Integer
    Dim sht As Worksheet

    Dim cn As Object
    Set cn = CreateObject("ADODB.Connection") '定于数据连接信息

    Dim rs As Object
    Set rs = CreateObject("ADODB.Recordset")  '定义记录集对象，保存数据表
    Dim strCn As String
    Dim strSQL As String

    strCn = "Provider=sqloledb;Server=(local);Database=student;Uid=text1;Pwd=small;"    '定义数据库连接字符串
    cn.Open strCn  '连接数据路
    
    strSQL = "select * FROM dbo.student1"    'SQL 语句
    rs.Open strSQL, cn, 3, 3  '生成记录集

    Set sht = ThisWorkbook.Worksheets("sheet1")
  
    rs.Find "NO = 005"   '筛选
    If rs.EOF <> True Then
        sht.Cells(1, 1) = rs("NO") & "=" & rs("name")   '赋值
    End If
    rs.Close
    cn.Close
End Sub

效果演示：