'/----------------------------------------------------------------------------------------------
'/ 処理名 ：フィールドデータ取得
'/
'/ 機能 ：フィールドの内容を取得する
'/
'/ 引数 ：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
