Insert時に一意制約エラーがでる。

質問

よろしくお願いします。
VB6.0 DB:ORACLE8.1.6 クライアントWIN2000　サーバーWIN2000SERVER

VBでデータをINSERTするプログラムを作ったのですが、どうしても一意制約エラーが出てしまいます。
これはデータの都合上仕方が無いのか？
(データの主キーに「.」が入っているのでエラーになるのでしょうか？)
プログラムが悪いのか？
よろしくお願いします。

エラーは2回目の実行部分です。

データ(すべて文字型)
000 　 001 　 002
ベルリン12345 ベルリン 12345
ベルリン123.45 ベルリン 123.45
ベルリン123 45 ベルリン 123 45

プログラム
strSql = "Insert Into KUNIBETU(k000,k001,k002) Values ('ベルリン12345','ベルリン,'12345')"

'処理のチェック
If Execute_sql(strSql) = False Then
Err.Raise -1, , "失敗しました！"
cn.RollbackTrans
rs.Close
Set rs = Nothing

cn.Close
Set cn = Nothing
Exit Sub
End If

strSql = "Insert Into KUNIBETU(k000,k001,k002) Values ('ベルリン1234.5','ベルリン','123.45')"

'処理のチェック
If Execute_sql(strSql) = False Then

Public Function Execute_sql(strSql As String) As Boolean
Dim cmd As New ADODB.Command
Execute_sql = False

' Commandオブジェクトを作成
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = strSql
' アクション クエリーを実行
cmd.Execute　　　　　　←←←←←←エラー部分
Set cmd = Nothing
Execute_sql = True
Exit Function

回答No.1

brax3 · ベストアンサー

一意制約エラーとは同一カラムに同一の値を入れられないということです。
k000というカラムにPrimaryKey属性が付与されているのだと思いますが、既に「ベルリン1234.5」というレコードがあるにも関わらず、INSERTしようとしているために発生します。

別のカラムを作成してそちらにPrimaryKey属性を付与すればよいです。ついでにIdentity属性もつけておくと楽です。

お礼

すぐに返事を頂きありがとうございました。

データを確認していましたら。やはり同じ名前の値がありました。

大変失礼をしました。

どうもありがとうございました。

補足

>一意制約エラーとは同一カラムに同一の値を入れられないということです。

そうですよね！同じ文字は入れられないということですね。

>k000というカラムにPrimaryKey属性が付与されているのだと思いますが、既に「ベルリン1234.5」というレコードがあるにも関わらず、INSERTしようとしているために発生します。

実際のデータを見てみると「ベルリン1234.5」はデータは無いのです。
サンプルで
「ベルリン12345」
「ベルリン123.45」
「ベルリン123 45」
の3つのデータをINSERTすると2つ目でエラーになります。
カンマがキーのエラーになるのかな？と言う疑問です。