QODBCでデータを取得し、10進数で変換する

Question

金額のデータを取得し、10進数で変換したいと考えています。

10進数の数値の値が四捨五入されているという問題が発生しました。例：私が必要とする金額はamount = 123.5ですが、私が得る価値は124です。データベースで

If Me.chkEnterBill.Checked = True Then 
     Dim amount As Decimal 
     amount = CDec(Val("amount")) 
     strSelect = "SELECT Txnnumber, payeeentityreffullname, txndate, bankaccountreffullname" _ 
     & ",amount, refnumber, appliedtotxnrefnumber, appliedtotxntxndate, appliedtotxnamount, memo from billpaymentcheckline WHERE" _ 
     & " refnumber BETWEEN '" & CInt(Me.txtRefFR.Text) & "' AND '" & CInt(Me.txtRefTO.Text) & "' AND" _ 
     & " bankaccountreffullname='" & Me.lblBankName.Text & "'ORDER BY refnumber" 

     Try 

       Dim conChk As New Odbc.OdbcConnection(My.Settings.strConn) 
       conChk.Open() 

       Dim cmdChk As New Odbc.OdbcCommand(strSelect, conChk) 
       cmdChk.CommandType = CommandType.Text 

       Dim daChk As New Odbc.OdbcDataAdapter(cmdChk) 
       daChk.Fill(dsCVI, "tblvoucheritem") 


       With dgvCV 
        .RowsDefaultCellStyle.BackColor = Color.White 
        .AlternatingRowsDefaultCellStyle.BackColor = Color.DeepSkyBlue 
        .DataSource = dsCVI.Tables("tblvoucheritem") 
        .ReadOnly = True 
       End With 

       daChk.Dispose() 
       cmdChk.Dispose() 
       conChk.Close() 
       Me.rbCheck.Enabled = True 
       Me.rbCV.Enabled = True 

     Catch ex As Exception 
       MessageBox.Show(ex.Message) 
       Me.rbCheck.Enabled = False 
       Me.rbCV.Enabled = False 

     Finally 

       End Try 
       Me.stpLoadBar.Value = 100 

Answer 1

はテーブルbillpaymentchecklineに列量のデータ型と値を確認してください。データ型が10進数でないか、値が丸められています。

マークアップの「金額」に対応するグリッドビューの列もチェックしてください。

編集：

とのコード：dsCVI。それはデータセットですか？基本的にQODBCデータベースから取得したデータを保存する場所。そのテーブルに設定されているDataTypesがある場合は、そのDataTableが含まれているかどうかを確認します（ご意見に基づいて、DataSetのDataTypesがDB内のDataTypと一致しないようです）