用excel连接sqlserver_Excel用VBA连接Access数据库查询窗体实例

“ 连接数据库，并将筛选后的语句写入建立的窗体中，便于查阅”

01

—

窗体样式

02

—

代码实例

Option Explicit              '打开强制声明Dim con As ADODB.Connection  '声明连接对象变量Dim rs As ADODB.Recordset    '声明记录集对象变量'一、窗体加载事件，加载去重后的部门名称Private Sub UserForm_Initialize()    '1.建立数据库连接    Set con = New ADODB.Connection        With con        .Provider = "microsoft.ace.oledb.12.0"        .ConnectionString = "C:\Users\cgdwemin.ASIA.000\Desktop\学生管理.accdb"        .Open    End With            '2.提取不重复的部门名称    Dim Access_Sql As String, i As Integer    Access_Sql = "select distinct 部门 from 员工