[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2007/05/07(Mon) 14:24
投稿者名:やま
Eメール:
URL :
タイトル:
十進型のデータ取得方法

いつもお世話になっております。
やまです。

下記の ACCESS(mdb) の テーブルに、
20070425160742480  というデータが登録してある
のですが、VBから、ADOでデータを参照した所、
「2.007042516074248E+16 」という形でデータ取得されます。
「20070425160742480」という形で、データ取得を
したいのですが、どうすれば可能なのでしょうか?
お手数ですが、宜しくお願いします。

○テーブル情報
テーブル名         : T_TEST
フイールド名       : KOUSIN
データ型           : 数値型
フィールドサイズ   : 十進型
精度               : 17
少数点以下保持桁数 : 0
少数点以下表示桁数 : 自動

○データ抽出方法
StrSQL = ""
StrSQL = StrSQL & " SELECT  KOUSIN" & vbNewLine
StrSQL = StrSQL & " FROM    T_TEST"
adoRS = New ADODB.Recordset
adoRS.Open(StrSQL, gadoCon, _
         ADODB.CursorTypeEnum.adOpenForwardOnly, _
         ADODB.LockTypeEnum.adLockReadOnly, _
         ADODB.CommandTypeEnum.adCmdText)
IF adoRS.EOF = False Then
   Msgbox adoRS.Fields("KOUSIN").Value
End if

投稿時間:2007/05/07(Mon) 14:42
投稿者名:シュウ
Eメール:
URL :
タイトル:
Re: 十進型のデータ取得方法
> ○データ抽出方法
> StrSQL = ""
> StrSQL = StrSQL & " SELECT  KOUSIN" & vbNewLine
> StrSQL = StrSQL & " FROM    T_TEST"
> adoRS = New ADODB.Recordset
> adoRS.Open(StrSQL, gadoCon, _
>          ADODB.CursorTypeEnum.adOpenForwardOnly, _
>          ADODB.LockTypeEnum.adLockReadOnly, _
>          ADODB.CommandTypeEnum.adCmdText)
> IF adoRS.EOF = False Then
>    Msgbox adoRS.Fields("KOUSIN").Value
> End if


データ抽出のSQLで、KOUSINのデータ型を数字型から文字列型に変換するのはどうでしょう?
TO_CHARかけて取得すればうまくいくような気がします。(未確認です)

投稿時間:2007/05/07(Mon) 15:32
投稿者名:やま
Eメール:
URL :
タイトル:
Re^2: 十進型のデータ取得方法

> データ抽出のSQLで、KOUSINのデータ型を数字型から文字列型に変換するのはどうでしょう?
> TO_CHARかけて取得すればうまくいくような気がします。(未確認です)
シュウさん、ご教授ありがとうございます。
「2.007042516074248E+16 」となっていたのは、私の勘違いでした。
上記プログラムで、「20070425160742480」となっていました。
本当にすみませんでした。