| 
    
     |  | error になりませんか? 
 ウオッチウインドウでは??
 変数にString(文字列型) Dim strBUF As String
 Single(単精度浮動小数点型) 例えばDim sngS As Single
 を使って Rs("価格").Value代入するとどうなりますか?
 
 
 ▼kulolo さん:
 >はじめまして。
 >現在、RecordSetを利用してプログラムを開発しております。
 >その中でデータベースで格納されている値と違う値が入ってくる事に悩んでおります。
 >
 >Postgresのnumeric型に「8.3」などの値が格納されています。
 >これをRecordSetにて取得すると「8」として取得してしまいます。
 >
 >
 >具体的なコードとしては下記の通りです。
 >
 >Dim Rs As New ADODB.Recordset
 >
 >Rs.Open "select 価格 from 商品情報", Cn
 >Do Until Rs.EOF = True
 >  Debug.Print Rs("価格").Value
 >Loop
 >Rs.Close
 >
 >恐らく、データ型がInt型などで入ってきているような気がしますが、
 >これをOpen時に型指定して読み込む方法が分かりません。
 >
 >大変申し訳ないのですが、有識者の皆様のご意見をお聞きしたいです。
 
 |  |