sql-server-2005 - 如何使用主键约束 VB6.0 & SQL Server 添加新记录

Question

我想创建一个消息框，只要txt_unit等于unit_no数据库中的 就会触发。这是在数据库中插入新数据的过程中。我正在使用 VB6 和 SQL Server 2005。
这是我的代码：

If txt_unit.Text = 'same unit number that exist in the DB' Then
MsgBox "Duplicate Record", vbCritical, "Duplicate"  
txt_unit.Text = ""  
txt_unit.SetFocus

这将在数​​据输入期间为用户节省时间。
提前致谢

Answer 1

在浏览网页寻找答案后，我看到了这个解释 VB6 中的错误处理的网站。
我现在终于可以继续前进了。这是代码：

On Error GoTo err_CmdAdd_Click

con.Open _
    "Provider = sqloledb;" & _  
    "Data Source=server;" & _  
    "Initial Catalog=database;" & _  
    "User ID=username;" & _  
    "Password=password;"


If img_edit.BorderStyle = 1 Then

Set rs = con.Execute("insert into a_owner values('" & txt_unit.Text & "', " _
& " '" & txt_tower.Text & "'  )")

MsgBox "Record added successfully...", vbInformation

ado1.Refresh

exit_err_CmdAdd_Click:  
Exit Sub

err_CmdAdd_Click:

MsgBox "Duplicate Record!", vbCritical, "Duplicate"
txt_unit.Text = ""  
txt_unit.SetFocus

End If