从数据库取数据

 '/----------------------------------------------------------------------------------------------
    '/  処理名  ：フィールドデータ取得
    '/
    '/  機能    ：フィールドの内容を取得する
    '/
    '/  引数    ：ioHandle      ：データベースハンドル構造体（DB_HANDLE）
    '/            iFiledName    ：フィールド名
    '/
    '/  戻値    ：DB_Data       ：データ
    '/
    '/----------------------------------------------------------------------------------------------
    '/  2003/02/05  　　　　　      新規作成
    '/----------------------------------------------------------------------------------------------
    '/
    Public Function DB_Data(ByRef ioHandle As DB_HANDLE, ByRef iFiledName As String) As Object

        Dim plReturn As Object

        plReturn = System.DBNull.Value
        Try
            Select Case ioHandle.Recordset.Columns(iFiledName).DataType.ToString() '/ データ型によりＮｕｌｌ変換
                Case "System.Boolean"
                    plReturn = NullToBoolean(ioHandle.Recordset.Rows(ioHandle.CurrentRowIndex)(iFiledName).ToString()) '/ -- フィールドの内容を取得(ブール)
                Case "System.String"
                    plReturn = NullToString(ioHandle.Recordset.Rows(ioHandle.CurrentRowIndex)(iFiledName).ToString()) '/ -- フィールドの内容を取得(文字型)
                Case "System.DateTime"
                    plReturn = NullToDate(ioHandle.Recordset.Rows(ioHandle.CurrentRowIndex)(iFiledName).ToString())   '/ -- フィールドの内容を取得(日付時刻型)
                Case "System.Numeric", "System.Decimal", "System.Double"
                    plReturn = NullToDouble(ioHandle.Recordset.Rows(ioHandle.CurrentRowIndex)(iFiledName).ToString()) '/ -- フィールドの内容を取得(実数型)
                Case "System.Int", "System.Int32", "System.Int16"
                    plReturn = NullToLong(ioHandle.Recordset.Rows(ioHandle.CurrentRowIndex)(iFiledName).ToString())   '/ -- フィールドの内容を取得(整数型)
                Case Else
                    Stop
            End Select
        Catch ex As Exception
            basLog.ErrorLogging(cmMODULE_NAME, "DB_Data", Err.Number)
        End Try
        Return plReturn

    End Function