DBの数字項目に文字を入れるとNullがはいってしまう。

前提・実現したいこと

OracleDBテーブルのNumber型のカラムに文字を入れた際に、
エラーとなるようにしたい。

発生している問題・エラーメッセージ

Number型に文字を入れるとエラーにならず、
Nullが入ってしまい、正常動作を行ってしまう。

OracleDB、もしくはADODBの仕様の可能性も示唆しているのですが、
ソースコードが必要であれば追記します。
どうぞよろしくお願いいたします。

補足情報（FW/ツールのバージョンなど）

Windows7
OracleDB 11g
ADODB
VBScript
Batch

Orlofsky

2018/03/26 00:18

現象を再現できる必要最小限のCREATE TABLEとコードを提示するのが掲示板でのマナーです。

sazi

2018/03/26 01:33 編集

ソースコードも必要ですね（よく見たら、被ったコメントでした）

sazi

2018/03/26 04:36 編集

普通、例外が発生すると中断しますが、正常終了するってことは例外をスルーしているとかないですか？多分そこはvbScriptでの話になるので、コードで何やってるかを示さないと判断できないと思うんですが。

sazi

2018/03/26 04:41

insertやupdateでやってるのか、recordsetを経由しているかも分かんないので、コード提示が無い状況ではエスパー回答しかできないと思います

行動規範の内容に同意します

回答3件

自己解決

vbs
1
2Set objCMD = CreateObject("ADODB.Command")
3objCMD.ActiveConnection = objADO
4objCMD.CommandText = strInsertSql
5objCMD.CommandType = 1
6
7Dim paramNum
8paramNum = 0
9
10objRs.MoveFirst
11
12Do Until objRs.EOF
13	Dim columnType
14	columnType = getColumnType(objRs.Fields("DATA_TYPE").Value)
15	Set param = objCMD.CreateParameter(paramNum, columnType, adParamInput, objRs.Fields("DATA_LENGTH").Value )
16
17'数字項目に文字が入っていた場合
18	If columnType = adNumeric And Not IsNumeric(Trim(aryCsvResult(paramNum))) And Not Trim(aryCsvResult(paramNum)) = "" Then
19
20		'error処理
21		objLogFile.WriteLine ("エラーメッセージ")
22		END_CODE = ERR_SQL
23		Exit Do
24	End If
25
26	If Trim(aryCsvResult(paramNum)) = "" Then
27		param.Value = null
28	Else
29		param.Value = aryCsvResult(paramNum)
30	End If
31	objCMD.Parameters.Append param
32	paramNum = paramNum + 1
33	objRs.MoveNext
34Loop
35		
36Err.Number = 0
37objCMD.Execute()
38
39