Interfaceの使い方

Public Interface InterfaceDac
    Function SelectInfo( ) As Dataset
End Interface

Public Class Dac1
    Implements InterfaceDac
    Public Function SelectInfo ( ) As DataSet Implements InterfaceDac.SelectInfo

       〜 ここでDBからデータをゲットする 〜

        Return DataSet
    End Function
End Class

---

Private Function SelectData( ) As DataSet
    Dim ds As New DataSet
    ds.Tables.Add(GetTable(New Dac1))
    ds.Tables.Add(GetTable(New Dac2))
    Return ds
End Function
Private Function GetTable(dc As InterfaceDac) As DataTable
    Dim dt As New DataTable
    Dim ds As DataSet
    ds = dc.SelectInfo( )
    If Not ds Is Nothing Then
        dt = ds.Tables(0).Copy()
    End If
    Return dt
End Function

このカテゴリーの記事を表示する