我想通过 IHM 将数字值插入到具有数据类型 NUMBER 列的表中。
现在,当我查询表时,插入了“1234”而不是“12,34”。
当我直接插入数据库时,我得到了正确的结果。
该程序使用 VB5 和数据库以及 Oracle 11g (11.0.2) 编写。
有人可以帮助我吗?
VB5 代码:
Set cmd1 = New ADODB.Command
Set cmd1.ActiveConnection = dbConn1
Set v_Enregistrement_insert = New ADODB.Recordset
v_Enregistrement_insert.CursorLocation = adUseClient
'Début de la transaction
dbConn1.BeginTrans
cmd1.CommandText = InsertParamMaint
With cmd1
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 2, cb_CodMaint.Text)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 7, cb_RubPaye.Text)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 7, txtFields(3).Text)
.Parameters.Append .CreateParameter(, adDouble, adParamInput, 7, txtFields(4).Text)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 7, txtFields(5).Text)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 7, txtFields(6).Text)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 7, txtFields(7).Text)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 7, txtFields(8).Text)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 7, txtFields(9).Text)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 1, cb_Et.Text)
End With
'Enregistrement de la transaction
Set v_Enregistrement_insert = cmd1.Execute()
dbConn1.CommitTrans
bAjout = False
datPrimaryRS.Enabled = True
Else
datPrimaryRS.UpdateRecord
End If
datPrimaryRS.Refresh