1

我想通过 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
4

0 回答 0