wie kann ich eine binäre Datei in Access 97 einlesen und daraus eine Tabelle erzeugen und in der Datenbank speichern?
Folgende Daten sind vorhanden:
Dateiname = test.bin
Felder und Eigenschaften
Feld1 = Text 6 Stellen
Feld2 = Long Integer
Fedl3 = Long Integer
Feld4 = Currency
Wie könnte eine derartige Funktion (oder Prozedur?) aufgebaut werden?
Danke für Eure Hilfe und schon mal vorab
* EIN SCHÖNES WEIHNACHTSFEST *
Andreas
Am besten als Datei öffnen und einlesen, z.B. in eine benutzerdefinierte Variable, etwa so:
Type MyType
Feld1 As String \* 6
Feld2 As Long
Feld3 As Long
Feld4 As Currency
End Type
Public Function ReadBinFile()
Dim MyRec As MyType, I As Long
Open "Test.bin" For Binary Access Read As #1
Do
With MyRec
Get #1, , MyRec
If EOF(1) Then Exit Do
Debug.Print .Feld1, .Feld2, .Feld3, .Feld4
End With
Loop
Close #1
End Function
Allerdings habe ich meine Zweifel, ob deine Currency-Daten in der Datei auch der internen Datenrepräsentation von Access entsprechen. Wenn die Datei nicht mit VB(A) erstellt wurde, sind die Chancen nicht sonderlich gross…
Reinhard
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]