Component File /ModuleSQLDocumentationTool.vb (VB.NET)
1: Option Strict Off
2: Option Explicit On
3: Module ModuleSQLDocumentationTool
4:     Public ApplicationName As String
5:     Public ApplicationDescription As String
6:     Public ApplicationVersion As String
7:     Public ApplicationURL As String
8:     Public ApplicationCopyright As String
9:     Public ApplicationIsEvaluationVersion As Boolean
10:     Public ApplicationEvaluationVersionItemLimit As Integer
11:     Public ApplicationDataStoreConnectionString As String
12:     Public CurrentProjectID As Integer
13:     Public CurrentProjectName As String
14:     Public CurrentProjectHTMLOutput As Boolean
15:     Public CurrentProjectHTMLHelpOutput As Boolean
16:     Public CurrentProjectTextOutput As Boolean
17:     Public CurrentProjectRTFOutput As Boolean
18:     Public CurrentProjectColourCodeSource As Boolean
19:     Public CurrentProjectDocumentTableColumnDescriptions As Boolean
20:     Public CurrentProjectDocumentJobs As Boolean
21:     Public CurrentProjectDocumentDTSPackages As Boolean
22:     Public CurrentProjectOutputFolder As String
23:     Public CurrentParseID As Integer
24:     Public CurrentDatabaseID As Integer
25:     Public CurrentDatabaseName As String
26:     Public CurrentConnectionID As Integer
27:     Public CurrentConnectionDatabaseServer As String
28:     Public CurrentConnectionDatabaseUserName As String
29:     Public CurrentConnectionDatabasePassword As String
30:     Public CurrentConnectionUseTrustedConnection As Boolean
31:     Public CurrentAction As String
32:     Public DatabasesDictionary As New Scripting.Dictionary
33:     Public ConnectionsDictionary As New Scripting.Dictionary
34:     Public CurrentLogFileName As String
35:     Public ParsesDictionary As New Scripting.Dictionary
36:     
37:     Public Sub CreateLogFile(ByRef LogName As String, ByRef FileBody As String)
38:         Dim TextFile As Object
39:         
40:         Dim FileSystemObject As New Scripting.FileSystemObject
41:         
42:         TextFile = FileSystemObject.CreateTextFile(LogName, True, False)
43:         
44:         'UPGRADE_WARNING: Couldn't resolve default property of object TextFile.Write. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'  
45:         TextFile.Write(FileBody)
46:         'UPGRADE_WARNING: Couldn't resolve default property of object TextFile.Close. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'  
47:         TextFile.Close()
48:         
49:         'UPGRADE_NOTE: Object FileSystemObject may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1029"'  
50:         FileSystemObject = Nothing
51:         
52:     End Sub
53:     
54:     Public Sub AppendToLogFile(ByRef LogName As String, ByRef FileBody As String)
55:         Dim TextFile As Object
56:         
57:         Dim FileSystemObject As New Scripting.FileSystemObject
58:         
59:         TextFile = FileSystemObject.OpenTextFile(LogName, Scripting.IOMode.ForAppending, False)
60:         
61:         'UPGRADE_WARNING: Couldn't resolve default property of object TextFile.Write. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'  
62:         TextFile.Write(FileBody)
63:         'UPGRADE_WARNING: Couldn't resolve default property of object TextFile.Close. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'  
64:         TextFile.Close()
65:         
66:         'UPGRADE_NOTE: Object FileSystemObject may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1029"'  
67:         FileSystemObject = Nothing
68:         
69:     End Sub
70: End Module