Thema Datum  Von Nutzer Rating
Antwort
Rot Datei wird aufgebläht
 29.03.2007 12:44:37 Alex
NotSolved
03.04.2007 13:02:41 Rasta
NotSolved
03.04.2007 18:01:01 Alex
NotSolved

Ansicht des Beitrags:
Von:
Alex		 Datum:
29.03.2007 12:44:37		 Views:
2898		 Rating:
     
Antwort:
  Ja
Thema:
Datei wird aufgebläht
Hallo.
Ich bin Student und habe ein Programm geschrieben zur automatischen Erzeugung versch. Lagerspiegel.

Auf meinem privaten Laptop (Access 2000) läuft mein Programm einwandfrei.
Jetzt habe ich es auf dem Firmen-PC (Access2002) laufen lassen und hier
braucht es viel länger und bläht die Datei auf die 20-fache Größe auf. Nur
durch reparieren und komprimieren bekomme ich sie wieder klein.
Woran könnte das liegen?
Ein Problem wegen den unterschiedlichen Versionen kann es eigentlich nicht
sein, weil ich auf dem Firmen-PC eine neue DB aufgemacht habe und die
Tabellen, wie auch den Quelltext aus Textdateien importiert habe.
Nachfolgend ein Teilprogramm meiner Arbeit.
Hier wird nur eine neue Spalte angefügt und dann in die Felder eine 1 und in
jedes 20. Feld eine 2 geschrieben. Die Tabelle hat ungefähr 150 000
Datensätze.
Schon bei diesem Teilprogramm wird die Datei von ca. 30 MB auf 600 MB
aufgebläht.

Help me, please!
Gruß
Alex

Teilprogramm:

Sub OperativeReserve()
Dim ID As Long
Dim db As DAO.Database
Dim td As TableDef
Set db = CurrentDb
Set td = db.TableDefs("Lagerorte")
With td
.Fields.Append .CreateField("Operative Reserve", dbInteger)
.Fields.Refresh
End With
Set lo = db.OpenRecordset("Lagerorte", DB_OPEN_TABLE)
lo.MoveFirst
Do Until lo.EOF
ID = lo.ID
lo.Edit
If ID Mod 20 = 0 Then
lo.Fields("Operative Reserve") = 2
Else
lo.Fields("Operative Reserve") = 1
End If
lo.Update
lo.MoveNext
Loop
Debug.Print Now; "Operative Reserve"
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Datei wird aufgebläht
 29.03.2007 12:44:37 Alex
NotSolved
03.04.2007 13:02:41 Rasta
NotSolved
03.04.2007 18:01:01 Alex
NotSolved