MySQL-Datenbankabfragen in mehreren Tabs/ListViews

  • VB.NET

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

    MySQL-Datenbankabfragen in mehreren Tabs/ListViews

    Hallo,

    ich bin gerade dabei ein Programm zu prgrammieren,welches in mehreren Tabs MySql-Datenbankabfragen durchführt, quasi in jedem Tab eine andere Datenbank. Die Daten werden in eine ListView ausgegeben. Die erste Abfrage im 1. Tab funktioniert auch, nur die Abfragen in den anderen Tabs nicht. Die 1. Abfrage habe ich allerdings auch in die Main-Sub reingeschrieben, dieweiteren dann in die Sub jedes Tabs.

    Hat jemand nen Tipp für mich wie ich wo die Abfragen plazieren muss, dass die im richtigen Tab in der richtigen ListView angezeigt werden?

    Danke

    MarkOH

    Wenn du deinen Code posten würdest den du zur zeit hast kann man dir besser helfen.

    Habe selbst ncoh einmal bissl rumprobiert, bekomme es aber leider nicht hin. Hier mal der Quellcode:

    Quellcode

    1. Public Class Main
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. Dim conn As New MySqlConnection
    6. Dim myConnectionString As String
    7. Dim cmd As New MySqlCommand
    8. 'Aufbau der Datenbankverbindung
    9. 'server= Adresse des Datenbankservers
    10. 'uid= Benutzername des Datenbankusers
    11. 'pwd= Passwort des Datenbankusers
    12. 'database= zu benutzende Datenbank
    13. myConnectionString = _
    14. "server=localhost;" _
    15. & "uid=test;" _
    16. & "pwd=test;" _
    17. & "database=tfcv;"
    18. conn.ConnectionString = myConnectionString
    19. Try
    20. conn.Open()
    21. cmd.Connection = conn
    22. cmd.CommandText = "SELECT * FROM `tbl_playerdata` LIMIT 0 , 60" 'Auszuführender SQL-Befehl
    23. cmd.Prepare()
    24. Dim reader As MySqlDataReader
    25. reader = Nothing
    26. reader = cmd.ExecuteReader()
    27. 'ListView-Element füllen
    28. Dim SubItem As ListViewItem
    29. While (reader.Read())
    30. Dim id As String = reader.GetString(0) 'der Variable id dem 1. Abfrage-Wert zuordnen
    31. Dim clan As String = reader.GetString(1) 'der Variable clan dem 2. Abfrage-Wert zuordnen
    32. Dim soldier As String = reader.GetString(2) 'der Variable soldier dem 3. Abfrage-Wert zuordnen
    33. With ListViewVietnam.Items
    34. SubItem = .Add(id) 'id in ListView in 1 Spalte eintragen
    35. SubItem.SubItems.Add(clan) 'clan in ListView in 2 Spalte eintragen
    36. SubItem.SubItems.Add(soldier) 'soldier in ListView in 3 Spalte eintragen
    37. End With
    38. End While
    39. Catch ex As MySqlException
    40. MessageBox.Show("MySQL-Exception: " & ex.Message)
    41. Catch ex As Exception
    42. MessageBox.Show("Allgemeiner Fehler: " & ex.Message)
    43. End Try
    44. conn.Close()
    46. End Sub
    48. Private Sub ListViewServer2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListViewServer2.SelectedIndexChanged
    50. End Sub
    52. Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click
    54. Dim conn As New MySqlConnection
    55. Dim myConnectionString As String
    56. Dim cmd As New MySqlCommand
    57. 'Aufbau der Datenbankverbindung
    58. 'server= Adresse des Datenbankservers
    59. 'uid= Benutzername des Datenbankusers
    60. 'pwd= Passwort des Datenbankusers
    61. 'database= zu benutzende Datenbank
    62. myConnectionString = _
    63. "server=localhost;" _
    64. & "uid=test;" _
    65. & "pwd=test;" _
    66. & "database=tfcv;"
    67. conn.ConnectionString = myConnectionString
    68. Try
    69. conn.Open()
    70. cmd.Connection = conn
    71. cmd.CommandText = "SELECT * FROM `tbl_playerdata` LIMIT 0 , 60" 'Auszuführender SQL-Befehl
    72. cmd.Prepare()
    73. Dim reader As MySqlDataReader
    74. reader = Nothing
    75. reader = cmd.ExecuteReader()
    76. 'ListView-Element füllen
    77. Dim SubItem As ListViewItem
    78. While (reader.Read())
    79. Dim id As String = reader.GetString(0) 'der Variable id dem 1. Abfrage-Wert zuordnen
    80. Dim clan As String = reader.GetString(1) 'der Variable clan dem 2. Abfrage-Wert zuordnen
    81. Dim soldier As String = reader.GetString(2) 'der Variable soldier dem 3. Abfrage-Wert zuordnen
    82. With ListViewVietnam.Items
    83. SubItem = .Add(id) 'id in ListView in 1 Spalte eintragen
    84. SubItem.SubItems.Add(clan) 'clan in ListView in 2 Spalte eintragen
    85. SubItem.SubItems.Add(soldier) 'soldier in ListView in 3 Spalte eintragen
    86. End With
    87. End While
    88. Catch ex As MySqlException
    89. MessageBox.Show("MySQL-Exception: " & ex.Message)
    90. Catch ex As Exception
    91. MessageBox.Show("Allgemeiner Fehler: " & ex.Message)
    92. End Try
    93. conn.Close()
    94. End Sub
    96. Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click
    98. End Sub
    100. Private Sub ListViewVietnam_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListViewVietnam.SelectedIndexChanged
    102. End Sub
    103. End Class


    Wie oben schon geschrieben, die Abfrage die in der Sub Main steht funktioniert und wird im 1. Tab in der 1. ListView angezeigt, die 2. Abfrage läuft aber nicht, muss ich diese Abfrage wo anders hinschreiben?

    Danke

    MarkOH

    Anmerkung am Rande:
    Wenn du schon (fast) identische Abfragen hast, solltest du sie in eine Funktion auslagern.

    die 2. Abfrage läuft aber nicht
    Heisst was?
    Sie wirft Fehler oder das TabPage2.Click-Event wird überhaupt nicht gefeuert?

    Hast du mal versucht einen Breakpoint zu setzen und Schritt für Schritt durchzugehen, was passsiert?
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    markoh2603 schrieb:

    Über Funktion hatte ich schon nachgedacht, wird wohl auch noch kommen.


    Wird wohl auch noch kommen?

    Kleiner Tipp ... mach das bitte mal als aller Erstes. Vorallem auch für die Connection ein eigenes Connection-Object zu erstellen.

    Der Grund dafür ist einfach: Du kannst erstens genau sagen bei welchem Teil es hakt und zweitens ist Dein Code viel besser lesbar und auf Fehler zu überprüfen weil er dadurch wesentlich schlanker wird. Bei 10 Zeilen Code die man überprüfe findet man einfach einen Fehler eher als bei 100 Zeilen Code.

    Falls Du noch nicht genau weisst wie, guckst Du hier (dort geht es auch darum Code durch Aufteilung in Funktionen und Objecte besser lesbar/wartbar/änderbar zu machen): [VB 2010] MySQL Verbindung Fehler

    Gruß

    Rainer

    markoh2603 schrieb:

    Alles klar Rainer, dass schau ich mir da gleich mal an, kannst du mir aber auch schon helfen, warum die Abfrage nur im 1. Tab und nicht im 2. in die ListView geschrieben wird?


    Könnte ich, aber ich tue es nicht.

    Nein, das ist keine Bosheit, sondern schlicht es wird Dir direkt selber ins Auge springen wenn Du erstmal alles aufgeteilt hast wie oben gesagt.

    Dann passiert genau das was ich geschrieben habe: Der Code wird übersichtlicher da nur die relevanten Zeilen bestehen bleiben und Dir fällt es wie Schuppen von den Augen ... und denk daran wenn die Erkenntnis eintritt wieso nur das ListView im 1 Tab gefüllt wird, dann nicht zu hart den Kopf auf die Tischkante knallen ... der Tisch kann nix dafür. :D

    Und ich sage es Dir nicht damit Du jetzt diesen Lerneffekt durchmachst und danach NIE, NIE, NIE wieder in Deinem Leben auf die Idee kommst Code in der Art und Weise wie oben zu bauen ... und auch nie wieder Code mit C&P einfügst. ;)

    Gruß

    Rainer

    Ich kann mir zwar vorstellen was du gerade meinst mit C&P, aber wenn ich

    Quellcode

    1. With ListViewVietnam.Items

    durch

    Quellcode

    1. With ListViewServer2.Items


    ersetze, funktionierts genauso wenig.

    Aber nichts desto trotz werde ich mir deinen Rat zu Herzen nehmen und den Code besser aufbauen durch die Verwendung von Funktionen.

    markoh2603 schrieb:

    Ich kann mir zwar vorstellen was du gerade meinst mit C&P, aber wenn ich

    Quellcode

    1. With ListViewVietnam.Items

    durch

    Quellcode

    1. With ListViewServer2.Items


    ersetze, funktionierts genauso wenig.


    Richtig, genau darauf habe ich getippt weil das definitiv dazu führt das das zweite ListView nicht befüllt wird wenn die Funktion ausgeführt wird, sondern das erste ListView nur neu befüllt wird.

    Was passiert denn wenn Du im Form_Load-Event das zweite ListView angibst? Wird es dann befüllt?

    Bzw. hast Du schonmal überprüft ob der Code für die Befüllung des zweitens ListViews überhaupt angesprungen wird?

    Gruß

    Rainer

    Wenn ich ins Form-Load die ListViewServer2 angebe, wirds korrekt gemacht, mmh könnte ja nu einfach alles ins FormLoad machen. Ne Spaß beiseite.

    Aber scheinbar wird tatsächlich der Code für die Belüllung vom 2. ListView garnicht angesprungen. Warum, da muss ich allerdings passen, da ich wie du sicher schon bermerkt hast, gerade erst angefangen habe mit programmieren, fehlt mir da auch gerade die Idee.

    Übrigens nicht das du denkst, ich musste mir den Code vorhin nochmal durchschauen nach deinem C&P-Kommentar, das war schonmal richtig gemacht, da es aber auch nicht funktionierte hatte ich es wieder rückgängig gemacht, wußte also gleich worauf du hinaus wolltest und musste schon schmunzeln

    Okay. ;)

    Dann gucke mal ob Du ein Event findest das generell bei Clicken auf einen Register-Tab ausgeführt wird (also anstatt TabPage2_Click dann sowas wie Tab_Click oder so).

    Wenn ja, füge das mal ein und gucke ob das dann angesprungen wird wenn Du auf einen Register-Tab klickst. Wenn ja, kannst Du dann vermutlich dort die angeclickte Tab auslesen und danach die auszuführende Aktion auswählen.

    Wobei ... du könntest auch mal prüfen ob es mit TabPage1_Click anstatt TabPage2_Click funktioniert. Denn normalerweise ist die Aufzählung der Tabs des Registers zero-based wenn ich mich nicht täusche (also Tab 1 ist dann eigentlich Tab 0 und Tab 2 ist dann Tab 1).

    Muss jetzt auch ein wenig raten weil ich in .NET noch nie das Register-Control eingesetzt habe. ^^

    Gruß

    Rainer

    So ich habs mal fein gemacht und dazu mal den Namespace aus dem Beitrag den du mir empfohlen hast, genommen und entsprechend verändert, Abfrage funktioniert.

    Leider komme ich mit dem Tabcontrol immernoch nicht klar, habe paar Sachen probiert die mit logisch erschienen, aber das führte alles nicht zum Erfolg.
    Das die 1. Abfrage im FormLoad steht, gefällt mir ja auch nicht so richtig, sollte schon im Tab1 stehen und die 2. Abfrage im Tab2,halt wirklich dort wo es hingehört, sonst kann ich auch gleich alle Abfragen in die FormLoad machen.

    Okay, hab es jetzt mal nachgebaut. ^^

    Offensichtlich ist es ein Bug, da bei mir das TabPageX-Event auch nicht ausgelöst wird.

    Dafür funktioniert folgendes Event bei mir zuverlässig:

    VB.NET-Quellcode

    1. Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
    2. MsgBox("SelectedIndexChanged: " & Me.TabControl1.SelectedTab.Text)
    3. End Sub


    Mein Tab-Control heisst TabControl1, dass musst Du natürlich auf den Namen Deines Controls anpassen.

    Durch "Me.TabControl1.SelectedTab.Text" kommst Du an den Text des Tabs. Irgendwie habe ich keine Möglichkeit gefunden an den Tab-Index ran zu kommen (vllt auch nur nicht intensiv genug geguckt ... möglich ^^). Wenn die Beschriftung Deiner Tabs eindeutig ist, dann kannst Du ja darüber feststellen welches Tab gewählt wurde und dann die entsprechende Funktion aufrufen (und schon macht sich die Trennung in separate Funktionen los gelöst vom Event-Handling bezahlt *g*).

    EDIT:

    Verdammt ... so blind muss man erstmal sein. ^^

    Nimmst Du "Me.TabControl1.SelectedIndex" und Du bekommst den Tab-Index zurück, allerdings als zero-based. D.h. TabPage1 hat den Index 0 und TabPage2 hat den Index1.

    Gruß

    Rainer

Facebook
Telefonspende