课件：vbVB数据库.ppt

Private Sub Data1_Validate(Action As Integer, Save As Integer) If Text1.Text = And (Action = 6 Or Text1.DataChanged) Then MsgBox 数据不完整，必须要有学号! Data1.UpdateControls End If If Action = 1 And Action = 4 Then Command1.Caption = 新增 Command3.Caption = 修改 Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False End If End Sub 谢谢观看 THANK YOU SUCCESS * * 可编辑 假设查询学号110002的基本情况，可按下述步骤: (1)首先选择要单击表列表框中的“基本情况”表。 (2)在“字段名称”字段中选定“基本情况.学号”。 (3)单击“运算符”列表，选择“=”。 (4)单击“列出可能的值”按钮，在“值”字段中输入110002。 (5)单击“将And加入条件”，将条件加入列表框中。 (6)在“要显示的字段”列表框中，选定所需显示的字段。注意，这里只选我们在查询结果中要看的字段。 (7)单击“运行”按钮，在随后的VisData对话框中，选择“否”，进一步选择“运行”，即可得查询结果。 （8）单击“显示“按钮，在随后出现的“SQL Query”窗口中，显示刚建立的查询所对应的SQL语句。 3 数据控件 Data控件是Visual Basic访问数据库的一种利器，它能够利用三种Recordset对象来访问数据库中的数据，数据控件提供有限的不需编程而能访问现存数据库的功能，允许将Visual Basic的窗体与数据库方便地进行连接。要利用数据控件返回数据库中记录的集合，应先在窗体上画出控件，再通过它的三个基本属性Connect、DatabaseName和RecordSource设置要访问的数据资源。 3.1 数据控件属性 1．Connect属性 Connect属性指定数据控件所要连接的数据库类型，Visual Basic默认的数据库是Access的MDB文件，此外，也可连接DBF、XLS、ODBC等类型的数据库。 2．DatabaseName属性 DatabaseName属性指定具体使用的数据库文件名，包括所有的路径名。如果连接的是单表数据库，则DatabaseName属性应设置为数据库文件所在的子目录名，而具体文件名放在RecordSource属性中。 3．RecordSource属性 RecordSource确定具体可访问的数据，这些数据构成记录集对象Recordset。该属性值可以是数据库中的单个表名，—个存储查询，也可以是使用SQL查询语言的一个查询字符串。 4．RecordType属性 RecordType属性确定记录集类型。 5．EofAction和BofAction属性 当记录指针指向Recordset对象的开始(第一个记录前)或结束(最后一个记录后)时，数据控件的EofAction和BofAction属性的设置或返回值决定了数据控件要采取的操作。 属性 取值 操作 BofAction 0 控件重定位到第—个记录 BofAction 1 移过记录集开始位，定位到一个无效记录，触发数据控件对第一个记录的无效事件Validate EofAction 0 控件重定位到最后—个记录 EofAction 1 移过记录集结束位，定位到一个无效记录，触发数据 控件对最后一个记录的无效事件Validate EofAction 2 向记录集加入新的空记录，可以对新记录进行编辑，移动记录指针，新记录写入数据库 BofActio和 EofAction属性 (1)DataSource属性 DataSource属性通过指定—个有效的数据控件连接到一个数据库上。 (2)DataField属性 DataField属性设置数据库有效的字段与绑定控件建立联系。 绑定 控件 数据 控件 数据库 3．2数据控件的事件 1．Reposition事件(重新定位） Reposition事件发生在一条记录成为当前记录后,只要改变记录集的指针使其从一条记录移到另一条记录，会产生Reposition事件。通常，可以在这个事件中显示当前指针的位置。例如，Data1_Reposition事件中加入如下代码： Priva