<System.Diagnostics.DebuggerStepThrough()> _
Public Function GetChar(ByVal name As String) As Char
Dim index As Integer = Me.GetOrdinal(name)
Return Me.GetChar(index)
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Overridable Function GetChars(ByVal i As Integer, ByVal fieldOffset As Long, ByVal buffer() As Char, ByVal bufferOffset As Integer, ByVal length As Integer) As Long Implements System.Data.IDataReader.GetChars
If mDataReader.IsDBNull(i) Then
Return 0
Else
Return mDataReader.GetChars(i, fieldOffset, buffer, bufferOffset, length)
End If
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Function GetChars(ByVal name As String, ByVal fieldOffset As Long, ByVal buffer() As Char, ByVal bufferOffset As Integer, ByVal length As Integer) As Long
Dim index As Integer = Me.GetOrdinal(name)
Return Me.GetChars(index, fieldOffset, buffer, bufferOffset, length)
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Overridable Function GetData(ByVal i As Integer) As System.Data.IDataReader Implements System.Data.IDataReader.GetData
Return mDataReader.GetData(i)
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Function GetData(ByVal name As String) As System.Data.IDataReader
Dim index As Integer = Me.GetOrdinal(name)
Return Me.GetData(index)
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Overridable Function GetDataTypeName(ByVal i As Integer) As String Implements System.Data.IDataReader.GetDataTypeName
Return mDataReader.GetDataTypeName(i)
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Function GetDataTypeName(ByVal name As String) As String
Dim index As Integer = Me.GetOrdinal(name)
Return Me.GetDataTypeName(index)
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Overridable Function GetDateTime(ByVal i As Integer) As Date _
Implements System.Data.IDataReader.GetDateTime
If mDataReader.IsDBNull(i) Then
Return Date.MinValue
Else
Return mDataReader.GetDateTime(i)
End If
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Function GetDateTime(ByVal name As String) As Date
Dim index As Integer = Me.GetOrdinal(name)
Return Me.GetDateTime(index)
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Overridable Function GetDecimal(ByVal i As Integer) As Decimal Implements System.Data.IDataReader.GetDecimal
If mDataReader.IsDBNull(i) Then
Return 0
Else
Return mDataReader.GetDecimal(i)
End If
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Function GetDecimal(ByVal name As String) As Decimal
Dim index As Integer = Me.GetOrdinal(name)
Return Me.GetDecimal(index)
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Overridable Function GetFieldType(ByVal i As Integer) As System.Type Implements System.Data.IDataReader.GetFieldType
Return mDataReader.GetFieldType(i)
End Function
Public Function GetFieldType(ByVal name As String) As System.Type
Dim index As Integer = Me.GetOrdinal(name)
Return Me.GetFieldType(index)
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Overridable Function GetFloat(ByVal i As Integer) As Single Implements System.Data.IDataReader.GetFloat
If mDataReader.IsDBNull(i) Then
Return 0
Else
Return mDataReader.GetFloat(i)
End If
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Function GetFloat(ByVal name As String) As Single
Dim index As Integer = Me.GetOrdinal(name)
Return Me.GetFloat(index)
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Overridable Function GetInt16(ByVal i As Integer) As Short Implements System.Data.IDataReader.GetInt16
If mDataReader.IsDBNull(i) Then
Return 0
Else
Return mDataReader.GetInt16(i)
End If
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Function GetInt16(ByVal name As String) As Short
Dim index As Integer = Me.GetOrdinal(name)
Return Me.GetInt16(index)
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Overridable Function GetInt64(ByVal i As Integer) As Long Implements System.Data.IDataReader.GetInt64
If mDataReader.IsDBNull(i) Then
Return 0
Else
Return mDataReader.GetInt64(i)
End If
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Function GetInt64(ByVal name As String) As Long
Dim index As Integer = Me.GetOrdinal(name)
Return Me.GetInt64(index)
End Function
Public Overridable Function GetName(ByVal i As Integer) As String Implements System.Data.IDataReader.GetName
Return mDataReader.GetName(i)
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Function GetOrdinal(ByVal name As String) As Integer _
Implements System.Data.IDataReader.GetOrdinal
Return mDataReader.GetOrdinal(name)
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Function GetSchemaTable() As System.Data.DataTable Implements System.Data.IDataReader.GetSchemaTable
Return mDataReader.GetSchemaTable
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Function GetValues(ByVal values() As Object) As Integer Implements System.Data.IDataReader.GetValues
Return mDataReader.GetValues(values)
End Function
Public ReadOnly Property IsClosed() As Boolean Implements System.Data.IDataReader.IsClosed
<System.Diagnostics.DebuggerStepThrough()> _
Get
Return mDataReader.IsClosed
End Get
End Property
<System.Diagnostics.DebuggerStepThrough()> _
Public Overridable Function IsDBNull(ByVal i As Integer) As Boolean Implements System.Data.IDataReader.IsDBNull
Return mDataReader.IsDBNull(i)
End Function
<System.Diagnostics.DebuggerStepThrough()> _
Public Function IsDBNull(ByVal name As String) As Boolean
Dim index As Integer = Me.GetOrdinal(name)
Return Me.IsDBNull(index)
End Function
Default Public Overloads ReadOnly Property Item(ByVal name As String) As Object Implements System.Data.IDataReader.Item
<System.Diagnostics.DebuggerStepThrough()> _
Get
Dim value As Object = mDataReader.Item(name)
If DBNull.Value.Equals(value) Then
Return Nothing
Else
Return value
End If
End Get
End Property
Default Public Overridable Overloads ReadOnly Property Item(ByVal i As Integer) As Object Implements System.Data.IDataReader.Item
<System.Diagnostics.DebuggerStepThrough()> _
Get
If mDataReader.IsDBNull(i) Then
Return Nothing
Else
Return mDataReader.Item(i)
End If
End Get
End Property
Public ReadOnly Property RecordsAffected() As Integer Implements System.Data.IDataReader.RecordsAffected
<System.Diagnostics.DebuggerStepThrough()> _
Get
Return mDataReader.RecordsAffected
End Get
End Property
#Region " IDisposable Support "
Private disposedValue As Boolean ' To detect redundant calls
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
' free unmanaged resources when explicitly called
mDataReader.Dispose()
End If
' free shared unmanaged resources
End If
Me.disposedValue = True
End Sub
Public Sub Dispose() Implements IDisposable.Dispose
' Do not change this code. Put cleanup code in Dispose(ByVal disposing As Boolean) above.
Dispose(True)
GC.SuppressFinalize(Me)
End Sub
Protected Overrides Sub Finalize()
Dispose(False)
End Sub
#End Region
End Class
End Namespace