Ecel VBA编程 典型实例——读取ACCESS数据.docxVIP

Excel VBA 编程 典型实例——读取 ACCESS 数据 利用 VBA ，不仅可以对文本文件进行操作，还可以对Office其他组件进行操作。例如，通过ADO 读取ACCESS 中的数据，这样使得Excel更加灵活。 练习要点 使用 ADO 连接查询数据库数据 操作步骤 启动 Excel 200，7 并打开VBE 窗口，新建一个用户窗体，设置其 Caption为“人员信息查询”。 添加控件在该窗体中，添加一个多页控件，设置其中一个页为“查找”，并在该页中添加如图 18-8所示的控件。 添加控件 图 18-8 添加控件 设置另一个页为“资料”，并添加如图 18-9所示的控件。 设置“资料”页图 设置“资 料”页 添加在页控件下面添加一个命令按钮，并设置其 Caption属性为“关闭”，如图18-10所示。 添加 图 18-10 添加按钮 打开该窗体的【代码】窗口，在窗体的Initiali事ze件代码。 声明 ADO 连接对象 声明 ADO 连接对象 Dim cnn As ADODB.Connection 声明 ADO 命令对象 Dim cmd As ADODB.Command Private Sub UserForm_Initialize() Dim strCon As String 为复合框添加数据 cbxFind.AddItem身份证号码 cbxFind.AddItem 姓 名 cbxFind.AddItem 出 生 日 期 cbxFind.AddItem 单 位 名 称 cbxFind.ListIndex = 0 设置列表框为 3 列 lstInfo.ColumnCount = 3 设置列表框各列的宽度lstInfo.ColumnWidths = 20;100;60 设置列表框各列的宽度lstInfo.ColumnWidths = 20;100;60 新建连接对象 Set cnn = New ADODB.Connection 定义连接字符串 strCon = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= _ ThisWorkbook.Path 数\据库.mdb 设置连接参数 cnn.ConnectionString = strCon 新建命令对象 Set cmd = New ADODB.Command 打开“查找”页Me.MultiPage1.SelectedItem.Index = 0 End Sub 设置“查找”按钮的Click事件。 Private Sub cmdFind_Click() Private Sub cmdFind_Click() 声明保存 SQL 语句Dim strSql As String Dim rs As ADODB.Recordset 说明数组 Dim aRs(100, 3) As String Dim i As Integer If txtKey.Value = Then MsgBox 请输入查询关键字 txtKey.SetFocus Exit Sub End If 根据不同字段生成查询 Select Case cbxFind.Value Case 身份证号码 strSql= Select* From 人员信息txtKey.Value % Case 姓名 strSql= Select* From 人员信息txtKey.Value % Case 出生日期 Where Identifcard_iLdike % Where Member_Name Like % # 判断日期格式是否正确 If IsDate(txtKey.Value) Then strSql= Select* From 人员信息 Where Birthday=# txtKey.Value Else MsgBox 请输入正确的日期格式！ txtKey.SetFocus Exit Sub End If Case 单位名称 strSql = Select a.Identifcard_id,a.Member_Name,b.unit_name _ From 人员信息 AS a,工作单位 AS b _ Where a.unit_id=b.unit_id AND b.unit_name Like % txtKey.Value % End Select 打开 ADO 连接cnn.Open 设置命令对象的连接属性cmd.ActiveConnection = cnn 设置命令对象执行的 SQL 语句cmd.CommandText = strSql 执行 SQL 语句,将结果保存在记录集中Set rs = cmd.Execute() i = 0