oracle11g - VB5 および Oracle 11G: 初期パラメータ NLS_NUMERIC_CHARACTERS が無視される

Question

データ型 NUMBER の列を持つテーブルに、IHM を介して数値を挿入したいと考えています。

テーブルにクエリを実行すると、「12,34」ではなく「1234」が挿入されます。

DB に直接挿入すると、正しい結果が得られます。

プログラムは、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