VB实验八报告

实验八数据库操作
一．实验目的
1. 掌握创建数据库的方法
2. 掌握数据控件的使用方法
3. 掌握控件的数据绑定技术
4. 掌握数据库记录集的操作方法
二．实验内容
1，创建数据库stud.mdb
通过“Microsoft Access”和VB6中的“可视化数据库管理器”分别建立数据库stud.mdb，其中有一个数据表student，该数据表的结构如下：
字段名类型长度
学号String 7
班级String 8
姓名String 8
性别String 2
年龄Integer
出生日期Date/Time
婚否Boolean
简历备注
在数据表中输入三条记录如下：
学号
班
级
姓
名
性
别
年
龄
出生日
期
婚
否
简
历
2.，控件的数据绑定技术
程序1：使用控件的数据绑定技术显示、修改、添加student数据表中的数据。

窗体界面如下。

程序代码见附录。

3，数据库记录集的操作方法
程序2：利用数据库记录集的操作方法实现显示、修改、添加和删除记录的功能。

程序界面如下图所示。

程序代码见附录。

程序附录：
Private Sub Command1_Click()
If Data1.Recordset.RecordCount <> 0 Then
Data1.Recordset.MoveFirst
End If
ListRec
End Sub
Private Sub Command2_Click()
If Not Data1.Recordset.BOF Then
Data1.Recordset.MovePrevious
End If
ListRec
End Sub
Private Sub Command3_Click()
If Not Data1.Recordset.EOF Then
Data1.Recordset.MoveNext
End If
ListRec
End Sub
Private Sub Command4_Click()
If Data1.Recordset.RecordCount <> 0 Then
Data1.Recordset.MoveLast
End If
ListRec
End Sub
Private Sub Command5_Click()
Data1.Recordset.AddNew
Data1.Recordset.Fields(0) = Text1.Text
Data1.Recordset.Fields(1) = Text2.Text
Data1.Recordset.Fields(2) = Text3.Text
Data1.Recordset.Fields(3) = Text4.Text
Data1.Recordset.Fields(4) = CInt(Text5.Text)
Data1.Recordset.Fields(5) = CDate(Text6.Text)
Data1.Recordset.Fields(6) = CBool(Text7.Text)
Data1.Recordset.Fields(7) = Text8.Text
Data1.Recordset.Update
ListRec
End Sub
Private Sub Command6_Click()
If Not Data1.Recordset.EOF And Not Data1.Recordset.BOF Then Data1.Recordset.Delete
End If
ListRec
End Sub
Private Sub Command7_Click()
If Not Data1.Recordset.EOF And Not Data1.Recordset.BOF Then Data1.Recordset.Edit
Data1.Recordset.Fields(0) = Text1.Text
Data1.Recordset.Fields(1) = Text2.Text
Data1.Recordset.Fields(2) = Text3.Text
Data1.Recordset.Fields(3) = Text4.Text
Data1.Recordset.Fields(4) = CInt(Text5.Text)
Data1.Recordset.Fields(5) = CDate(Text6.Text)
Data1.Recordset.Fields(6) = CBool(Text7.Text)
Data1.Recordset.Fields(7) = Text8.Text
Data1.Recordset.Update
End If
ListRec
End Sub
Private Sub Command8_Click()
End
End Sub
Private Sub ListRec()
If Not Data1.Recordset.EOF And Not Data1.Recordset.BOF Then Text1.Text = Data1.Recordset.Fields(0)
Text2.Text = Data1.Recordset.Fields(1)
Text3.Text = Data1.Recordset.Fields(2)
Text4.Text = Data1.Recordset.Fields(3)
Text5.Text = Data1.Recordset.Fields(4)
Text6.Text = Data1.Recordset.Fields(5)
Text7.Text = Data1.Recordset.Fields(6)
Text8.Text = Data1.Recordset.Fields(7)
End If
End Sub
Private Sub Form_Load()
Data1.DatabaseName = "stud.mdb"
Data1.RecordSource = "student"
Data1.Refresh
If Data1.Recordset.RecordCount <> 0 Then
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
End If
ListRec
End Sub
三．实验总结。