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