2022年VB数据库实例 .pdf

VB 数据库实例VB6.0+Access数据库-ADOData 2、命令行操作方法：通过命令行操作连接数据源、打开数据源、数据绑定到控件。操作如下：2.1 引用 ADOData 控件到工程中，并添加到窗体上。2.2 设置 ADOData 控件连接数据库：数据库连接通常在窗体载入时完成，即在 Form_Load()窗体载入事件中操作。VB6.0+Access数据库-ADOData Private Sub Form_Load()首先连接数据库Adodc1.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:VB2 实验 学生信息管理系统学生管理.mdb;Persist Security Info=False 打开数据表Adodc1.RecordSource=学生基础信息表 刷新数据显示Adodc1.Refresh 以下为数据绑定，并显示Text1.Text=Adodc1.Recordset.Fields(“学号).Value End Sub VB6.0+Access数据库-ADOData 说明：连接数据库代码中使用了绝对地址，这种方式在地址变化时会产生错误，因此建议改为下面方法：Adodc1.ConnectionString=“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&App.Path&学生管理.mdb;Persist Security Info=False 打开数据表Adodc1.RecordSource=学生基础信息表 注：App.Path 表示为当前地址，即运行工程或程序时的地址。VB6.0+Access数据库-记载操作记载操作：1、当前记载：是记载集在被拜访的记载，我们可以通过Recordset 对像的四个方式操作1.1、MoveFirst 把第一条记载设为当前记载格局：Ado控件名.Recordset.MoveFirst 例：Adodc1.Recordset.MoveFirst 1.2、MoveLast把最后一条记载设为当前记载格局：Ado控件名.Recordset.MoveLast 例：Adodc1.Recordset.MoveLast 名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 3 页 -VB6.0+Access数据库-记载操作1.3、MoveNext把下一条记载设为当前记载格局：Ado控件名.Recordset.MoveNext 注：当记载为最后一个时EOF属性变为 True 如再向下移动指针出错。因此用下面代码防止出错例：If Adodc1.Recordset.EOF=False Then Adodc1.Recordset.MoveNext End If 1.4、MovePrevious 把上一条记载设为当前记载格局：Ado控件名.Recordset.MovePrevious 注：当记载为第一个时BOF属性变为 True 如再向上移动指针出错。因此用下面代码防止出错例：If Adodc1.Recordset.BOF=False Then Adodc1.Recordset.MovePrevious End If VB6.0+Access数据库-记载操作2、追加记载使用 ADO 控件的 AddNew 方式添加一条空记载，系统将保留并把当前记载指针移到新记载上。格局：ADO 控件名.Recorset.AddNew 例：在 Adodc1控件连接数据表中添加一条空记载Adodc1.Recordset.AddNew 注：此时如要使用文本框或相关控件输入信息，应先把当前文本框中数据清空。VB6.0+Access数据库-记载操作3、保留（保存）记载当在文本框（或相关）控件中输入信息后，使用下面方式保留数据：把文本框中的数据存字段中Adodc1.Recordset.Fields(学号).Value=Text1.Text Adodc1.Recordset.Fields(姓名).Value=Text2.Text Adodc1.Recordset.Update 注：在程序编写进程中，此方式用来进行数据保留，多用在添加记载后。也可在当前记载修改后保留修改值VB6.0+Access数据库-记载操作4、删除记载当前记载要删除时，可使用ADO 控件的 Delete 方式完成。操作：使用移动记载指针方式（如下一条、上一条）命令把记载指针移动到要删除记载上，运行下面语句。Adodc1.Recordset.Delete 注：记载删除后窗体上还是在显示与删除记载，可刷新一次数据库，并重新显示。方式如下。名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 3 页 -Adodc1.Refresh 刷新数据库存显示记载语句略VB6.0+Access数据库-记载操作5、查找记载ADO 控件可以使用 Find 方式依据条件寻找满足条件的记载，并把记载指针指向此记载做为当前记载。例：查找姓名为李四的人Adodc1.Recordset.Find 姓名=李四 If x.Text=Then MsgBox(请输入 XXX！)Else ado1.Refresh ado1.Recordset.Find 姓名=&Trim(x.Text)&If ado1.Recordset.EOF=False Then printtab Else MsgBox(查找不到 XXX)ado1.Recordset.Close End If End If 显示语句略VB6.0+Access数据库-记载操作6、关闭记载集当数据记载拜访结束时，可使用下面语句关闭记载集。Adodc1.Recordset.Close 注：在退出按钮中使用时，还应在后面加上Unload Me 语句名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 3 页 -