Namespace Persons.Business ''' ''' Contains embedded schema and configuration data that is used by the ''' Persons.LanguageTable class ''' to initialize the class's TableDefinition. ''' ''' Public Class LanguageDefinition #Region "Definition (XML) for LanguageDefinition table" 'Next 93 lines contain Table Definition (XML) for table "LanguageDefinition" Private Shared _DefinitionString As String = "" #End Region ''' ''' Gets the embedded schema and configuration data for the ''' ''' class's TableDefinition. ''' ''' This function is only called once at runtime. ''' An XML string. Public Shared Function GetXMLString() As String If _DefinitionString = "" Then Dim tbf As System.Text.StringBuilder = New System.Text.StringBuilder() tbf.Append("") tbf.Append( "") tbf.Append( "") tbf.Append( "LanguageId") tbf.Append( "Language") tbf.Append( "Number") tbf.Append( "int") tbf.Append( "10.0") tbf.Append( "") tbf.Append( "") tbf.Append( "Y") tbf.Append( "Y") tbf.Append( "") tbf.Append( "") tbf.Append( "Y") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "Y") tbf.Append( "Y") tbf.Append( "N") tbf.Append( "") tbf.Append( "N") tbf.Append( "%ISD_DEFAULT%") tbf.Append( "") tbf.Append( "Y") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "Language") tbf.Append( "ภาษา") tbf.Append( "String") tbf.Append( "nvarchar") tbf.Append( "50") tbf.Append( "") tbf.Append( "") tbf.Append( "N") tbf.Append( "N") tbf.Append( "") tbf.Append( "") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "Thai_CI_AS") tbf.Append( "N") tbf.Append( "%ISD_DEFAULT%") tbf.Append( "") tbf.Append( "Y") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "Language") tbf.Append( "1") tbf.Append( "dbo") tbf.Append( "Language") tbf.Append( "Language_") tbf.Append( "DatabasePersons1") tbf.Append( "RowNum") tbf.Append( "Y") tbf.Append( "Y") tbf.Append( "Y") tbf.Append( "Y") tbf.Append( "BinaryChecksum") tbf.Append( "Persons") tbf.Append("") _DefinitionString = tbf.ToString() End If Return _DefinitionString End Function End Class End Namespace