数据库连接举例实训.doc

《数据库连接举例实训.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、数据访问控件在程序中添加数据控件，使数据库和程序建立了联系，通过数据绑定控件，可以自由地显示、编辑和更新各类已有的数据库中的信息。lData控件Data控件是VB的标准内部控件，适合较小的数据库，如Access数据库；也可访问、操作远程的开放式数据库连接(ODBC)数据库，诸如MicrosoftSQLServer以及Oracle。l常用属性lDataBaseName：返回或设置数据控件调用的数据源的名称及位置（即连接的数据库所在路径及名称）。lRecordSource：返回或设置连接的数据库文件表（即连接的数据库表及字段）。l例如：Data1.DataBaseNa

2、me="C:ProgramFilesMicrosoftVisualStudioVB98Biblio.mdb"Data1.RecordSource="Select*fromAuthor"Author为Biblio中的一个表，当确定了数据文件后，可以通过SQL语句控制在表中选择什么样的数据源。l常用方法Data包含的对象Recordset有以下方法：lAddNew添加新记录；lDelete删除当前记录指针指向的记录；lMoveNext记录指针移动到下一个记录；lUpdate修改记录指针指向的当前记录；lBookmark给记录指针指向的记录做书签标记；lLast

3、Modified返回上一次修改的记录位置；lEdit编辑当前记录；lCancelUpdate放弃修改记录；【例】Data控件综合使用。l窗体设计：l1个Data控件单击Data控件，打开“属性”窗口，在“属性”窗口中，l将“连接connect”属性设置为想要使用的数据库类型；l将“数据库名称DatabaseName”属性设置为想要连接的数据库的文件或目录名称，如“c:ProgramFilesMicrosoftVisualStudioVB98BIBLIO.MDB”数据库；l将“记录源recordsource”属性设置为想要访问的数据库表的名称；l3个文本框控

4、件单击TextBox控件，打开“属性”窗口，在“属性”窗口中，l将“数据源”属性设置为该Data控件；l将“数据字段”属性设置为在该数据库中想要察看或修改的字段的名称，如Author；l对其它要访问的字段，重复操作；lName属性值为txtFields，index分别为0、1、2.l3个标签其Caption属性分别是编号、姓名和出生日期；l5个命令按钮l其Caption属性分别为cmdAdd、cmdDelete、cmdRefresh、cmdModify和cmdClose；l程序代码：OptionExplicitDimModifyAsBooleanPrivateSu

5、bForm_Load()'设置数据库文件Data1.DatabaseName="D:ProgramFilesMicrosoftVisualStudioVB98BIBLIO.MDB"Data1.RecordSource="Authors"'设置文本框对应的数据字段txtFields(0).DataField="Au_ID"txtFields(1).DataField="Author"txtFields(2).DataField="YearBorn"EndSub'系统禁止用户修改数据，DataChanged属性可以设置(禁止)数据库更新PrivateSubtx

6、tFields_Change(IndexAsInteger)IfNotModifyThentxtFields(Index).DataChanged=False'取消修改EndIfEndSubPrivateSubcmdAdd_Click()Data1.Recordset.AddNew'增加记录Modify=True'设置修改标志cmdAdd.Enabled=False'设置按钮状态与显示cmdDelete.Enabled=FalsecmdRefresh.Enabled=FalsecmdModify.Caption="确定"cmdClose.Caption="取消"D

7、ata1.Enabled=False'禁止Data1操作EndSubPrivateSubcmdDelete_Click()Data1.Recordset.DeleteData1.Recordset.MoveNextEndSubPrivateSubcmdRefresh_Click()Data1.RefreshEndSubPrivateSubcmdModify_Click()IfModifyThen　　　　'结束数据记录修改并保存修改Modify=False　　　　'禁止修改标志cmdAdd.Enabled=True　'恢复按钮状态与显示cmdDelete.Enabl

8、ed=Tr