第16章 VB数据库应用编程示例

1第16章VB数据库应用编程示例2图16-116.1示例13对象名属性名属性值AdodcStudentConnectionString连接到SQLServer的“学生管理数据库”CommandTypeadCmdTableRecordSourceStudentTxtSnoDataSourceAdodcStudentDataFieldSnoTxtSnameDataSourceAdodcStudentDataFieldSnameTxtSsexDataSourceAdodcStudentDataFieldSsexTxtSageDataSourceAdodcStudentDataFieldSageTxtSdeptDataSourceAdodcStudentDataFieldSdept4查找按钮程序代码如下：PrivateSubCmdSearch_Click()IfLen(TxtSearchDept.Text)0ThenAdodcStudent.CommandType=adCmdTextAdodcStudent.RecordSource=_select*fromstudentwhereSdept='&_Trim(TxtSearchDept.Text)&'AdodcStudent.RefreshElseMsgBox(请指定要查找的系)EndIfEndSub516.2示例2示例2在示例1的基础上增加了两组供用户操作的按钮。一组是说明如何使用Recordset对象的AddNew、Update、Delete和CancelUpdate方法实现数据操作；另一组是说明如何使用Recordset对象的Move方法组来浏览记录。6程序代码如下：(1)窗体启动时的初始化代码PrivateSubForm_Load()'初始时使“取消”按钮为不可用状态CmdCancel.Enabled=FalseEndSub7(2)数据操作按钮组代码“添加”按钮代码：PrivateSubCmdAdd_Click()AdodcStudent.Recordset.AddNew'使“添加”和“删除”按钮为不可用状态CmdAdd.Enabled=FalseCmdDel.Enabled=False'使“更改”和“取消”按钮为可用状态CmdUpdate.Enabled=TrueCmdCancel.Enabled=TrueEndSub8“取消”按钮代码：PrivateSubCmdCancel_Click()AdodcStudent.Recordset.CancelUpdate'使添加和删除按钮为可用状态CmdAdd.Enabled=TrueCmdDel.Enabled=True'使取消按钮为不可用状态CmdCancel.Enabled=FalseEndSub9“删除”按钮代码：PrivateSubCmdDel_Click()DimresAsIntegerres=MsgBox(确实要删除此行记录吗？,_vbExclamation+vbYesNo+vbDefaultButton2)Ifres=vbYesThenAdodcStudent.Recordset.DeleteAdodcStudent.Recordset.MoveNextIfAdodcStudent.Recordset.EOF=TrueThenAdodcStudent.Recordset.MoveLastEndIfEndIfEndSub10“更新”按钮代码：PrivateSubCmdUpdate_Click()'将文本框中的当前值写入结果集相应字段中AdodcStudent.Recordset.Fields(Sno)=Trim(TxtSno.Text)AdodcStudent.Recordset.Fields(Sname)=Trim(TxtSname.Text)AdodcStudent.Recordset.Fields(Ssex)=Trim(TxtSsex.Text)AdodcStudent.Recordset.Fields(Sage)=CInt(Trim(TxtSage.Text))AdodcStudent.Recordset.Fields(Sdept)=Trim(TxtSdept.Text)'使更新生效AdodcStudent.Recordset.UpdateCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdCancel.Enabled=FalseEndSub11（3）移动指针方法组代码PrivateSubCmdFirst_Click()AdodcStudent.Recordset.MoveFirstEndSubPrivateSubCmdPrevious_Click()AdodcStudent.Recordset.MovePreviousIfAdodcStudent.Recordset.BOF=TrueThenAdodcStudent.Recordset.MoveFirstEndIfEndSub12PrivateSubCmdLast_Click()AdodcStudent.Recordset.MoveLastEndSubPrivateSubCmdNext_Click()AdodcStudent.Recordset.MoveNextIfAdodcStudent.Recordset.EOF=TrueThenAdodcStudent.Recordset.MoveLastEndIfEndSub131416.3示例315PrivateSubForm_Load()DimstrSnoAsStringDimstrSelectAsStringstrSno=Trim(Form1.TxtSno.Text)strSelect=selectSname,Cname,Ccredit,Grade_&fromstudentsjoinsc_&ons.sno=sc.sno_&joincourseconc.cno=sc.cno_&where&sc.sno='&strSno&''设置ADO数据控件相应的属性AdodcGrid.CommandType=adCmdTextAdodcGrid.RecordSource=strSelectAdodcGrid.Refresh'设置DataGrid控件的数据源为ADO数据控件的结果集SetDtgCond.DataSource=AdodcGrid'调用DtgCond控件的初始化过程CallInitGridEndSub16'初始化dtgCond控件PrivateSubInitGrid()WithDtgCond'设置DtgCond的列标题.Columns(0).Caption=学号.Columns(1).Caption=课程名.Columns(2).Caption=学分.Columns(3).Caption=成绩'设置DtgCond的列宽.Columns(0).Width=1000.Columns(1).Width=2000.Columns(2).Width=800.Columns(3).Width=800EndWithEndSub171816.5数据窗体向导在使用ADO控件时，利用这个向导，可以轻松的创建ADO数据控件和数据绑定控件，并可实现数据的增、删、改、查操作。19一、添加数据窗体向导“外接程序”菜单→“外接程序管理器”命令20二、使用数据窗体向导使用数据窗体向导的步骤如下：“外接程序”→选择“数据窗体向导”命令，启动数据窗体向导，单击“下一步”按钮，弹出的对话框如图所示。21图16-13连接信息22图16-14定义窗体布局和绑定方式23图16-15设置记录源24图16-16控件选择25本章小结本章介绍了在VB环境下，利用ADO数据控件和数据绑定控件开发数据库应用程序的方法。数据窗体向导的使用。利用数据窗体向导，我们可以快速地开发数据库应用程序，而且还可以用多种方式显示结果数据。