vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
wahr und falsch in Textdatei 
Autor: chacky
Datum: 28.05.02 19:53

Hallo Leute,

Ich möchte Daten mit einem Recordset in ein Textfile schreiben.
Den passenden code habe ich auch schon gefunden.
Aber die Optionsfelder werden mit wahr oder falsch eingetragen.
Ich brauche aber eine null und eine Eins.

Und wie kann ich nur bestimme Felder aus der Datenbank in das file schreiben.

den code benutze ich bisher:

Dim F As Integer
Dim Feld As Field
Dim Trenner As String

' Textdatei öffnen
F = FreeFile
Open "auto.txt" For Output As #F

' Feldtrennzeichen, um die einzelnen Feldinhalte in
' der Textdatei voneinander zu trennen
Trenner = ";"

' Recordset durchlaufen
Daten.Recordset.MoveFirst
While Not Daten.Recordset.EOF
For Each Feld In Daten.Recordset.Fields
Print #F, Feld; ' Feld-Inhalt
Print #F, Trenner; ' Feldtrennzeichen
Next
Print #F, "" ' Zeilenvorschub
Daten.Recordset.MoveNext
Wend

' Textdatei schliessen
Close #F

Vielen Dank und schönen Abend

Gruß Rüdiger
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
wahr und falsch in Textdatei71chacky28.05.02 19:53
Re: wahr und falsch in Textdatei223unbekannt28.05.02 20:06
Re: wahr und falsch in Textdatei49chacky28.05.02 20:30

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel