VB.NETにてSELECT発行時、「指定されたキャストは有効ではありません」と表示される

Question

OS:Windows7Sp1
VisualStudio2017community
言語：VisualBasic.NET

Imports System
Imports System.Data
Imports Oracle.DataAccess.Client
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim strUser As String 'ユーザー
        Dim strPasswd As String 'パスワード
        Dim strDataSource As String 'データソース
        Dim strConnectstring As String
        Dim oraCon As OracleConnection

        strUser = "tst"
        strPasswd = "tst"
        strDataSource = "TST010"
        strConnectstring = "User Id=" & strUser & "; " & "Password=" & strPasswd & "; " & "Data Source=" & strDataSource
        oraCon = New OracleConnection(strConnectstring)

        Try
            oraCon.Open()
            Console.WriteLine("Connection to Oracle database established successfully !")
            MsgBox("Connection to Oracle database established successfully !")
            Console.WriteLine(" ")

			'(1)は正常(2)は「指定されたキャストは有効ではありません」と表示される

            'Dim cmdQuery As String = "SELECT CD, NM FROM TST.TS_FLG" '(1)
            'Dim cmdQuery As String = "SELECT ID, FLG FROM TST.TK_WORK"'(2)

            ' Create the OracleCommand object
            Dim cmd As OracleCommand = New OracleCommand(cmdQuery)
            cmd.Connection = oraCon
            cmd.CommandType = CommandType.Text

            Dim reader As OracleDataReader = cmd.ExecuteReader()
            While (reader.Read())

                ' Output Employee Name and Number
                MsgBox("reader.GetDecimal(0) &
                                                 " , " &
               reader.GetString(1))

            End While

        Catch ex As Exception
            MsgBox(ex.Message)

        Finally
            ' Close and Dispose OracleConnection object
            oraCon.Close()
            oraCon.Dispose()
        End Try

    End Sub
End Class

(1)の場合Selectが実施できるのですが、(2)の場合
「指定されたキャストは有効ではありません」と「MsgBox(ex.Message)」
に表示されてしまいます。

(1)のカラム情報、TST.TS_FLGテーブル
CD:NUMBER(1,0) NOT NULL
NM:NVARCHAR2(20)

(2)のカラム情報、TST.TK_WORKテーブル
ID:VARCHAR2(12) NOT NULL
FLG:NUMBER(1,0) DEFAULT 0

(1)は正常なのですが(2)にて「指定されたキャストは有効ではありません」
と表示されるのは何故でしょうか？
また、どうすれば(2)の処理は正常になりますでしょうか？

(1)と(2)はsqlplusでは両方ともselectが正常に実施されました。

宜しくお願いします。

Answer 1

MsgBox("reader.GetDecimal(0) & " , " & reader.GetString(1))

上記ではカラムの1番目をDecimalで2番目を文字列として取得するように記述されています。

(1)のカラム情報、TST.TS_FLGテーブル
CD:NUMBER(1,0) NOT NULL
NM:NVARCHAR2(20)

上記では属性があっていますが、

(2)のカラム情報、TST.TK_WORKテーブル
ID:VARCHAR2(12) NOT NULL
FLG:NUMBER(1,0) DEFAULT 0

こちらでは合っていないのでエラーになっています。

select しようとしている内容の属性に合わせて取得する必要があります。

Comments

[kumakumatan]

ご回答ありがとうございます。
reader.GetString→NVARCHAR2
reader.GetDecimal→NUMBER

としたら正常にselectが実施できました！

Answer 2

Dim cmdQuery As String = "SELECT ID, FLG FROM TST.TK_WORK"'(2)

(2)のカラム情報、TST.TK_WORKテーブル
ID:VARCHAR2(12) NOT NULL
FLG:NUMBER(1,0) DEFAULT 0

IDがVARCHAR2（文字列）、FLGがNUMBER（数値）なのだから、

' Output Employee Name and Number
MsgBox("reader.GetDecimal(0) & " , " & reader.GetString(1))

文字列をGetDecimalで取得できるはずもなし、数値をGetStringで取得できるはずもなし。

Answer 3

ソースのどこでエラーが発生しているか確認しましたか？

OracleDataReader.GetDecimalメソッド (Int32)
OracleDataReader.GetStringメソッド (Int32)
こちらと、そのテーブルの取得しているカラムの型を考えれば分かるかと思います。

Comments

[kumakumatan]

ご回答ありがとうございます。

reader.GetString→NVARCHAR2
reader.GetDecimal→NUMBER
という事でしょうか？
指定し直したら正常にselectが実施できました。

[YAmaGNZ]

変数やデータベースの列など、常に型を意識してください。
文字（文字列）→数値
数値→文字（文字列）
など、VB.NETでは暗黙で型変換してくれることが多いのですが
暗黙な型変換に頼るべきではありません。
Option strictをONにしてコーディングしましょう。