VB6.0 の主キーの上書き処理について
いつもお世話になっております。
VisualBasic6.0の勉強をしています。
Text1、Text2、Commmand1
を配置したフォームを作成し、
Text1に番号、Text2に名前、を入力後、
Command1ボタンを押すと、
MySQLサーバにデータが登録される処理を作成しているのですが、
下記のプログラムでは登録は出来るのですが、
サーバ側で、主キーはText1で入力した番号にしているため、
サーバ側で登録済みの番号を入力し登録処理を行った際、
『実行時エラー'2147467259
プライマリー重複のエラーメッセージ』
が表示されます。
主キーを上書きする際は、どのような処理を加えればよいのでしょうか?
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim strTBL As Variant
strTBL = "test" 'テーブル名
'Mysqlへ接続
cn.Open "Driver={MySQL ODBC 3.51 Driver};～略～
'テーブルを開く
rs.Open strTBL, cn, adOpenForwardOnly, adLockOptimistic, adCmdTable
rs.AddNew '新規レコードを追加
rs!no = Text1.Text 'ナンバーをセット
rs!Name = Text2.Text '名前をセット
rs.Update '更新(保存)
rs!no = Text1.Text 'ナンバーをセット
rs!Name = Text2.Text '名前をセット
cn.Close
Set cn = Nothing
Set rs = Nothing
MsgBox "登録完了", vbOKOnly, "登録"
Text1.Text = "" '登録後、テキストの内容を消去
Text2.Text = ""
End Sub
ご教示、よろしくお願いいたします
お礼
ずばり販売管理です。 やはり主キーはつけたほうがいいですね。 ありがとうございました。