home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD1257312112000.psc / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  2000-11-28  |  3.9 KB  |  119 lines
  1. Attribute VB_Name = "Module1"
  2. Public fMainForm As frmMain
  3. Public adoRecordset As ADODB.Recordset
  4. Public adoConnection As ADODB.Connection
  5. 'promenlivi neobhodimi za za suzdavane na obecti za dostup do bazi danni rabotqt s DAO
  6. Public dbWorkSpace As Workspace
  7. Public dbDataBase As Database
  8. Public dbTableDef As TableDef
  9. Public dbFieldNew As Field
  10. Public dbTable As Recordset
  11. Public dbQueryDef As QueryDef
  12. Public dbQuery As Recordset
  13.  
  14. Public InputTheNewTable As Boolean 'dali nowatya tablica da se sloji v listbox
  15. Public QueryName As String
  16.  
  17. Public Type FieldProperties
  18.        FieldName As String
  19.        Type As DatabaseTypeEnum
  20.        Size As Byte
  21. End Type
  22.  
  23. Sub Main()
  24.     Dim fLogin As New frmLogin
  25.     fLogin.Show vbModal
  26.     If Not fLogin.OK Then
  27.         'Login Failed so exit app
  28.         End
  29.     End If
  30.     Unload fLogin
  31.  
  32.  
  33.     Set fMainForm = New frmMain
  34.     fMainForm.Show
  35. End Sub
  36.  
  37. Public Sub InputTablesToListBox(List1 As ListBox)
  38. 'raboti s DAO
  39. Dim TablesCount As Long
  40. Dim TableName As String
  41. Dim I As Integer
  42.     On Error GoTo InputTablesToListBoxError
  43.     List1.Clear
  44.     'broqt na kolonite
  45.     TablesCount = dbDataBase.TableDefs.Count
  46.     'pupvite 6 ne sa za pokazvane (nekvi sturotii na access)
  47.     For I = 0 To TablesCount - 1
  48.         Set dbTableDef = dbDataBase.TableDefs(I)
  49.         TableName = dbTableDef.Name
  50.         'tova sa tablici na Access koito ne trqbva da se pipat
  51.         If TableName <> "MSysAccessObjects" And TableName <> "MSysACEs" And TableName <> "MSysObjects" And TableName <> "MSysQueries" And TableName <> "MSysRelationships" Then
  52.            List1.AddItem TableName
  53.         End If
  54.     Next I
  55.     List1.Tag = "Tables"
  56.     Exit Sub
  57. InputTablesToListBoxError:
  58. MsgBox Err.Description, vbCritical, "QuarantineDB : Error Num." & Err.Number
  59. End Sub
  60.  
  61. Public Sub InputQueriesToListBox(List1 As ListBox)
  62. 'raboti s DAO
  63. Dim QueriesCount As Long
  64. Dim I As Integer
  65.     On Error GoTo InputQueriesToListBoxError
  66.     List1.Clear
  67.     'broqt na kolonite
  68.     QueriesCount = dbDataBase.QueryDefs.Count - 1
  69.     'pupvite 6 ne sa za pokazvane (nekvi sturotii na access)
  70.     For I = 0 To QueriesCount
  71.         Set dbQueryDef = dbDataBase.QueryDefs(I)
  72.         List1.AddItem dbQueryDef.Name
  73.     Next I
  74.     List1.Tag = "Queries"
  75.     Exit Sub
  76.  
  77. InputQueriesToListBoxError:
  78. MsgBox Err.Description, vbCritical, "QuarantineDB : Error Num." & Err.Number
  79. End Sub
  80.  
  81. Public Function FindTypeConstant(strType As String) As Byte
  82.     Select Case strType
  83.            Case "Boolean": FindTypeConstant = 1
  84.            Case "Byte": FindTypeConstant = 2
  85.            Case "Integer": FindTypeConstant = 3
  86.            Case "Long": FindTypeConstant = 4
  87.            Case "Currency": FindTypeConstant = 5
  88.            Case "Single": FindTypeConstant = 6
  89.            Case "Double": FindTypeConstant = 7
  90.            Case "Date/Time": FindTypeConstant = 8
  91.            Case "Text": FindTypeConstant = 10
  92.            Case "Binary": FindTypeConstant = 9
  93.            Case "Memo": FindTypeConstant = 12
  94.      End Select
  95. End Function
  96.  
  97. Public Sub InputTablesToComboBox(ComboBox1 As ComboBox)
  98. 'raboti s DAO
  99. Dim TablesCount As Long
  100. Dim TableName As String
  101. Dim I As Integer
  102.     On Error GoTo InputTablesToComboBoxError
  103.     ComboBox1.Clear
  104.     'broqt na kolonite
  105.     TablesCount = dbDataBase.TableDefs.Count
  106.     'pupvite 6 ne sa za pokazvane (nekvi sturotii na access)
  107.     For I = 0 To TablesCount - 1
  108.         Set dbTableDef = dbDataBase.TableDefs(I)
  109.         TableName = dbTableDef.Name
  110.         'tova sa tablici na Access koito ne trqbva da se pipat
  111.         If TableName <> "MSysAccessObjects" And TableName <> "MSysACEs" And TableName <> "MSysObjects" And TableName <> "MSysQueries" And TableName <> "MSysRelationships" Then
  112.            ComboBox1.AddItem TableName
  113.         End If
  114.     Next I
  115.     Exit Sub
  116. InputTablesToComboBoxError:
  117. MsgBox Err.Description, vbCritical, "QuarantineDB : Error Num." & Err.Number
  118. End Sub
  119.