home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_6_93 / vbwin / vbaccess / update.txt < prev    next >
Text File  |  1995-02-26  |  2KB  |  89 lines
  1. Option Explicit
  2. Dim HS As String
  3.  
  4. Sub Form_Load ()
  5. CenterForm Me
  6. HS = "Update"
  7. End Sub
  8.  
  9. Sub Timer1_Timer ()
  10. Timer1.Enabled = False
  11. Update_Vor
  12. End Sub
  13.  
  14. Sub Update_Aktion (sTabelle As String)
  15. Dim i As Integer
  16.  
  17. dOld.RecordSource = sTabelle
  18. dNew.RecordSource = sTabelle
  19. dOld.Refresh
  20. dNew.Refresh
  21.  
  22. If dOld.Recordset.BOF = False Then
  23.   dOld.Recordset.MoveFirst
  24.   BeginTrans
  25.   Do While dOld.Recordset.EOF = False
  26.     dNew.Recordset.AddNew
  27.     'Beispiel Update bei ─nderung
  28.     'Hier Version 2
  29.     If iVersion = 2 And sTabelle = "KUNDE" Then
  30.       For i = 0 To 5
  31.         dNew.Recordset.Fields(i) = dOld.Recordset.Fields(i)
  32.       Next
  33.       'neues Feld Vorbelegung
  34.       dNew.Recordset.Fields("Anzahl") = "1"
  35.     Else
  36.       'Standard update,
  37.       'wenn keine ─nderung
  38.       For i = 0 To dOld.Recordset.Fields.Count - 1
  39.         dNew.Recordset.Fields(i) = dOld.Recordset.Fields(i)
  40.       Next
  41.     End If
  42.     dNew.Recordset.Update
  43.     dOld.Recordset.MoveNext
  44.   Loop
  45.   CommitTrans
  46. End If
  47. dNew.Recordset.Close
  48. dOld.Recordset.Close
  49.  
  50. End Sub
  51.  
  52. Sub Update_Vor ()
  53.  
  54. Dim iCount As Integer
  55. Dim sTab1 As String
  56. Dim sTab2 As String
  57. Dim sTName As String
  58.  
  59. Screen.MousePointer = HOURGLASS
  60. sTab1 = "Die Tabelle "
  61. sTab2 = "wird umgewandelt."
  62.  
  63. 'bitte richtigen Datenbanknamen
  64. 'und Tabellen-Namen eintragen !!!!
  65. dOld.DatabaseName = "Stamm.old"
  66. dNew.DatabaseName = "Stamm.mdb"
  67.  
  68. For iCount = 1 To 7
  69.  Select Case iCount
  70.   'zuerst abhΣngige Tabellen
  71.   'Master: Detail
  72.   Case 1: sTName = "ZUBEH╓R"
  73.   Case 2: sTName = "ZUBEH╓R_ART"
  74.   Case 3: sTName = "ZUBEINZEL"
  75.   Case 4: sTName = "AUFTRAG"
  76.   Case 5: sTName = "STL_AUFTRAG"
  77.   'unabhΣngige Tabellen
  78.   Case 6: sTName = "KUNDE"
  79.   Case 7: sTName = "SETTINGS"
  80.  End Select
  81.  lblTabelle = sTab1 & sTName & sTab2
  82.  lblTabelle.Refresh
  83.  Update_Aktion sTName
  84. Next
  85. Screen.MousePointer = DEFAULT
  86. Unload Me
  87. End Sub
  88.  
  89.