数据库新增(vb6.0)

一

确立相关变量

用于存储结果的集合，实现结果的存储与更新功能

首个字符串，用于记录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:

检查数字是否重复出现的情况,

构造SQL语句如下：

txtSQL = "select *from student_Info where student_ID='" & Trim(txtSI