Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Anzeigen von Struktur
Autor: Feomathar
Datum: 13.04.06 09:25
2.Teil: Private Sub speicher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles speicher.Click speichern() End Sub Private Sub zurück_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zurück.Click If Session("i") > 1 Then Session("i") -= 1 'Pointer -1 Else lblperson.Text = "Geht net weiter zurück" End If anzeigen() 'anzeigen aufrufen End Sub Private Sub vor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles vor.Click If Page.IsPostBack Then Session("i") += 1 'Pointer +1 anzeigen() 'anzeigen aufrufen Else lblperson.Text = "Funzt net" End If End Sub Private Function anzeigen() lblperson.Text = "Person: " & Session("i") txtvorname.Text = kunde(Session("i")).vorname txtnachname.Text = kunde(Session("i")).nachname txtplz.Text = kunde(Session("i")).plz txthandy.Text = kunde(Session("i")).handy txttelefon.Text = kunde(Session("i")).telefon txtstraße.Text = kunde(Session("i")).strasse Return Nothing End Function Private Function speichern() kunde(Session("i")).vorname = txtvorname.Text kunde(Session("i")).nachname = txtnachname.Text kunde(Session("i")).plz = txtplz.Text kunde(Session("i")).handy = txthandy.Text kunde(Session("i")).telefon = txttelefon.Text kunde(Session("i")).strasse = txtstraße.Text Return Nothing End Function Protected Sub Laden_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Laden.Click Try connstr = "data source=localhost;Database=Test;UserId=test;Password=test;" conn = New MySqlConnection(connstr) conn.Open() 'String zum erstellen einer Tabelle fals diese noch nicht vorhanden ist erstellen Dim createstr As String = "create table if not exists test.Kunden (Nr int , Vorname varchar(30) , Nachname varchar(30) null ,Strasse varchar(30) null , Postleitzahl varchar(30) null,Telefonnummer varchar(30) null , Handynummer varchar(30) null);" dadapter.SelectCommand = New MySqlCommand(createstr, conn) dadapter.Fill(da, "Kunden") Dim selstr As String = "select * from Kunden;" 'Auslesen der Datentabelle dadapter.SelectCommand = New MySqlCommand(selstr, conn) dadapter.Fill(da, "Kunden") Dim c As Integer Session("b") = da.Tables("Kunden").Rows.Count Session("b") -= 1 For c = 0 To (Session("b")) Session("i") += 1 kunde(Session("i")).vorname = da.Tables("Kunden").Rows(Session("a")).Item(1) kunde(Session("i")).nachname = da.Tables("Kunden").Rows(Session("a")).Item(2) kunde(Session("i")).strasse = da.Tables("Kunden").Rows(Session("a")).Item(3) kunde(Session("i")).plz = da.Tables("Kunden").Rows(Session("a")).Item(4) kunde(Session("i")).telefon = da.Tables("Kunden").Rows(Session("a")).Item(5) kunde(Session("i")).handy = da.Tables("Kunden").Rows(Session("a")).Item(6) Session("a") += 1 Next conn.Close() Session("i") = 1 anzeigen() Catch ex As Exception lblperson.Text = "Konnte nich laden" End Try End Sub End Class

Anzeigen von Struktur	1.037	Feomathar	12.04.06 16:59
Re: Anzeigen von Struktur	574	FZelle	13.04.06 08:44
Re: Anzeigen von Struktur	644	Feomathar	13.04.06 09:24
Re: Anzeigen von Struktur	859	Feomathar	13.04.06 09:25

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übersicht

Suchen