数据库添加步骤，vb6.0 - 阳光VIP

一"

定义相关量

一个结果集,用来保存结果,更新结果

第一个字符串 ,用来保存sql语句,查询位置

一个字符串,用来保存查询函数的查询状态

Dim mrc As ADODB.Recordset

Dim txtSQL As String

Dim MsgText As String

第二:

验证数据的有效性.

1:

是否为空

使用了函数

Sub TestTxt(txt as striing) as boolean

If trim(txt)="" then

Testtxt=false

Else

Testtxt=true

End if

End function

2:

学号等字段是否为数字,

利用函数

If Not IsNumeric(Trim(txtSID.Text)) Then

MsgBox "请输入数字 ", vbOKOnly + vbExclamation, "警告"

Exit Sub

txtSID.SetFocus

End If

3:

数字是否重复

txtSQL = "select *from student_Info where student_" & Trim(txtSID.Text) & " \'"

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = False Then

MsgBox "学号重复,请重新输入", vbOKOnly + vbExclamation, "警告"

mrc.Close

txtSID.SetFocus

…...

4

日期格式是否正确

txtBirthday = Format(txtBirthday, "yyyy-mm-dd")

If Not IsDate(txtComSchool.Text) Then

MsgBox "入校时间应为日期格式(yyyy-mm-dd)", vbOKOnly + vbExclamation, "警告"

txtComSchool.SetFocus

…...

5

字符长度是否合格

在数据库表中,右击 打开设计表,能看到每个数据的最大长度,填充的数据不要超过给定长度

三 在窗体启动时加载填充数据的选择项

比如要添加班级

txtSQL = "select * from class_Info"

Set mrc = ExecuteSQL(txtSQL, MsgText)

For i = 1 To mrc.RecordCount

cboClass.AddItem mrc.Fields(0)

mrc.MoveNext

Next i

mrc.Close

四 :向数据库中添加数据,

添加数据库的sql语句

txtSQL="select * from student_Info "

\'\' student_Info 数据库表名称

Set mrc=executeSQL(txtSQL,MsgText)

mrc.AddNew

mrc.Fields(0) = Trim(txtSID.Text)

mrc.Fields(1) = Trim(txtName.Text)

mrc.Fields(2) = Trim(cboSex.Text)

mrc.Fields(3) = Trim(txtBirthday.Text)

mrc.Fields(4) = Trim(cboClass.Text)

mrc.Fields(5) = Trim(txtTel.Text)

mrc.Fields(6) = Trim(txtComSchool.Text)

mrc.Fields(7) =Trim(txtHomeAddress.Text)

mrc.Fields(8) = Trim(txtComment.Text)

mrc.Update

MsgBox "添加学籍信息成功 ", vbOKOnly + vbExclamation, "提示"

mrc.Close

Me.Hide