IRecordListToTableBinderBuilder.cls

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "IRecordListToTableBinderBuilder"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'@Interface
Option Explicit

'===============================================================================

'@Description "Ïðèâÿçêà êëþ÷à ê ñòîëáöó"
Public Function WithKey(ByVal Key As String, _
                        ByVal ColumnToBind As Long _
                        ) As IRecordListToTableBinderBuilder
End Function

'@Description "Ïðèâÿçêà îáÿçàòåëüíîãî êëþ÷à, åñëè ÿ÷åéêà ïóñòàÿ - ñòðîêà íå äîáàâèòñÿ"
Public Function WithMandatoryKey(ByVal Key As String, _
                                 ByVal ColumnToBind As Long _
                                 ) As IRecordListToTableBinderBuilder
End Function

'@Description "Ïðèâÿçêà íåîáÿçàòåëüíîãî êëþ÷à, åñëè ñòîëáöà íåò - ðàáîòàåò êàê êëþ÷ áåç ïðèâÿçêè"
Public Function WithOptionalKey(ByVal Key As String, _
                                ByVal ColumnToBind As Long _
                                ) As IRecordListToTableBinderBuilder
End Function

'@Description "Ïðèâÿçêà ïåðâè÷íîãî êëþ÷à, ìîæåò áûòü òîëüêî îäèí"
Public Function WithPrimaryKey(ByVal Key As String, _
                               ByVal ColumnToBind As Long _
                               ) As IRecordListToTableBinderBuilder
End Function

'@Description "Êëþ÷ áåç ïðèâÿçêè, ñîõðàíÿåòñÿ â òàáëèöó"
Public Function WithUnboundKey(ByVal Key As String) As IRecordListToTableBinderBuilder
End Function

'===============================================================================

Public Function Build() As IRecordListToTableBinder
End Function