《ADO简介及语法VBA》由会员分享，可在线阅读，更多相关《ADO简介及语法VBA（5页珍藏版）》请在金锄头文库上搜索。
1、-二、ADO 简介及语法 ADO 使用帮助（CHM 文件，试试用在你的电脑中用 ADO210.CHM 搜索，如找不到请下载下面的）点击浏览该文件 点击浏览该文件 点击浏览该文件 点击浏览该文件-三、DAO VB 通过 DAO 访问 Access数据库点击浏览该文件-六、实例分析Dim CNN As New ADODB.Connection 定义一个新的 ADO 对象连接 Dim RS T As New ADODB.Recordset 定义一个 ADO 对象数据集 Dim Stpath, strSQL As String 定义路径、查询变量 Stpath = ThisWorkbook.Path
2、& Application.PathSeparator & 学生档案.mdb定义路径及文件名 CNN.Open provider=Microsoft. jet.OLEDB.4.0;data source= & Stpath & ;Jet OLEDB:Database Password= & 123打开链接：provider=Microsoft.jet.OLEDB.4.0是软件提供者为 Microsoft.jet.OLEDB.4.0data source= & Stpath 是链接数据源为 Stpath Jet OLEDB:Database Password= & 123是如果 ACCESS 数
3、据库设置有保护密码，此句必不可少If ComboBox3.Value = Then 如果性别的框中为空则strSQL = Select * from 档案 WHERE 籍贯 LIK E & ComboBox2.Value & 从档案表中查找籍贯为ComboBox2 的记录Select*是查找所有符合条件的字段,如果想查找符合条件并显示出具体字段,可以用SELECT 字段名1,字段名2.from 档案是从档案表中 查找符合 籍贯 LI KE & ComboBox2.Value & 的记录WHERE后为查找的条件 ElseIf ComboBox2.Value = Then strSQL = Sel
4、ect * from 档案 WHERE 性别 LIK E & ComboBox3.Value & Else strSQL = Select * from 档案 WHERE 性别 LIKE & Comb oBox3.Value & & AND 籍贯 LIKE & ComboBox2.Value & End If以上几句为当选取项目不同时设置不同的查找语句 RST.Open strSQL, CNN打开记录集 recordset.Open Source(来记录来源), Act iveConnection(打开的链接) Sheet1.Range(A2:G100).ClearContents Sheet
5、1.Cells(2, 1).CopyFromRecordset RSTCopyFromRecordset 方法将一个 ADO 或 DAO Reco rdset 对象的内容复制到工作表中，复制的起始位置在指定区域的左上角,Shee t1.Cells(2, 1).CopyFromRecordset RST 为把查找到的记录得制到以 Sheet1.Cells(2, 1)为顶点的单元格区域中 RST.Close 关闭记录集Set RST = Nothing释放对象变量 Set CNN = NothingOn Error GoTo 100 If TextBox1.Text = Then MsgBox 请
6、输入姓名, 1 + 16, 系统提示 TextBox1.SetFocus Else Dim CNN As New ADODB.Connection Dim RST As New ADODB.Recordset Dim Stpath, strSQL As String Stpath = ThisWorkbook.Path & Application.PathSeparator & 学生档案.mdbCNN.Open provider=Microsoft.jet.OLEDB.4.0;data source= & Stpath & ;Jet OLEDB:Database Password= & 123
7、 strSQL = Select * from 档案 WHERE 姓名 LIKE & TextBox1.Value & RST.Open strSQL, CNN TextBox2.Value = RST.Fields(年 龄).V alue TextBox4.Value = RST.Fields(性别).Value TextBox5.Value = RST.Fields(籍贯).V alue RST.Close Set RST = Nothing Set CNN = Nothing End If Exit Sub 100: MsgBox 找不到符合条件的记录, 1 + 16, 系统提示 实现查
8、询功能（DAO）On Error GoTo 100 If TextBox1.Text = Then MsgBox 请输入姓名, 1 + 16, 系统提示 TextBox1.SetFocus Else Dim RS1 As Recordset Dim DB1 As Database Set DB1 = OpenDatabase(ThisWorkbook.Path & & 学生档案.MDB) Set RS1 = DB1.OpenRecordset(Name:=档案, Type:=dbOpenDynaset) RS1.FindFirst 姓名= & TextBox1.Value & If RS1.N
9、oMatch = True Then MsgBox 对不起，没有该记录 RS1.Close Exit Sub Else TextBox2.Value = RS1.Fields(年龄 ).Value TextBox4.Value = RS1.Fields(性别).Value Te xtBox5.Value = RS1.Fields(籍贯).Value TextBox6.Value = RS1.Fields(联系电话).Value End If RS1.Close Set RS1 = Nothing Set DB1 = Nothing End If Exit Sub 100: MsgBox 找不到
10、符合条件的记录, 1 + 16, 系统提示-3：实现数据输入功能（利用 DAO）代码：Dim RS1 As Recordset Dim DB1 As Database On Error GoTo 1000 Set DB1 = OpenDatabase(ThisWorkbook.Path & & 学生档案.M DB) Set RS1 = DB1.OpenRecordset(Name:=档案, Type: =dbOpenDynaset) With RS1 .AddNew .Fields(姓名 ).Value = Me.TextBox1.Value .Fields(年龄).Value = Me.Te
11、xtBox2.Value .Fields(性别).Value = Me.TextBox4.Value .Fields(籍贯).Value = Me.TextBox5.Value .Fields(联系电话).V alue = Me.TextBox6.Value .Update MsgBox 档案表中 增加了一条记录! End With DB1.Close Exit Sub-4：实现修改指定记录功能On Error GoTo 100 If TextBox1.Text = Then MsgBox 请输入姓名 , 1 + 16, 系统提示 TextBox1.SetFocus Else Dim RS1
12、As Recordset Dim DB1 As Database Set DB1 = OpenDatabase(ThisWorkbook.Path & & 学生档案.MDB) Set RS1 = DB1.OpenRecordset(Name:=档案, Type :=dbOpenDynaset) RS1.FindFirst 姓名= & TextBox1.Value & RS1.Edit RS1.Fields(年龄).Value = TextB ox2.Value RS1.Fields(性别 ).Value = TextBox4.Value RS1.Fields(籍贯 ).Value = Text
13、Box5.Value RS1.Fields(联系电话).V alue = TextBox6.Value RS1.Update RS1.Close Set RS1 = Nothing Set DB1 = NothingEnd If Exit Sub 100: MsgBox 找不到符合条件的记录 , 1 + 64, 系统提示-5：实现删除指定记录功能On Error GoTo 100 If TextBox1.Text = Then MsgBox 请输入姓名, 1 + 16, 系统提示 TextBox1.SetFocus Else Dim RS1 As Recordset Dim DB1 As Da
14、tabase Set DB1 = OpenDatabase(ThisWorkbook.Path & & 学生档案.M DB) Set RS1 = DB1.OpenRecordset(Name:=档案, Type: =dbOpenDynaset) RS1.FindFirst 姓名= & TextBox1.Value & RS1.Delete RS1.Update RS1.Close Set RS1 = Nothing Set DB1 = Nothing End If Exit Sub 100: MsgBox 找不到符合条件的记录, 1 + 64, 系统提示-6：实现排序功能例：查询结果按年龄字段排序str
