数据库 第14章 ADO数据控件与数据绑定控件.pptVIP

第14章 ADO数据控件与数据绑定控件 14.1面向对象的程序设计方法 14.2VB窗体设计 14.3ADO数据控件 14.4数据绑定控件 14.5 ADO对象 Private Sub Command6_Click() If MsgBox(确实要删除此记录吗?, 1, 删除记录) = vbOK Then sqlstudent.Recordset.Delete sqlstudent.Recordset.MoveNext If sqlstudent.Recordset.EOF = True Then sqlstudent.Recordset.MoveLast End If End If End Sub 删除按钮事件代码： 演示例子：属性Fields.value的应用。 Private Sub Command1_Click() If Len(Textsno.Text) 0 Then sqlstudent.CommandType = adCmdText sqlstudent.RecordSource = select * from student where sno= Trim(Textsno.Text) sqlstudent.Refresh Text1.Text = sqlstudent.Recordset.Fields(sname).Value Text2.Text = sqlstudent.Recordset.Fields(ssex).Value Text3.Text = sqlstudent.Recordset.Fields(sage).Value Else MsgBox (请输入要查找的学号！) End If End Sub sqlstudent.Refresh sqlstudent.Recordset.Find (sno= Trim(Textsno.Text) ) 注意：两种方法的区别。 方法find的应用。 recordset对象主要属性和方法： (1)Bof (2)Eof (3)Recordcount (4)Sort (5)Absoluteposition (6)Activecommand (7)Activeconnection (8)bookmark (9)Fields ①F ②Fields.value ③Fields.ordinalposition ④Fields.size ⑤Fields.type ⑥Fields.sourcetable ⑦Fields.sourcefield (1)move方法组 Movefirst Moveprevious Movenext Movelast (2)Addnew (3)Update (4)Delete (5)Cancelupdate (6)Find 14.4数据绑定控件 数据绑定控件——能实现将结果集中的数据显示出来的 功能的控件。 VB常用的数据绑定控件 标准控件 Textbox Checkbox Listbox Combobox ActiveX控件 Datacombo Datalist Datagrid Datasource Datafields 14.4.1 DataGrid控件 1. DataGrid控件的主要属性 注意：这样设置列属性后，则在运行中不能更改与数据源连接的表或select语句。 建议：使用DataGrid1.Columns(0).Caption来改变列标题的显示。 演示例子： Form初始化事件代码： Private Sub Form_Initialize() DataGrid1.Columns(0).Caption = 学号 DataGrid1.Columns(1).Caption = 姓名 DataGrid1.Columns(2).Caption = 性别 DataGrid1.Columns(3).Caption = 年龄 DataGrid1.Columns(4).Caption = 系部 End Sub 查询按钮单击事件代码： Private Sub Command1_Click() If Len(Textsearch.Text) 0 Then sqlstudent.Co