home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_6_93 / vbwin / vbaccess / frmmain.txt < prev    next >
Text File  |  1995-02-26  |  2KB  |  113 lines
  1. Option Explicit
  2.  
  3. Sub Form_Load ()
  4. Dim sPfad As String
  5. Dim sNewFile As String
  6. Dim sOldFile As String
  7. Dim sMitFile As String
  8.  
  9. 'wie hei▀t meine Datenbank (Fⁿr Komprimierung)
  10. sMdb_pur = "KdTest"
  11. ' wo ist meine Applikation
  12. sPfad = app.Path + "\"
  13. 'wie hei▀t die Datenbank
  14. sMdb = sPfad + sMdb_pur + ".mdb"
  15. 'auf das Laufwerk und in den Pfad wechseln
  16. ChDrive Left$(sPfad, 2)
  17. ChDir Left$(sPfad, Len(sPfad) - 1)
  18.  
  19. Set db1 = OpenDatabase(sMdb)
  20.  
  21. NL = Chr$(10) + Chr$(13)
  22. Datum = Mid$(Date$, 4, 2) + "." + Left$(Date$, 2) + "." + Right$(Date$, 2)
  23. CenterForm Me
  24.  
  25. Exit Sub
  26. '######################################################################
  27. 'Um nachstehende Funktion zu aktivieren, bitte zuerst Vorbereitungen
  28. 'wie in Artikel BP-Professionel  4/94 beschrieben, treffen.
  29. 'danach EXIT sub entfernen
  30.  
  31. 'iVersion = 1 'Stand vom 01.9.94
  32. iVersion = 2 'Stand vom 20.9.94
  33.  
  34. If MdbCheck() = True Then
  35.   'Umbenennen und tabellenschieben...
  36.   db1.Close
  37.   '÷ffnen mit exclusivem Zugriff
  38.   Set db1 = OpenDatabase(sMdb, True)
  39.   db1.Close
  40.  
  41.   sNewFile = sMdb
  42.   sOldFile = sPfad + sMdb_pur + ".old"
  43.   sMitFile = sPfad + sMdb_pur + ".new"
  44.  
  45.   On Error GoTo RenameErrorhandler
  46.   'altes File l÷schen wenn vorhanden
  47.   Kill sOldFile
  48.   'vorhandene Datenbank .mdb umbenennen in .old
  49.   Name sNewFile As sOldFile
  50.   'neue mitgelieferte Datenbank [.NEW] umbenennen
  51.   Name sMitFile As sNewFile
  52.   frmUpdate.Show MODAL
  53.   Set frmUpdate = Nothing
  54.   '...alles upgedatet.. open Database
  55.   Set db1 = OpenDatabase(sMdb)
  56.   'open Table
  57.   Set db1 = OpenDatabase("Settings")
  58.   tSettings.Edit
  59.   tSettings!MdbVersion = iVersion
  60.   tSettings.Update
  61.   tSettings.Close
  62.   Screen.MousePointer = Default
  63.   Exit Sub
  64. End If
  65. Exit Sub
  66.  
  67. RenameErrorhandler:
  68. If Err = ERR_FILENOTFOUND Then 'File not found
  69.    Resume Next
  70. End If
  71. Resume Next
  72.  
  73.  
  74.  
  75. End Sub
  76.  
  77. Sub Form_Unload (Cancel As Integer)
  78. 'nicht vergessen, die Datenbank zu schlie▀en...
  79. db1.Close
  80. Set db1 = Nothing
  81. End
  82. End Sub
  83.  
  84. Sub mnuAboutInfo_Click ()
  85. frmIntro1.Show 1
  86. End Sub
  87.  
  88. Sub mnuFileDelete_Click ()
  89. frmKunde.Show MODAL
  90. End Sub
  91.  
  92. Sub mnuFileEnd_Click ()
  93. Unload Me
  94. End Sub
  95.  
  96. Sub mnuReorgKomp_Click ()
  97. Dim iRet As Integer
  98. iRet = mdbVerdichten()
  99.  
  100. End Sub
  101.  
  102. Sub mnuReorgRep_Click ()
  103. Screen.MousePointer = Hourglass
  104. db1.Close
  105. Load frmInfo
  106. frmInfo.Tag = INFO_REPAIR
  107. frmInfo.Show MODAL
  108. Set frmInfo = Nothing
  109. Set db1 = OpenDatabase(sMdb)
  110. Screen.MousePointer = Default
  111. End Sub
  112.  
  113.