conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\book.mdb"
sql = "select * from 书籍信息 where 书籍编号='" & Text1.Text & "'"
g_rs.Open sql, conn, adOpenKeyset, adLockPessimistic
If Not g_rs.EOF And (Not IsNumeric(Text5.Text) Or Not IsNumeric(Text6.Text)) Then
MsgBox "输入数据不是数据类型或书籍编号重复!", vbOKOnly, ""
Else
g_rs.addnew
g_rs.Fields(0) = Trim(Text1.Text)
g_rs.Fields(1) = Trim(Text2.Text)
g_rs.Fields(2) = Trim(Combo1.Text)
g_rs.Fields(3) = Trim(Text3.Text)
g_rs.Fields(4) = Trim(Text4.Text)
g_rs.Fields(5) = Trim(Text5.Text)
g_rs.Fields(6) = Trim(Text6.Text)
g_rs.Fields(7) = Trim(DTPicker1.Value)
g_rs.Fields(8) = "否"
g_rs.Update
MsgBox "添加书籍信息成功!", vbOKOnly, ""
g_rs.Close
MsgBox "设置成功"
End If
Adodc1.Refresh
End Sub
提示出错信息为”由于索引将在主关键字创建重复值＾＾＾”我希望它会提示的是”编号重复”该怎么改啊？？？？？？
參考答案:用on error 还用查啊？？
一般程序都是这样用的
on error goto 标志
正常处理 处理完了退出就行了
标志
进行处理
就这么简单啊！
跟汉语一样的啊！
