Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
import aus txt-datei
zurück: Probleme mit Interface VBA-CODE/Windows weiter: Word aus Access starten, aber ..... Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
dimei
Probierer


Verfasst am:
28. Jan 2010, 22:17
Rufname: meise
Wohnort: Gera

import aus txt-datei - import aus txt-datei

Nach oben
       Version: Office 2003

Hallo Experten,

gibt es eine Möglichkeit Daten in acces zu importieren wenn sie in folgender Form in einer Textdatei vorligen ?
Code:
1
Was enthält die Süßigkeit After Eight ?
Kokos
Minze
Krokant
Birnenextrakt
B
01-14-2001
1
In welchem Erdteil leben die meisten Indianer ?
Amerika
Afrika
Asien
Australien
A
01-14-2001
also jede einzelne Zeile soll in ein einzelnes Feld einer Tabelle importiert werden.

Ich hoffe ich hab mich nicht zu mißverständlich ausgedrückt.

Gruß

Dimei
Gast



Verfasst am:
28. Jan 2010, 23:18
Rufname:


AW: import aus txt-datei - AW: import aus txt-datei

Nach oben
       Version: Office 2003

Generell ist das möglich. Zeige Deine Tabellenstruktur.
dimei
Probierer


Verfasst am:
29. Jan 2010, 08:06
Rufname: meise
Wohnort: Gera

AW: import aus txt-datei - AW: import aus txt-datei

Nach oben
       Version: Office 2003

Hallo Gast,

die Tabelle sollte so aussehen:

id- > Autowert
Kategeorie- > da soll die 1 aus den Beispieldaten rein
Frage
Antwort A
Antwort B
Antwort C
Antwort D
Lösung
Datum
lleopard
IT Datenbankentwickler


Verfasst am:
29. Jan 2010, 11:44
Rufname: leo

AW: import aus txt-datei - AW: import aus txt-datei

Nach oben
       Version: Office 2003

moin dimei,

hab ein wenig gespielt und dir mal diese Lösung gebastelt:
Code:
Private dbs As DAO.Database
Private rs As DAO.Recordset

Function ReadTXT()
On Error Resume Next
    Dim ff As Long
    Dim path As String
    Dim VarString As String
    Dim position(7) As String 'Variable fürs einlesen der Datei
    Dim i As Integer 'Variable fürs einlesen der Zeilen gem. Struktur
    Dim j As Long 'Variable zum schreiben der Zeilennummer
   
    'Importtabelle löschen:
    Set dbs = CurrentDb
    dbs.Execute "DELECT FROM Inputtabelle" 'Tabellenname eintragen
    Set rs = dbs.OpenRecordset("Inputtabelle")
    ff = FreeFile
    path = "C:\test.txt" ' ggf auch Variabel!
    Close #ff: j = 1
    Open path For Binary Access Read Lock Read As #ff
    Do While Not EOF(ff)
        rs.AddNew 'Neuen Datensatz anlegen
        rs(0) = j
        For i = 0 To 7
            Line Input #ff, VarString
            If Err.Number = 62 Then Exit Do
            '... Varstring gemäß der Struktur an eine Tabelle anfügen
            'id- > Autowert
            'Kategeorie- > da soll die 1 aus den Beispieldaten rein
            'Frage
            'Antwort A
            'Antwort B
            'Antwort C
            'Antwort D
            'Lösung
            'Datum
            position(i) = Trim(VarString)
            rs(i + 1) = position(i)
        Next i
        i = 0 ' Zählvariable zurücksetzten
        j = j + 1 'Zeilenvariable hochsetzen
        rs.Update 'Datensatz anfügen
    Loop
    Close #ff
    rs.Close
    Set rs = Nothing: Set dbs = Nothing
End Function
Wichtig ist, daß die Struktur der Tabelle Inputtabelle genau die Struktur der Textdatei abbildet!

Gruß leo

_________________
Gruß Leo

Honnit soit qui mal y pense!
dimei
Probierer


Verfasst am:
29. Jan 2010, 20:33
Rufname: meise
Wohnort: Gera

AW: import aus txt-datei - AW: import aus txt-datei

Nach oben
       Version: Office 2003

Hallo lleopard,

was bedeutet
Zitat:
Varstring gemäß der Struktur an eine Tabelle anfügen
???
was muß da stehen, wenn meine Felder der Inputtabelle genau so heißen, wie ich es oben beschrieben habe? ich hab leider gar keine Ahnung was ein Varstring ist Embarassed

Gruß Dimei

Also es funktioniert sehr gut! Danke dafür. Die Frage oben ist nur für mein Interesse.

Diese kleine Fragespiel wollte ich damit basteln, falls es jemand interessiert. Very Happy



ratespiel.zip
 Beschreibung:

Download
 Dateiname:  ratespiel.zip
 Dateigröße:  382.43 KB
 Heruntergeladen:  15 mal

lleopard
IT Datenbankentwickler


Verfasst am:
29. Jan 2010, 22:16
Rufname: leo

AW: import aus txt-datei - AW: import aus txt-datei

Nach oben
       Version: Office 2003

hi Dimei,

wenn du mal genau hinschaust ist das so deklariert:
Code:
    Dim VarString As String
Beim einlesen der Textdatei übergebe ich den Text der Zeile an diese Variable.
Da die Struktur deiner Textdatei in dieser Zeile der Struktur deiner Tabelle entsprechen muß, hab ich das so hingeschrieben.

Gruß Leo

_________________
Gruß Leo

Honnit soit qui mal y pense!
dimei
Probierer


Verfasst am:
29. Jan 2010, 22:25
Rufname: meise
Wohnort: Gera


AW: import aus txt-datei - AW: import aus txt-datei

Nach oben
       Version: Office 2003

Hallo lleopard,

vielen Dank für deine Geduld.

auch Dank an Willy Wipp, dessen "zufällige Id" -Code ich auch genutzt habe.

Gruß

Dimei
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: txt-Datei in Tabelle importieren 2 sid-online 370 08. Aug 2008, 08:25
sid-online txt-Datei in Tabelle importieren
Keine neuen Beiträge Access Tabellen & Abfragen: Import Excel Tabelle - Zahlenformat 5 jfischer45 2088 04. Jun 2008, 15:41
steffen0815 Import Excel Tabelle - Zahlenformat
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler beim import von Excel-Datei 2 Klausei 587 21. Dez 2007, 17:47
Marcore666 Fehler beim import von Excel-Datei
Keine neuen Beiträge Access Tabellen & Abfragen: Bei Import von Daten wechselt automatisch die Datenban 2 maxmanfred11 600 19. Sep 2007, 09:47
Gast Bei Import von Daten wechselt automatisch die Datenban
Keine neuen Beiträge Access Tabellen & Abfragen: Da gab es doch mal was:.... beim Import Dubletten killen...? 1 me-$-on 576 27. Aug 2007, 13:56
SGast Da gab es doch mal was:.... beim Import Dubletten killen...?
Keine neuen Beiträge Access Tabellen & Abfragen: Import von txt-Datei - zu viele Spalten 20 Adios 2502 20. Apr 2007, 01:27
Adios Import von txt-Datei - zu viele Spalten
Keine neuen Beiträge Access Tabellen & Abfragen: Überlauf beim Import von Excel Tabelle 12 anschuh 7054 19. März 2007, 10:32
Willi Wipp Überlauf beim Import von Excel Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: CSV Import bricht import ab 3 Highlander 10181 09. Jan 2007, 12:35
oshizo CSV Import bricht import ab
Keine neuen Beiträge Access Tabellen & Abfragen: Import von Excel Tabellen mit Dublettenprüfung 9 webolli 3918 14. Dez 2006, 20:16
steffen0815 Import von Excel Tabellen mit Dublettenprüfung
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus txt-Datei in Tabelle kopieren 22 ex87 1814 08. Dez 2006, 02:00
Willi Wipp Daten aus txt-Datei in Tabelle kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: Verknüpfung, Import oder notfalls Kopie von Web-Dateien 0 Rhett 1099 10. Nov 2006, 12:20
Rhett Verknüpfung, Import oder notfalls Kopie von Web-Dateien
Keine neuen Beiträge Access Tabellen & Abfragen: Import einer Excel Tabelle 2 Huvi 999 18. Sep 2006, 20:09
Huvi Import einer Excel Tabelle
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln