Werte aus DB auslesen und als Text in Labels darstellen

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von GarthB.

    Werte aus DB auslesen und als Text in Labels darstellen

    Wie der Titel schon sagt versuche ich mehrere Strings aus einer Access Datenbank auszulesen und in Labels zu schreiben.

    Ich versuche das ganze mit folgendem Code:

    VB.NET-Quellcode

    1. dr = comm.ExecuteReader
    2. Do While dr.Read()
    3. Me.Controls("L_Spieler_" & k).Text = dr(0).ToString
    4. k = k +1
    5. Loop




    Aber mir wird die Fehlermeldung "Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt" ausgegeben.



    Hat jemand eine Ahnung was ich Falsch mache??

    VB.NET-Quellcode

    1. Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0; Data Source = D:\AA\AA_Hosn_owi\AA_Datenbank.accdb")
    2. Dim comm As OleDb.OleDbCommand
    3. Dim dr As OleDb.OleDbDataReader
    4. comm = New OleDb.OleDbCommand("select CupNr from " & strBezeichnung & " where Tisch_Runde" & intRunde & " = " & intTisch, conn)
    5. Try
    6. conn.Open()
    7. dr = comm.ExecuteReader
    8. Do While dr.Read()
    9. Me.Controls("L_Spieler_" & k).Text = dr("CupNr").ToString
    10. k = k + 1
    11. Loop
    12. Catch ex As Exception
    13. MsgBox(ex.Message)
    14. End Try

    In welcher Zeile tritt der Fehler auf?

    Und um was in Labels oder Listboxen auszugeben mache ich das immer so:

    VB.NET-Quellcode

    1. reader = cmd.ExecuteReader()
    2. label1.Items.Clear()
    3. Do While reader.Read()
    4. label1.Items.Add(
    5. reader("Spalte"))
    7. Loop
    8. reader.Close()

    Das SQL liefert mir 5 Werte zurück die ich alle separat in die Labels schreiben möchte. Ich möchte kein neues Label erstellen sondern einfach den Wert der SQL zuweisen.

    Der Fehler tritt in Me.Controls("L_Spieler_" & k).Text = Reader(0).ToString auf

    VB.NET-Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newsbutton.Click
    4. options.Visible = False
    5. webframe.Visible = False
    6. newspanel.Visible = True
    9. Dim con As New MySqlConnection("user id=[user];password=[user pw];host=[dein host];database=[deine table];port=3306")
    10. Dim CMD As New MySqlCommand
    11. Dim reader
    12. Dim news As New List(Of String)
    15. Try
    16. con.Open()
    17. CMD.CommandText = "SELECT `By` FROM `motd` ORDER BY `ID` DESC LIMIT 0, 5"
    18. reader = CMD.ExecuteReader
    19. news.Clear()
    20. Do While reader.Read
    22. news.Add(reader("By").ToString)
    24. Loop
    26. reader.Close()
    27. con.Close()
    29. nh1.Text = news.Item(0)
    30. nh2.Text = news.Item(1)
    31. nh3.Text = news.Item(2)
    32. nh4.Text = news.Item(3)
    33. nh5.Text = news.Item(4)
    35. con.Open()
    36. CMD.CommandText = "SELECT `Message` FROM `motd` ORDER BY `ID` DESC LIMIT 0, 5"
    37. reader = CMD.ExecuteReader
    38. news.Clear()
    40. Do While reader.Read
    42. news.Add(reader("Message").ToString)
    44. Loop
    46. reader.Close()
    47. con.Close()
    49. nc1.Text = news.Item(0)
    50. nc2.Text = news.Item(1)
    51. nc3.Text = news.Item(2)
    52. nc4.Text = news.Item(3)
    53. nc5.Text = news.Item(4)
    55. Catch ex As Exception
    57. con.Close()
    58. MsgBox(ex.Message)
    60. End Try
    63. End Sub


    Musst es nur auf deine Sachen anpassen. Ich habe in dem script aller dings ein connection problem. Also falls du den fehler auch hast, bzw eine lösung, würde mich freuen^^

Facebook