实例1分级标题栏

1. 查看模式
2. 编辑模式
3. 万物之源
4. ACCESS

第12、13、14讲

代码

Option Explicit
Dim con As ADODB.Connection     '声明连接对象变量
Dim rs As ADODB.Recordset       '声明记录集对象变量
'释放变量空间、关闭数据库连接、关闭窗体
Private Sub cmdClose_Click()
con.Close
Set rs = Nothing
Set con = Nothing
Unload Me
End Sub
'鼠标选择某个部门，相当于单击列表框，单击列表框，查询所选部门的员工
'提取员工的编号和姓名，避免姓名重复的问题
Private Sub lstBM_Click()
Dim sql As String, i As Integer
sql = "select 编号,姓名 from 员工 where 部门='" & lstBM.Value & "' order by 编号"
rs.Open sql, con, adOpen