tutorials.de Buch-Aktion 05/2012
ERLEDIGT
JA
ANTWORTEN
1
ZUGRIFFE
3305
EMPFEHLEN
  • An Twitter übertragen
  • An Facebook übertragen
AUF DIESES THEMA
ANTWORTEN
  1. #1
    RaketenPeter RaketenPeter ist offline Mitglied Silber
    Registriert seit
    Mar 2008
    Beiträge
    71
    Hallo Leute!

    habe folgendes Problem ich steh da schon seit gestern auf dem Schlauch und komm nciht dahinter.

    Folgendes Problem:
    Ich habe ein Profil Formular und das wird automatisch asu der DB gefüllt! Das Funktioniert auch! nun möchte ich den Inhalt der Textboxen auslesen und diesen auch per Butoon Click Funktion auslesen und in die DB schreiben. Das macht er aber nicht!
    Hier der Quellcode:

    Code asp:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    
    <asp:Content ID="OwnProfileContent" ContentPlaceHolderID="CPHContent" Runat="Server">
        <fieldset class="fsOwnProfile">
            <legend class="lgOwnProfile">Dein Profil</legend>
            <p>
                <asp:Label CssClass="lbProfilePreName" ID="lbProfilePreName" runat="server" Text="Vorname"></asp:Label>
                <asp:TextBox CssClass="tbProfilePreName" ID="tbProfilePreName" runat="server"></asp:TextBox>
                <asp:Label CssClass="lbProfileLastName" ID="lbProfileLastName" runat="server" Text="Nachname"></asp:Label>
                <asp:TextBox CssClass="tbProfileLastName" ID="tbProfileLastName" runat="server"></asp:TextBox>
                <asp:Label CssClass="lbProfileAge" ID="lbProfileAge" runat="server" Text="Alter"></asp:Label>
                <asp:TextBox CssClass="tbProfileAge" ID="tbProfileAge" runat="server"></asp:TextBox>
                <asp:Label CssClass="lbProfileCity"  ID="lbProfileCity" runat="server" Text="Stadt"></asp:Label>
                <asp:TextBox CssClass="tbProfileCity" ID="tbProfileCity" runat="server"></asp:TextBox>
                <asp:Label CssClass="lbProfileHobbies" ID="lbProfileHobbies" runat="server" Text="Hobbies"></asp:Label>
                <asp:TextBox CssClass="tbProfileHobbies" ID="tbProfileHobbies" runat="server"></asp:TextBox>
                <asp:Label CssClass="lbProfileEmail" ID="lbProfileEmail" runat="server" Text="Email"></asp:Label>
                <asp:TextBox CssClass="tbProfileEmail" ID="tbProfileEmail" runat="server" Enabled="false"></asp:TextBox>
                <asp:Button CssClass="btProfileChange" ID="btProfielChange" runat="server" text="Profil ändern" OnClick="btClick_OwnProfile" ></asp:Button>
            </p>
        </fieldset>
    </asp:Content>


    hier der VB Code behind

    Code vb:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    
     
    Imports System.Data
     
    Partial Class OwnProfile
        Inherits System.Web.UI.Page
        Dim username As String = ""
     
     
        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
     
            'Füllen der Profil Textboxes um Angaben zu ändern
            Dim myOwnProfileAdapter As New DataSet1TableAdapters.User_InformationsTableAdapter()
            Dim myOwnProfileDataTab As New DataTable
     
            'Aktuellen Username einlesen um UserDAten aus DB zu lesen
            Me.username = Membership.GetUser().ToString
     
     
            'Füllen des Vornamens
            tbProfilePreName.Text = myOwnProfileAdapter.GetPreNameByUsername(Me.username)
     
            'Füllen des Nachnamens
            tbProfileLastName.Text = myOwnProfileAdapter.GetLastNameByUsername(Me.username)
     
            'Füllen des Alters
            If myOwnProfileAdapter.GetAgeByUsername(username) Is Nothing Then
                tbProfileAge.Text = "0"
            Else
                tbProfileAge.Text = myOwnProfileAdapter.GetAgeByUsername(Me.username)
            End If
     
            'Füllen der Stadt
            tbProfileCity.Text = myOwnProfileAdapter.GetCityByUsername(Me.username)
     
            'Füllen der Hobbies
            tbProfileHobbies.Text = myOwnProfileAdapter.GetHobbiesByUsername(Me.username)
     
            'Füllen der Email
            tbProfileEmail.Text = myOwnProfileAdapter.GetEmailByUsername(Me.username)
     
        End Sub
        'Senden der Änderungen an die DB
        Protected Sub btClick_OwnProfile(ByVal Sender As Object, ByVal E As EventArgs)
     
            'TODO Textboxes Neu auslesen
     
     
     
     
            'Füllen der Profil Textboxes um Angaben zu ändern
            Dim myOwnProfileSendAdapter As New DataSet1TableAdapters.User_InformationsTableAdapter()
            Dim myOwnProfileSendDataTab As New DataTable
     
            'Insert in die DB mit Parameter aus der Eingabemaske
            myOwnProfileSendAdapter.UpdateUserProfile(tbProfilePreName.Text.Trim, tbProfileLastName.Text.Trim, tbProfileAge.Text.Trim, tbProfileCity.Text.Trim, tbProfileHobbies.Text.Trim, Me.username)
     
            
        End Sub
    End Class


    Vielen Dank im vorraus
    Geändert von RaketenPeter (13.08.08 um 13:56 Uhr)
     

  2. #2
    RaketenPeter RaketenPeter ist offline Mitglied Silber
    Registriert seit
    Mar 2008
    Beiträge
    71
    So hab mir ne Lösung zurecht gebaut und die Funktioniert auch! Ob es daran lag weiss ich letztendlcih nicht genau! aber falls es mal jemanden interessiert hier meine Funktionierende Variante:

    Habe lediglich eine if is not postback schleife um den pageload part gelegt wie im code zusehen ist!

    Code vb:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            'Aktuellen Username einlesen um UserDAten aus DB zu lesen
            Me.username = Membership.GetUser().ToString
            If Not IsPostBack Then
     
                'Table Adapter der die Verbindung zur Tabelle User_Informations herstellt 
                Dim myOwnProfileAdapter As New DataSet1TableAdapters.User_InformationsTableAdapter()
     
                 ....
     
                'Füllen der Textbox mit der  Email
                tbProfileEmail.Text = myOwnProfileAdapter.GetEmailByUsername(Me.username)
                Me.lbProfileEmail.DataBind()
     
            End If
        End Sub
     

Ähnliche Themen

  1. [C#] Textbox aus anderer Klasse Füllen
    Von Schnuki im Forum .NET Windows Forms
    Antworten: 6
    Letzter Beitrag: 13.06.08, 11:31
  2. TextBox auslesen und Textdatei schreiben
    Von AirsoftDivisionHRO im Forum Visual Basic 6.0
    Antworten: 3
    Letzter Beitrag: 30.12.07, 21:28
  3. Textbox über Buttons füllen
    Von iridium1 im Forum Visual Basic 6.0
    Antworten: 1
    Letzter Beitrag: 12.03.06, 18:19
  4. Antworten: 4
    Letzter Beitrag: 25.04.05, 22:15
  5. auslesen, schreiben, ändern (easy)
    Von visionsign im Forum PHP
    Antworten: 5
    Letzter Beitrag: 20.10.04, 18:18