On Error Resume Next
If Text1.Text="" Then
MsgBox "请输入要添加的型号!", vbOKOnly, "提示"
Exit Sub
End If
Data1.RecordSet.AddNew
If Err Then
MsgBox "添加失败!可能是型号重复了。请检查。", vbOKOnly, "错误"
End If
End Sub
据我所知没有专门的捕获主键的异常你可以
try{
}catch(exception
ex){
ex.printstacktrace()
}
捕获异常之后,会在控制台打印你所捕获异常的信息。如果你只想捕获主键异常的话,可以把打印出来的主键异常名称来替换exception.
其实效果是一样的。。。
如你所说“系统会自动或手动检测用户名是否重复” 页面不刷新,这个是要用到ajax的,具体什么是ajax、怎么去使用在这里一时半会也说不清的。判断重复很简单:SELECT 1 from [table] where name = [your name]
这个时候会有一个数据集返回,判断数据集里面的数据条数就好了。
或者
SELECT count(1) from [table] WHERE name = [your name]
如果返回的大于0就说明重复了。
方法很多。。。
access的话用OLEDATAREADER去做,只读向前,快。。。。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)