sql-server-2005 - 主キー制約 VB6.0 & SQL Server で新しいレコードを追加する方法

Question

txt_unitがデータベース内のと等しいときに起動するメッセージ ボックスを作成したいと考えてunit_noいます。これは、DB への新しいデータの挿入中です。私は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

Webを閲覧して回答を探した後、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