Problem mit Visual Basic 2005 Express

Dieses Thema Problem mit Visual Basic 2005 Express im Forum "Windows XP Forum" wurde erstellt von Steffen.Hack, 18. Nov. 2007.

Thema: Problem mit Visual Basic 2005 Express Hallo! ich übe gerade den Umgang mit Datenbanken unter Microsoft Visual Basic 2005 Express. Vielleicht könnten Sie...

  1. Hallo!

    ich übe gerade den Umgang mit Datenbanken unter Microsoft Visual Basic 2005 Express.

    Vielleicht könnten Sie mir einen kleinen Tip geben, da ich gerade nicht weiterkomme.



    Ich habe eine Access-Datenbank mit mehreren Tabellen erstellt.



    Unter Visual Basic habe ich nun eine Verbindung zur Datenbank hergestellt.

    Mit Hilfe von „TableAdapter“, „DataSet“, „BindingSource“ und „BindingNavigator“ können Datensätze auch angezeigt, bearbeitet, gelöscht und hinzugefügt und in der Datenbank aktualisiert werden.



    Hier der Code-Auszug zu dem ich eine Frage habe:



    Public Class Admin



    Private Sub MitarbeiterBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MitarbeiterBindingNavigatorSaveItem.Click

    Me.Validate()

    Me.MitarbeiterBindingSource.EndEdit()

    Me.MitarbeiterTableAdapter.Update(Me.ZefDataSet.Mitarbeiter)



    End Sub



    Private Sub Admin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    ->TODO: Diese Codezeile lädt Daten in die Tabelle ZefDataSet.Mitarbeiter. Sie können sie bei Bedarf verschieben oder entfernen.

    Me.MitarbeiterTableAdapter.Fill(Me.ZefDataSet.Mitarbeiter)



    End Sub



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



    Dim Datensatz As New Object



    Datensatz = Me.ZefDataSet.Mitarbeiter.FindByPersonalnummer(Me.TextBox1.Text)



    If Datensatz Is Nothing Then

    MsgBox(Personalnummer nicht vorhanden!)

    Exit Sub

    Else

    ->Me.MitarbeiterBindingSource.MoveNext()

    ->MsgBox(Me.MitarbeiterBindingSource.IndexOf(Datensatz.Personalnummer))

    Me.MitarbeiterBindingSource.Position = ???->Index der gesuchten Personalnummer

    End If



    End Sub

    End Class





    Aufgabe: es soll anhand der Personalnummer ein Datensatz zum bearbeiten angezeigt werden.



    Es ist kein Problem die Position des Datensatzes im DataSet anhand der Personalnummer (Primärschlüssel) zu finden:



    Me.ZefDataSet.Mitarbeiter.FindByPersonalnummer(Me.TextBox1.Text).ID



    Leider entspricht diese ID (Autowert) nicht der Position im BindingSource-Objekt. Zumindest nicht, wenn Datensätze gelöscht wurden und dazwischen ID's fehlen.



    Das BindingSource-Objekt kennt auch nicht die Methode FindByPersonalnummer, sondern nur MoveNext, MovePrevious, Position =, usw.



    Wie kann ich das BindingSource-Objekt dazu bringen, den im DataSet gesuchten Datensatz anzuzeigen?



    Me.MitarbeiterBindingSource.Position = ???





    Für die Ergänzung des Codes an der Stelle ??? wäre ich sehr dankbar!
     
Die Seite wird geladen...

Problem mit Visual Basic 2005 Express - Ähnliche Themen

Forum Datum
Probleme mit Visual C++ Windows XP Forum 27. Okt. 2011
Visual Basic 2008 - Probleme beim Debuggen Windows XP Forum 26. Dez. 2009
Problem mit Visual Studio auf Vista Windows XP Forum 29. Okt. 2007
Problem mit Visual Studio .NET 2005 Windows XP Forum 14. Juni 2007
Problem mit Visual C++ 2005 Express Edition Webentwicklung, Hosting & Programmierung 6. Apr. 2006