Table auslesen und in Listbox anzeigen

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von n1nja.

    Mit direkten Zugriff (Nicht Empfehlenswert):

    SQL-Abfrage

    1. SELECT* FROM Tabelle


    VB.NET-Quellcode

    1. Do while reader.read
    2. Listbox1.Items.Add(reader("Spalte")
    3. Loop



    Mit Dodos Lin (Der neusten)

    VB.NET-Quellcode

    1. Dim rows as mysqllib.mysqlresultcollection = db.query("SELECT * FROM Tabelle")
    2. Dim count as Integer = lesen.row.count
    3. for i as integer = 0 to count -1
    4. listbox1.items.add(lesen.row(i).Column("Spalte")
    5. Next



    Ist alles aus dem Kopf geschrieben.

    Damit liest du aus wieviele werte in der spalte vorhanden sind

    VB.NET-Quellcode

    1. Dim db as New MySqllib("Deine Domain",True)
    2. Dim lesen as MySqllib.Resultcollection = db.query("SELECT Abfrage")


    Wie wers mit ein wenig eigeninitiative oder schau in dem Forum von der Lib nach da gibts Seitten voll mit Beispielen

    were nicht schlecht wenn du den "Code" posten würdest sonst kann dir hier niemand Helfen

    Code :

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports MySqlLib3
    3. Public Class Form2
    4. Dim ip As String = "~~~~~~~~"
    5. Dim db As New MySqlLib("~~~~~~~~", True)
    6. Dim lesen As MySqlLib.ResultCollection = db.Query("SELECT administration")
    8. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. ToolStripStatusLabel1.Text = "Angemeldet als " & Form1.TextBox1.Text
    10. If CheckStatus() = True Then
    11. ToolStripStatusLabel4.Text = "Online"
    12. Else
    13. ToolStripStatusLabel4.Text = "Offline"
    14. End If
    15. End Sub
    17. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    18. Dim webbrowser1 As New WebBrowser
    19. webbrowser1.Navigate("~~~~~~~~~~" & TextBox1.Text & "&user=" & TextBox2.Text & "&pw5=" & TextBox3.Text)
    20. Do While webbrowser1.ReadyState <> WebBrowserReadyState.Complete
    21. Application.DoEvents()
    22. Loop
    23. If webbrowser1.DocumentText.Contains("1") Then
    24. MessageBox.Show("Der Name ist schon Besetzt.", "E-Mail/Benutzername existiert bereits", MessageBoxButtons.OK, MessageBoxIcon.Error)
    25. ElseIf webbrowser1.DocumentText.Contains("FINISHED") Then
    26. MessageBox.Show("Benutzer erfolgreich registriert!", "Registrierung erfolgreich", MessageBoxButtons.OK, MessageBoxIcon.Information)
    27. End If
    28. CheckUsers()
    29. End Sub
    31. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    33. End Sub
    35. Public Function CheckStatus()
    36. Dim MinecraftServer As New TcpClient
    37. Try
    38. MinecraftServer.Connect(ip, 25565)
    39. Return True
    40. Catch Excep As Exception
    41. Return False
    42. End Try
    43. End Function
    45. Private Sub CheckUsers()
    46. Dim rows As MySqlLib3.MySqlLib.ResultCollection = db.Query("SELECT * FROM anmeldeinformationen")
    47. Dim count As Integer = lesen.Row.Count
    48. For i As Integer = 0 To count - 1
    49. ListBox1.Items.Add(lesen.Row(i).Column("username"))
    50. Next
    51. End Sub
    53. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    54. CheckUsers()
    55. End Sub
    56. End Class

    VB.NET-Quellcode

    1. Dim lesen As MySqlLib.ResultCollection = db.Query("SELECT administration")



    Da fehlt was. Ich hatte es dir schon weiter oben gepostet

    SELECT * FROM TABELLENNAME

    *EDIT*
    Und Verbinden tust du dich auch niergenswo

    Schreib mal gaaaaaanz oben hin Option Strict On also über dein ersten Import

    Quellcode

    1. Fehler 2 "Option Strict On" erfordert, dass alle Funktions-, Eigenschafts- und Operatordeklarationen eine As-Klausel enthalten. C:\Users\Robby\Documents\Visual Studio 2010\Projects\RocketCraft\RocketCraft\Form2.vb 36 21 RocketCraft


    Quellcode

    1. Fehler 1 "Option Strict On" lässt Operanden des Typs "Object" für den =-Operator nicht zu. Verwenden Sie den Is-Operator, wenn Sie die Objektidentität testen möchten. C:\Users\Robby\Documents\Visual Studio 2010\Projects\RocketCraft\RocketCraft\Form2.vb 11 12 RocketCraft


    Und genau deswegen verwende ich option strict on nicht 8-)

    Da wird aber verhindert das du später Fehler ausschließen kannst in deinen Projekt!

    Klar das Funktionen einen Wert zurückgeben müssen oder?
    Sonst kannst es ja auch in einer Sub schreiben...

    Nur als Beispiel jetzt!

    Normal zeigt es dir auch an was du ausbessern musst und Option Strict macht es sogar in 90% der Fälle selber :)