VB链ACCESS库，检查用户输入问题

来源：百度知道 编辑：UC知道 时间：2024/05/09 09:50:23
按下一个按钮。检测用户输入的文字是否在数据库的AAA字段中有没有。如果有，就用一个msg提示后结束。如果没有继续执行。
说白了，也就是给数据库增加内容的时候检查是否有重复内容。
我用的是access库，不要用控件实现的。

你在数据库中,把这个字段设置成不允许重复
索引项: 改为 有(无重复)

在插入或修改数据的时候,加上On error Goto 语句
然后如果没有重复的,能正常添加或修改,不会有错
如果有重复的,就会有错,然后用msgbox输出就OK了啊

楼上说得也有道理,但是其实不需要设置字段为不允许重复的.只要你每次增加的时候做了检查，重复的不允许添加,何必还要数据库设置呢
加On error Goto是可以的.
不过有的时候会把一些未知的错误给排除了...
我觉得还是在添加内容的过程中检查比较合理.
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Private Sub Command1_Click()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb"
sql = "select * from 数据表 where AAA= '" & Text1.Text & "'"
rs.Open sql, cn, 1, 1
If rs.RecordCount > 0 Then
MsgBox "已有此字段值！", 48, "错误提示"
Text3.Text = ""
Text3.SetFocus
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
Exit Sub
End