数据库录入记录完整性检查的实现技术

1、数据库录入记录完整性检查的实现技术 1 引言 数据库的完整性是指数据的正确性和相容性。 完整性检查和 控制的防范对象是不合语义的、 不正确的数据， 防止它们进入数 据库。在数据库设计过程中，涉及到实体完整性、参照完整性和 用户自定义完整性。文章结合VB ACCES以及SQL语言在VB宿 主语言中的运用， 对数据库录入记录完整性检查的实现技术进行 探讨。以两个关系为例说明问题，关系1：学生(学号，姓名， 性别，系部名称，班级)关系 2：系部(系部编号，系部名称， 系主任)；分别对应为 : student(sno,sname,ssex,sdep,sclass)dep(depno,depname,d

2、e pmanager) 2 屏蔽非法输入 对于记录中的学号，只允许数字输入 ，违约处理：自动过 滤非数字的非法输入。以本程序为例，设计时应添加模块，在模 块中添加函数 In_Int() ，添加控件 textbox, 命名为 Txtsno 。 程序段如下： Public Function In_Int(KeyAscii As Integer) As Boolean Dim Ch_Accept_Int(10) As String 可以接受的字符数组 Dim i As Integer Ch_Accept_Int(0) = 0 Ch_Accept_Int(1) = 1 Ch_Accept_Int(2)

3、 = 2 Ch_Accept_Int(3) = 3 Ch_Accept_Int(4) = 4 Ch_Accept_Int(5) = 5 Ch_Accept_Int(6) = 6 Ch_Accept_Int(7) = 7 Ch_Accept_Int(8) = 8 Ch_Accept_Int(9) = 9 Ch_Accept_Int(10) = chr(8) In_Int = False 检查输入字符是否在数组中 For i = 0 To 10 If Chr(KeyAscii) = Ch_Accept_Int(i) Then In_Int = True End If Next End Functi

4、on Private Sub Txtsno_KeyPress(KeyAscii As Integer) If In_Int(KeyAscii) = FalseThenKeyAscii = 0 End Sub 3 检查库中有无重复数据 被使用。违约处理：给出提示信息，并清除重复学号，光标重新 定位于接受录入的文本框。以本程序为例，设计时应添加控件 textbox,commandbutton, 命名为： Txtsno,Cmdinsert 。程序段如 下： Public rs As New ADODB.Recordset Public conn As New ADODB.Connection Pri

5、vate Sub Cmdinsert_Click( ) Connstring=provider=Microsoft.Jet.OLEDB.4.0;Data source = 假设后台数据库为 XXX.mdb conn.ConnectionString =Connstring conn.Open 打开到数据库的连接 Set rs.ActiveConnection = conn 指定与其关联的数据库连接 rs.Open select * from student wheresno= Data source = conn.ConnectionString =Connstring conn.Open S

6、et rs.ActiveConnection = conn rs.Open select depnamefrom dep , conn, adOpenStatic, adLockReadOnly For i = 1 To rs.RecordCount Cmodept.AddItem rs.Fields(1) rs.MoveNext Next i rs.Close conn.Close End Sub 5 避免插入部分数据时出现多表同步错误 根据实体完整性规则， 录入记录的主码不可为空， 但其他属 性(字段)可以为空，同时考虑到多表同步级联更新的问题，所 以在VB “添加记录”窗体中，所有添加记

7、录的控件都不直接通 过ADO空件与后台数据库绑定，即：不使用 Adodc控件 名只ecordset.AddNew 方法，而用sql方式。程序段如下： Public cmd As New ADODBmand Public conn As New ADODB.Connection Private Sub Cmdinsert_Click( ) Connstring=provider=Microsoft.Jet.OLEDB.4.0;Data source = conn.ConnectionString = connstring conn.Open Set cmd.ActiveConnection = conn 先插入一个新记录 , 该记录只有学号值 cmdmandText = insert into student(sno) values( & Txtsno.Text& ) cmd.Execute 判断是否输入姓名 ,根据刚插入的学号值更新 (update) 记 录, 实际上是补充完整 If Txtname.Text Then cmdmandText = update student set sname = & Txtname.Text& & where sno= & Txtsno.Text & cmd.Execute End If 其他字段的补充