数据库连接举例实训.docVIP

数据访问控件 在程序中添加数据控件，使数据库和程序建立了联系，通过数据绑定控件，可以自由地显示、编辑和更新各类已有的数据库中的信息。 Data控件 Data控件是VB的标准内部控件，适合较小的数据库，如 Access 数据库；也可访问、操作远程的开放式数据库连接 (ODBC) 数据库，诸如 Microsoft SQL Server 以及 Oracle。 常用属性 DataBaseName： 返回或设置数据控件调用的数据源的名称及位置。 RecordSource： 返回或设置数据库文件表。例如： Data1.DataBaseName=C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdbData1.RecordSource=Select * from Author Author为Biblio中的一个表，当确定了数据文件后，可以通过SQL语句控制在表中选择什么样的数据源。 常用方法 Data包含的对象Recordset有以下方法： AddNew Delete 删除当前记录指针指向的记录； MoveNext 记录指针移动到下一个记录； Update 修改记录指针指向的当前记录； Bookmark 给记录指针指向的记录做书签标记； LastModified 返回上一次修改的记录位置； Edit 编辑当前记录； CancelUpdate 放弃修改记录； 【例】Data 控件综合使用。 窗体设计： 1个 Data 控件 单击Data 控件，打开“属性”窗口，在“属性”窗口中， 将“连接connect”属性设置为想要使用的数据库类型； 将“数据库名称DatabaseName”属性设置为想要连接的数据库的文件或目录名称，如“c:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB”数据库； 将“记录源record source”属性设置为想要访问的数据库表的名称； 3个文本框控件 单击 TextBox 控件，打开“属性”窗口 ，在“属性”窗口中， 将“数据源”属性设置为该 Data 控件； 将“数据字段”属性设置为在该数据库中想要察看或修改的字段的名称，如Author； 对其它要访问的字段，重复操作； Name属性值为txtFields，index分别为0、1、2. 3个标签 其Caption属性分别是编号、姓名和出生日期； 5个命令按钮 其Caption属性分别为cmdAdd、cmdDelete、cmdRefresh、cmdModify 和cmdClose； 程序代码： Option Explicit Dim Modify As Boolean Private Sub Form_Load() 设置数据库文件 Data1.DatabaseName = D:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB Data1.RecordSource = Authors 设置文本框对应的数据字段txtFields(0).DataField = Au_ID txtFields(1).DataField = Author txtFields(2).DataField = Year Born End Sub 系统禁止用户修改数据，DataChanged属性可以设置(禁止)数据库更新 Private Sub txtFields_Change(Index As Integer) If Not Modify Then txtFields(Index).DataChanged = False 取消修改 End If End Sub Private Sub cmdAdd_Click() Data1.Recordset.AddNew 增加记录 Modify = True 设置修改标志 cmdAdd.Enabled = False 设置按钮状态与显示 cmdDelete.Enabled = False cmdRefresh.Enabled = False cmdModify.Caption = 确定 cmdClose.Caption = 取消 Data1.Enabled = False 禁止Data1操作 End Sub Private Sub cmdDelete_Click() Data1.Recordset.Delete Data1.Recordset.MoveNext End Sub Private Sub cmdRefresh_Click() Data1.Refresh End Sub Private Su