vb数据库查询操作.pptVIP

10 数据库查询操作 查询SQL Recordset对象 DataGrid对象 Recordset的进一步操作 1 查询SQL 列出指定的内容：SELECT 列1，列2，…… from 表 where 条件 列出所有的列：SELECT * from 表 where 条件 select * from booklist where bookname like %大学% 列出所有的行：SELECT * from 表 Ado技术 使用ADO控件需要先执行“工程”中的“引用”，在Microsoft ActiveX Data Objects 2.7 Library之前打勾(2.0起都可以） 连接字符串 Driver={Microsoft Access Driver (*.mdb)}; DBQ= App.Path \数据库文件 2 Recordset对象 Recordset对象又称为记录集对象，是ADO中进行数据库查询的重要对象 使用如下格式可以定义一个Recordset对象Dim 对象名 As New ADODB.Recordset如：Dim rs1 As New ADODB.RecordsetDim rs2 As New ADODB.Recordset 用Recordset对象列出数据库内容 Dim rs As New ADODB.Recordset rs.Open SQL语句, 连接字符串, adOpenKeyset 这里adOpenKeyset是一种记录集类型，可以有其他类型，可查阅参考资料 使用完之后 rs.close 关闭rs对象，释放内存 4 DataGrid对象 DataGrid对象可以将数据如表格展示。 使用DataGrid对象需要先在工具箱添加部件：Microsoft DataGrid Control 6.0 使用如下语句可以使DataGrid对象绑定到记录集对象：Set DataGrid对象.DataSource =记录集对象 例1：利用datagrid显示记录。利用文本框根据书名进行查询。 5 Recordset的进一步操作 Dim rs As New ADODB.Recordset rs.Open SQL语句, 连接字符串,记录集类型 rs.EOF 判断记录集是否到了结尾 rs.BOF 判断记录集是否到了第一条记录之前 rs.recordcount 记录集中的记录数 通过 rs(字段名) 访问记录集中的列 rs.MoveNext 移到下一条 rs.MovePrevious 移到上一条 rs.MoveFirst 移到第一条 rs.Close 关闭记录集 访问所有记录 Dim rs As New ADODB.Recordset rs.Open select * from booklist, 连接字符串 Do While Not rs.EOF 通过 rs(字段名)访问记录集中的列 rs.MoveNext Loop rs.Close 例2：将数据库中的数据放入列表框 DbConnectString = Driver={Microsoft Access Driver (*.mdb)}; DBQ= App.Path \books.mdb Dim rs As New ADODB.Recordset rs.Open select * from booklist, DbConnectString, adOpenKeyset Do While Not rs.EOF List1.AddItem rs(bookname) rs.MoveNext Loop rs.Close 例3：将数据库中的数据放入文本框 同时记录可以移动 例4：利用datagrid显示记录，利用列表框显示出版社，单击出版社，datagrid显示相应的记录 例5：用文本框输入一个数字，单击按钮将其存入数据库中，同时通过datagrid显示所有数字 例6：上例中利用列表框列出数据库的所有数据，选择一个列表框的数据，单击删除按钮，可以从数据库中删除该数据。 （可选）例：列表框1的内容为“类型”、“作者”、“出版社”，单击则在列表框2显示相应的内容，单击列表框2则在datagrid显示相应的书籍信息。 （可选）设计一个数据库系统，用于输入学生成绩。功能有添加成绩、修改成绩、删除成绩、统计学生人数、成绩及格率、平均成绩。 * *