Datenbank über Button hochzählen

Nicht noch mehr von MS die machen mich fertig:-]

OK hier der Code
Code:
Imports System
Imports System.IO
Public Class Daten


    Private B1 As Integer

    Private Sub Abfrage_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        B1 = 0

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        B1 = B1 + 1
        Label1.Text = B1
        Dim path As String = "c:\temp\MyTest.txt"
        If File.Exists(path) = False Then
            ' Create a file to write to.
            Using sw As StreamWriter = File.CreateText(path)
                sw.WriteLine("hier mus Ergebnis B1 rein")
                sw.Flush()
            End Using
        End If

        ' Open the file to read from.
        Using sr As StreamReader = File.OpenText(path)
            Do While sr.Peek() >= 0
                Console.WriteLine(sr.ReadLine())
            Loop
        End Using

    End Sub

End Class

Auf Button Click erfolgt die Ausgabe in die Textdatei aber immer nur das was gerade im Code steht auch überschreibt er derzeit nicht

wie bekomme ich jetzt den erzeugten Wert in die Textdatei quasi die selbe situation wie mit der Datenbank:)
und warum überschreibt er nicht die vorhandene er legt nur neu an
 
So habe es noch mal überarbeitet soweit ich Infos gefunden habe :)

Code:
Imports System
Imports System.IO
Public Class Daten


    Private B1 As Integer

    Private Sub Abfrage_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'B1 ist beim Start immer 0 hier muss beim starten der letzte Wert aus der zugeordneten Zeile rein

        B1 = 0

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        B1 = B1 + 1
        Label1.Text = B1


        ' Zugriff auf Inhalt von Label1.Text
        Dim text As String = Label1.Text

        ' Pfad zum Ordner eigene Dateien
        Dim mydocpath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

        ' Schreibt die Datei.
        File.WriteAllText(mydocpath & Convert.ToString("\Happy.txt"), text)

        ' es fehlt noch die Möglichkeit in eine bestimmte Zeile zu schreiben ohne den Rest zu verändern
    End Sub

End Class

Es wird wieder etwas klarer ;) aber es fehlt noch was bis zum kompletten Durchblick
 

Neue Beiträge

Zurück