如何使用主鍵約束添加新記錄VB6.0和SQL Server

Question

我想創建一個消息框，只要txt_unit等於數據庫中的unit_no就會觸發該消息框。這是在DB中插入新數據的過程中。我使用VB6和SQL Server 2005
這是我的代碼：

如果txt_unit.Text =然後 MSGBOX「重複記錄」，vbCritical「中存在的DB同一單元號」，「複製」
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