> Private oApp As Framework.App > Private oProcess As Framework.LXProcess >>
> ' This is when we access the data provider in desktop and Web service mode > Sub New(ByVal toApplication As Framework.App) > oApp = toApplication > End Sub > > ' This is when we access the data provider in a Web mode > Public Sub New(ByVal toProcess As Framework.LXProcess) > oProcess = toProcess > End Sub >>
> ' Return the field size > ' expC1 Table > ' expC3 Connection string > Public Function GetSchema(ByVal tcTable As String, ByVal tcConnectionString As String) As Boolean > Dim loDataProvider As Framework.Data = New Framework.Data(oApp) > loDataProvider.nSQLMode = nSQLMode > If Not loDataProvider.GetSchemaTable(tcTable, tcConnectionString) Then > Return False > End If > oDataTable = loDataProvider.oDataTable > Return True > End Function >>
> Dim loDataProvider As Framework.Data = New Framework.Data(oApp) >>
> Dim loDataProvider As Framework.Data = New Framework.Data(oProcess) >>