Hallo Leute,

kann mir jemand einen Tipp geben wie es schaffe meine Access Datenbank zu sichern. Ich möchte gerne das die Tabellen in der Datenbank als TXT-Dateien gespeichert werden. Genau so sollen diese Daten wieder zurück gespielt werden. Hat jemand für mich ein Beispielcode oder ein fertiges Projekt für mich ? Falls dieses etwas Kosten soll, bin ich gerne bereit dafür(für die Mühe) zu zahlen

Für Hilfe wäre ich sehr dankbar.

Gruß

Dirk

hallo,

General

Dim DB As Database
Dim rst As Recordset


Export()

Set DB = OpenDatabase(App.Path & "db_beispiel.mdb")

rst.MoveFirst

open "c:\db_sicherung" for output as #1
do until rst.eof
print #1, "rst!feld1" & ";" & rst!feld2"....
rst.movenext
loop
close #1

gruss

franky

Hallo Dirk,

ich habe den Quelltext von Franky noch etwas ergänzt, meiner klappt nun nur direkt aus einer Access-DB und ist etwas unicerseller, da die Anzahl der Felder nicht so wichtig ist, das sollte als Anregung reichen, falls du detailliertere Wünsche hast, schicke mir doch ne Email

Dim Db As Database
Dim rs As Recordset
Dim fd As Field
Dim lngMaxFd As Long, i As Long
Dim tmp As String

Set Db = CurrentDb
Set rs = Db.OpenRecordset("Tabelle01")
lngMaxFd = rs.Fields.Count - 1

rs.MoveFirst

Open "c:\db_sicherung.txt" For Output As #1
'Feldnamen werden mit aufgenommen
For i = 0 To lngMaxFd
tmp = tmp & rs.Fields(i).Name & ";"
Next i
Print #1, tmp
tmp = vbNullString
'Feldinhalte werden ausgelesen
Do Until rs.EOF
For i = 0 To lngMaxFd
tmp = tmp & rs.Fields(i).Value & ";"
Next i
Print #1, tmp
tmp = vbNullString
rs.MoveNext
Loop

Close #1

rs.Close
Set rs = Nothing
Set Db = Nothing
End Sub


Gruß Markus

Hallo Markus und Franky,

Danke für Eure Antworten.


Ich werde den Code gleich mal ausprobieren.

Gruß

Dirk