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