tableadapters.vb

来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· VB 代码 · 共 32 行

Namespace NorthwindDataSetTableAdapters
    '************************************
    'Partial classes to set SelectCommand
    '************************************

    Partial Class OrdersTableAdapter
        Public Overloads Function Fill(ByVal DataTable As NorthwindDataSet.OrdersDataTable, ByVal strSelect As String) As Integer
            Me.Adapter.SelectCommand = Me.CommandCollection(0)
            'Replace the CommandText
            Me.Adapter.SelectCommand.CommandText = strSelect
            If (Me.m_clearBeforeFill = True) Then
                DataTable.Clear()
            End If
            Dim returnValue As Integer = Me.Adapter.Fill(DataTable)
            Return returnValue
        End Function
    End Class

    Partial Class Order_DetailsTableAdapter
        Public Overloads Function Fill(ByVal DataTable As NorthwindDataSet.Order_DetailsDataTable, ByVal strSelect As String) As Integer
            Me.Adapter.SelectCommand = Me.CommandCollection(0)
            'Replace the CommandText
            Me.Adapter.SelectCommand.CommandText = strSelect
            If (Me.m_clearBeforeFill = True) Then
                DataTable.Clear()
            End If
            Dim returnValue As Integer = Me.Adapter.Fill(DataTable)
            Return returnValue
        End Function
    End Class
End Namespace