Abfrage von Daten aus mehreren Tabellen in einer Form darstellen

  • VB.NET
  • .NET 5–6

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Abfrage von Daten aus mehreren Tabellen in einer Form darstellen

    Hallo liebes Forum

    Mich beschäftigt momentan das abfragen von mehreren Tabellen aus einer phpmyadmin DB.
    Ich habe 5 Tabellen mit Inhalt.
    tbl_gtuchDE1, tbl_gtuchDE2, tbl_gtuchDE3, tbl_gtuchDE4, tbl_gtuchDE5
    Ich Frage im moment so ab:

    VB.NET-Quellcode

    1. Private Sub UserForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. Dim AktFldNme As String = String.Empty
    4. Dim MyReader As MySqlDataReader = Nothing
    5. Dim cmd As New MySqlCommand
    6. Dim table As New DataTable
    8. Dim sql As String = "SELECT tnk1lwt, tnk2lwt, tnk3lwt, tnk1phw, tnk2phw, tnk3phw, tnk1temp,
    9. tnk2temp, tnk3temp, tnk1fmz, tnk2fmz, tnk3fmz, tnk1anmerk, tnk2anmerk, tnk3anmerk, datum, username, bearbam,
    10. datumDE5, datumDE4, datumDE3, datumDE2, datumDE1, gummituchDE5, gummituchDE4, gummituchDE3, gummituchDE2, gummituchDE1,
    11. usernameDE5, usernameDE4, usernameDE3, usernameDE2, usernameDE1, ueberrollungenDE5, ueberrollungenDE4, ueberrollungenDE3,
    12. ueberrollungenDE2, ueberrollungenDE1 FROM tbl_tank_feucht, tbl_gtuchDE5, tbl_gtuchDE4, tbl_gtuchDE3, tbl_gtuchDE2, tbl_gtuchDE1"
    14. Try
    16. If OpenDB() Then
    18. cmd = New MySqlCommand With {
    19. .Connection = Conn,
    20. .CommandText = sql
    21. }
    23. MyReader = cmd.ExecuteReader
    25. With MyReader
    27. While .Read
    29. For N As Integer = 0 To .FieldCount - 1
    31. AktFldNme = .GetName(N)
    33. Select Case AktFldNme.ToLower
    35. 'Feuchtmittelraum
    37. Case "datum".ToLower
    38. lblDatum.Text = .GetDateTime(N).ToString("d") '"dd/MM/yyyy HH:mm:ss"
    40. Case "tnk1lwt".ToLower
    41. lbltnk1lwt.Text = .GetInt32(N).ToString("D")
    43. Case "tnk1phw".ToLower
    44. lbltnk1phw.Text = .GetDecimal(N).ToString("F2")
    46. Case "tnk1temp".ToLower
    47. lbltnk1temp.Text = .GetDecimal(N).ToString("F1")
    49. Case "tnk1fmz".ToLower
    50. lbltnk1fmz.Text = .GetString(N)
    52. Case "tnk1anmerk".ToLower
    53. lbltnk1anmerk.Text = .GetString(N)
    55. Case "tnk2lwt".ToLower
    56. lbltnk2lwt.Text = .GetInt32(N).ToString("D")
    58. Case "tnk2phw".ToLower
    59. lbltnk2phw.Text = .GetDecimal(N).ToString("F2")
    61. Case "tnk2temp".ToLower
    62. lbltnk2temp.Text = .GetDecimal(N).ToString("F1")
    64. Case "tnk2fmz".ToLower
    65. lbltnk2fmz.Text = .GetString(N)
    67. Case "tnk2anmerk".ToLower
    68. lbltnk2anmerk.Text = .GetString(N)
    70. Case "tnk3lwt".ToLower
    71. lbltnk3lwt.Text = .GetInt32(N).ToString("D")
    73. Case "tnk3phw".ToLower
    74. lbltnk3phw.Text = .GetDecimal(N).ToString("F2")
    76. Case "tnk3temp".ToLower
    77. lbltnk3temp.Text = .GetDecimal(N).ToString("F1")
    79. Case "tnk3fmz".ToLower
    80. lbltnk3fmz.Text = .GetString(N)
    82. Case "tnk3anmerk".ToLower
    83. lbltnk3anmerk.Text = .GetString(N)
    85. Case "username".ToLower
    86. lblusername.Text = .GetString(N)
    88. Case "bearbam".ToLower
    89. lblbearbam.Text = .GetDateTime(N).ToString("d")
    91. Case "bearbam".ToLower
    92. lblbearbamzeit.Text = .GetDateTime(N).ToLongTimeString
    94. 'Druckerei
    96. Case "datumDE5".ToLower
    97. txtdatumde5.Text = .GetDateTime(N)
    99. Case "gummituchDE5".ToLower
    100. txtgtuchDE5.Text = .GetString(N)
    102. Case "usernameDE5".ToLower
    103. txtUsernameDE5.Text = .GetString(N)
    105. Case "ueberrollungenDE5".ToLower
    106. txtumrDE5.Text = .GetDecimal(N).ToString("n0")
    108. Case "datumDE4".ToLower
    109. txtdatumde4.Text = .GetDateTime(N)
    111. Case "gummituchDE4".ToLower
    112. txtgtuchDE4.Text = .GetString(N)
    114. Case "usernameDE4".ToLower
    115. txtUsernameDE4.Text = .GetString(N)
    117. Case "ueberrollungenDE4".ToLower
    118. txtumrDE4.Text = .GetDecimal(N).ToString("n0")
    120. Case "datumDE3".ToLower
    121. txtdatumde3.Text = .GetDateTime(N)
    123. Case "gummituchDE3".ToLower
    124. txtgtuchDE3.Text = .GetString(N)
    126. Case "usernameDE3".ToLower
    127. txtUsernameDE3.Text = .GetString(N)
    129. Case "ueberrollungenDE3".ToLower
    130. txtumrDE3.Text = .GetDecimal(N).ToString("n0")
    132. Case "datumDE2".ToLower
    133. txtdatumde2.Text = .GetDateTime(N)
    135. Case "gummituchDE2".ToLower
    136. txtgtuchDE2.Text = .GetString(N)
    138. Case "usernameDE2".ToLower
    139. txtUsernameDE2.Text = .GetString(N)
    141. Case "ueberrollungenDE2".ToLower
    142. txtumrDE2.Text = .GetDecimal(N).ToString("n0")
    144. Case "datumDE1".ToLower
    145. txtdatumde1.Text = .GetDateTime(N)
    147. Case "gummituchDE1".ToLower
    148. txtgtuchDE1.Text = .GetString(N)
    150. Case "usernameDE1".ToLower
    151. txtUsernameDE1.Text = .GetString(N)
    153. Case "ueberrollungenDE1".ToLower
    154. txtumrDE1.Text = .GetDecimal(N).ToString("n0")
    156. End Select
    158. Next
    160. End While
    162. End With
    164. End If
    166. Catch ex As Exception
    168. MsgBox(ex.Message, MsgBoxStyle.Critical, "Error [" & ex.GetType.Name & ", Akt. Feld: """ & AktFldNme & """]")
    170. Finally
    172. If MyReader IsNot Nothing Then
    174. MyReader.Close()
    175. MyReader = Nothing
    177. End If
    179. If cmd IsNot Nothing Then
    181. cmd.Dispose()
    182. cmd = Nothing
    184. End If
    186. If Conn IsNot Nothing Then
    188. Conn.Close()
    189. Conn.Dispose()
    190. Conn = Nothing
    192. End If
    194. End Try
    196. End Sub


    Wenn ich das Programm laufen lasse, benötigt die Abfrage mind. 1 Minute bis die Einträge in der From erscheinen obwohl in der DB gerademal 550 Einträge vorhanden sind und tbl_3 bis tbl_1 leer sind.
    Wahrscheinlich gibt es eine bessere Lösung um die Abfrage etwas zu beschleunigen aber leider komme ich nicht drauf.

    Vielleicht kann mir ein Profi einen Tipp geben.

    Vielen Dank

    Gebhard

    Bei SQL bin ich raus. Aber: Welche Zeile ist der Flaschenhals? Setze Haltepunkte z.B. in Zeile#16, #23# und #29 und schau, wie lange der Code von der einen zur nächsten Stelle braucht. Das wird dann angezeigt.
    Bilder

    • Messung1.png

      8,42 kB, 667×126, 83 mal angesehen

    • Messung2.png

      13,23 kB, 668×124, 77 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Typhoon schrieb:

    Ich habe 5 Tabellen mit Inhalt.
    tbl_gtuchDE1, tbl_gtuchDE2, tbl_gtuchDE3, tbl_gtuchDE4, tbl_gtuchDE5
    uih - diese Tabellennamen deuten fast eindeutig daraufhin, dass das Datenmodell in der Datenbank bereits völlig verfehlt ist.
    Darauf aufbauend kann eiglich nichts bei rauskommen.
    Beschäftige dich mit relationaler Datenmodellierung, lass dir im Forum dabei helfen, für deine Anwendung ein geeignetes Datenmodell zu konzipieren.


    Ansonsten scheint auch die Abfrage ohne SQL-Kenntnisse erstellt zu sein.
    Sie wird ein Kartesisches Produkt aus allen 6(!) angesprochenen Tabellen erbringen.
    Dabei entstehen riesige Datenmengen: die Anzahl der Datensätze entspricht der Auf-Multiplikation aller Tabellen.


    Diese Abermillionen Datensätze liest du alle in immer dieselben Controls ein.
    Also erst einen, dann den nächsten - der überschreibt den vorherigen.
    dann den nächsten - der überschreibt den vorherigen.
    dann den nächsten - der überschreibt den vorherigen.
    dann den nächsten - der überschreibt den vorherigen.
    ...
    Am Ende hast du alle Datensätze durchlaufen, und nur der letzte wurde nicht vom nachfolgenden überschrieben, und verbleibt so in deinen Controls.

    Guten Morgen

    @ VaporiZed
    Danke für den Tipp. Ich habe Haltepunkte gesetzt. Hier das Ergebnis.

    [img][/img]">

    Knapp 4 min.

    @ ErfinderDesRades

    Auch dir Danke für deinen Beitrag.
    Ich drehe mich schon seit Monaten im Kreis und langsam habe ich die Lust verloren an meinem Projekt weiter zu machen.
    Ich habe schon etliche Anläufe hinter mir und das ergebniss ist immer das selbe. Irgendwann ist der Punkt erreicht wo es nicht mehr weiter geht.
    Es ist doch sehr umfangreich und ohne Grundkenntnisse ist es für mich unmöglich hierbei weiter zu kommen. Dachte es wäre einfacher.
    Es gibt da duzende Lösungswege.... aber welcher ist der richtige. Angefangen vom Aufbau der DB.
    Vielleicht kennst Du jemanden, der sich mir annehmen kann/wird :P . Ich bin für jede Hilfe dankbar. Ich möchte ja nicht das es mir fertig gemacht wir sondern eher erklärt wird wie ich vorgehen muss um an das Ziel zu kommen.
    Ich bin kein Unternehmen sondern eine Private Person die sich gerne in der Freizeit mit diesem Thema beschäftigt mir aber dann in meinem Beruf zugute kommt.

    uih - diese Tabellennamen deuten fast eindeutig daraufhin, dass das Datenmodell in der Datenbank bereits völlig verfehlt ist.


    Genau so ein Thema. Wie ist das in der DB zu lösen. Mache ich eine Tabelle wo alles drinnen steht oder andersrum oder ganz anders.

    Vielen Dank für eure Hilfe

    Gruß Gebhard

    Echt jetzt? Du sollst nicht meinen Code messen, sondern Deinen aus Post#1! Und die Stellen, an denen es sinnvoll wäre, Haltepunkte zu setzen, habe ich auch in Post#2 erwähnt.
    Mein Code mit der For-Schleife war nur dafür da, dass Du weißt, wo die Zeitmessung zu finden ist, die Dir Visual Studio anbietet.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @ VaporiZed

    Also ich habe schon in meinem Code aus Post#1 die Haltepunkte gesetzt. Tut mir leid, wenn ich da etwas falsch verstanden habe.
    Ich setzte die Haltepunkte mit F9. Aber das Ergenbis ist gleich geblieben.



    knapp 4 min. bis die Form mit den Einträgen erscheint.



    Meine Frage war nicht, wie lange es dauert, bis das Form gesezigt wird, sondern wie lange es von Zeile#16 Deines Post#1-Codes zu Zeile#23 dauert, wie lange von #23 bis #29 und wie lange von #29 zur nächsten Zeile. So findest Du heraus, was da so lange dauert. Und dann kannst Du Dich gezielt an die Optimierung machen, weil Du nicht rumrätseln musst, was da so lange dauert.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @ VaporiZed

    Ok, jetzt hat es gezündet. :)

    Also ich habe 8 Haltepunkte verteilt vom Anfang bis zum Ende des Codes.

    Aufgefallen ist, dass das Programm zwischen den Zeilen 33 und 153 hin und her springt. Nach 3 min. auf WEITER drücken habe ich dann abgebrochen. Aber in der regel waren die Zeiten 1-2 ms in diesem Abschnitt.

    Typhoon schrieb:

    zwischen den Zeilen 33 und 153 hin und her springt
    Das erscheint mir merkwürdig.
    Ich hätte verstanden, wenn es zwischen 29 und 158 oder zwischen 27 und 160 springt.

    Typhoon schrieb:

    Also ich habe 8 Haltepunkte verteilt vom Anfang bis zum Ende des Codes.
    Versuch's mal nicht mit Haltepunkten, sondern mit Einzelschritten.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    @ petaod

    Guten Morgen

    Also wenn ich das Programm in Einzelschritten Durchlaufen lassen ( F10 ) werden die Prozedurschritte ca. 4 min. wiederholt bis die Form mit der Ausgabe erscheint.

    VB.NET-Quellcode

    1. AktFldNme = .GetName(N)
    3. Select Case AktFldNme.ToLower
    5. 'Feuchtmittelraum
    7. Case "datum".ToLower
    8. lblDatum.Text = .GetDateTime(N).ToString("d") '"dd/MM/yyyy HH:mm:ss"
    10. Case "tnk1lwt".ToLower
    11. lbltnk1lwt.Text = .GetInt32(N).ToString("D")
    13. Case "tnk1phw".ToLower
    14. lbltnk1phw.Text = .GetDecimal(N).ToString("F2")
    16. Case "tnk1temp".ToLower
    17. lbltnk1temp.Text = .GetDecimal(N).ToString("F1")
    19. Case "tnk1fmz".ToLower
    20. lbltnk1fmz.Text = .GetString(N)
    22. Case "tnk1anmerk".ToLower
    23. lbltnk1anmerk.Text = .GetString(N)
    25. Case "tnk2lwt".ToLower
    26. lbltnk2lwt.Text = .GetInt32(N).ToString("D")
    28. Case "tnk2phw".ToLower
    29. lbltnk2phw.Text = .GetDecimal(N).ToString("F2")
    31. Case "tnk2temp".ToLower
    32. lbltnk2temp.Text = .GetDecimal(N).ToString("F1")
    34. Case "tnk2fmz".ToLower
    35. lbltnk2fmz.Text = .GetString(N)
    37. Case "tnk2anmerk".ToLower
    38. lbltnk2anmerk.Text = .GetString(N)
    40. Case "tnk3lwt".ToLower
    41. lbltnk3lwt.Text = .GetInt32(N).ToString("D")
    43. Case "tnk3phw".ToLower
    44. lbltnk3phw.Text = .GetDecimal(N).ToString("F2")
    46. Case "tnk3temp".ToLower
    47. lbltnk3temp.Text = .GetDecimal(N).ToString("F1")
    49. Case "tnk3fmz".ToLower
    50. lbltnk3fmz.Text = .GetString(N)
    52. Case "tnk3anmerk".ToLower
    53. lbltnk3anmerk.Text = .GetString(N)
    55. Case "username".ToLower
    56. lblusername.Text = .GetString(N)
    58. Case "bearbam".ToLower
    59. lblbearbam.Text = .GetDateTime(N).ToString("d")
    61. Case "bearbam".ToLower
    62. lblbearbamzeit.Text = .GetDateTime(N).ToLongTimeString
    64. 'Druckerei
    66. Case "datumDE5".ToLower
    67. txtdatumde5.Text = .GetDateTime(N)
    69. Case "gummituchDE5".ToLower
    70. txtgtuchDE5.Text = .GetString(N)
    72. Case "usernameDE5".ToLower
    73. txtUsernameDE5.Text = .GetString(N)
    75. Case "ueberrollungenDE5".ToLower
    76. txtumrDE5.Text = .GetDecimal(N).ToString("n0")
    78. Case "datumDE4".ToLower
    79. txtdatumde4.Text = .GetDateTime(N)
    81. Case "gummituchDE4".ToLower
    82. txtgtuchDE4.Text = .GetString(N)
    84. Case "usernameDE4".ToLower
    85. txtUsernameDE4.Text = .GetString(N)
    87. Case "ueberrollungenDE4".ToLower
    88. txtumrDE4.Text = .GetDecimal(N).ToString("n0")
    90. Case "datumDE3".ToLower
    91. txtdatumde3.Text = .GetDateTime(N)
    93. Case "gummituchDE3".ToLower
    94. txtgtuchDE3.Text = .GetString(N)
    96. Case "usernameDE3".ToLower
    97. txtUsernameDE3.Text = .GetString(N)
    99. Case "ueberrollungenDE3".ToLower
    100. txtumrDE3.Text = .GetDecimal(N).ToString("n0")
    102. Case "datumDE2".ToLower
    103. txtdatumde2.Text = .GetDateTime(N)
    105. Case "gummituchDE2".ToLower
    106. txtgtuchDE2.Text = .GetString(N)
    108. Case "usernameDE2".ToLower
    109. txtUsernameDE2.Text = .GetString(N)
    111. Case "ueberrollungenDE2".ToLower
    112. txtumrDE2.Text = .GetDecimal(N).ToString("n0")
    114. Case "datumDE1".ToLower
    115. txtdatumde1.Text = .GetDateTime(N)
    117. Case "gummituchDE1".ToLower
    118. txtgtuchDE1.Text = .GetString(N)
    120. Case "usernameDE1".ToLower
    121. txtUsernameDE1.Text = .GetString(N)
    123. Case "ueberrollungenDE1".ToLower
    124. txtumrDE1.Text = .GetDecimal(N).ToString("n0")
    126. End Select
    128. Next

    @ petaod

    Beim durchlaufen der Zeilen braucht das Programm an der Stelle " End While " Zeile 136. am längsten.

    Visual Basic-Quellcode

    1. With MyReader
    3. While .Read
    5. For N As Integer = 0 To .FieldCount - 1
    7. AktFldNme = .GetName(N)
    9. Select Case AktFldNme.ToLower
    11. 'Feuchtmittelraum
    13. Case "datum".ToLower
    14. lblDatum.Text = .GetDateTime(N).ToString("d") '"dd/MM/yyyy HH:mm:ss"
    16. Case "tnk1lwt".ToLower
    17. lbltnk1lwt.Text = .GetInt32(N).ToString("D")
    19. Case "tnk1phw".ToLower
    20. lbltnk1phw.Text = .GetDecimal(N).ToString("F2")
    22. Case "tnk1temp".ToLower
    23. lbltnk1temp.Text = .GetDecimal(N).ToString("F1")
    25. Case "tnk1fmz".ToLower
    26. lbltnk1fmz.Text = .GetString(N)
    28. Case "tnk1anmerk".ToLower
    29. lbltnk1anmerk.Text = .GetString(N)
    31. Case "tnk2lwt".ToLower
    32. lbltnk2lwt.Text = .GetInt32(N).ToString("D")
    34. Case "tnk2phw".ToLower
    35. lbltnk2phw.Text = .GetDecimal(N).ToString("F2")
    37. Case "tnk2temp".ToLower
    38. lbltnk2temp.Text = .GetDecimal(N).ToString("F1")
    40. Case "tnk2fmz".ToLower
    41. lbltnk2fmz.Text = .GetString(N)
    43. Case "tnk2anmerk".ToLower
    44. lbltnk2anmerk.Text = .GetString(N)
    46. Case "tnk3lwt".ToLower
    47. lbltnk3lwt.Text = .GetInt32(N).ToString("D")
    49. Case "tnk3phw".ToLower
    50. lbltnk3phw.Text = .GetDecimal(N).ToString("F2")
    52. Case "tnk3temp".ToLower
    53. lbltnk3temp.Text = .GetDecimal(N).ToString("F1")
    55. Case "tnk3fmz".ToLower
    56. lbltnk3fmz.Text = .GetString(N)
    58. Case "tnk3anmerk".ToLower
    59. lbltnk3anmerk.Text = .GetString(N)
    61. Case "username".ToLower
    62. lblusername.Text = .GetString(N)
    64. Case "bearbam".ToLower
    65. lblbearbam.Text = .GetDateTime(N).ToString("d")
    67. 'Case "bearbam".ToLower
    68. 'lblbearbamzeit.Text = .GetDateTime(N).ToLongTimeString
    70. 'Druckerei
    72. Case "datumDE5".ToLower
    73. txtdatumde5.Text = .GetDateTime(N)
    75. Case "gummituchDE5".ToLower
    76. txtgtuchDE5.Text = .GetString(N)
    78. Case "usernameDE5".ToLower
    79. txtUsernameDE5.Text = .GetString(N)
    81. Case "ueberrollungenDE5".ToLower
    82. txtumrDE5.Text = .GetDecimal(N).ToString("n0")
    84. Case "datumDE4".ToLower
    85. txtdatumde4.Text = .GetDateTime(N)
    87. Case "gummituchDE4".ToLower
    88. txtgtuchDE4.Text = .GetString(N)
    90. Case "usernameDE4".ToLower
    91. txtUsernameDE4.Text = .GetString(N)
    93. Case "ueberrollungenDE4".ToLower
    94. txtumrDE4.Text = .GetDecimal(N).ToString("n0")
    96. Case "datumDE3".ToLower
    97. txtdatumde3.Text = .GetDateTime(N)
    99. Case "gummituchDE3".ToLower
    100. txtgtuchDE3.Text = .GetString(N)
    102. Case "usernameDE3".ToLower
    103. txtUsernameDE3.Text = .GetString(N)
    105. Case "ueberrollungenDE3".ToLower
    106. txtumrDE3.Text = .GetDecimal(N).ToString("n0")
    108. Case "datumDE2".ToLower
    109. txtdatumde2.Text = .GetDateTime(N)
    111. Case "gummituchDE2".ToLower
    112. txtgtuchDE2.Text = .GetString(N)
    114. Case "usernameDE2".ToLower
    115. txtUsernameDE2.Text = .GetString(N)
    117. Case "ueberrollungenDE2".ToLower
    118. txtumrDE2.Text = .GetDecimal(N).ToString("n0")
    120. Case "datumDE1".ToLower
    121. txtdatumde1.Text = .GetDateTime(N)
    123. Case "gummituchDE1".ToLower
    124. txtgtuchDE1.Text = .GetString(N)
    126. Case "usernameDE1".ToLower
    127. txtUsernameDE1.Text = .GetString(N)
    129. Case "ueberrollungenDE1".ToLower
    130. txtumrDE1.Text = .GetDecimal(N).ToString("n0")
    132. End Select
    134. Next
    136. End While

    ich sagss nochmal: nach meiner Vermutung ist das Konzept vermurkst.
    Und das Problem ist, dass irrsinnige Mengen an Daten erzeugt und wieder verworfen werden.
    Also statt zu messen, wie lange das dauert, zähl doch einmal mit, wieviele Umdrehungen die While-Schleife macht.
    Vielleicht irre ich mich auch, aber den versuch sollteste unbedingt machen.

    Typhoon schrieb:

    Beim durchlaufen der Zeilen braucht das Programm an der Stelle " End While " Zeile 136. am längsten.
    Weil er dann die nächste Zeile ausführt, das ist Zeile 3 While .Read.
    Da liest er den nächsten Datensatz.

    Wie lange benötigt er denn, wenn du das SQL-Statement in der MySql-Workbench ausführst?
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Hallo zusammen

    Durch zufall konnte mir ein Nachbar Licht ins Dunkle bringen.
    Bei mir war generell die DB-Struktur schon falsch. Ich habe die Schlüssel ganz falsch vergeben.

    [/URL][/img]Falsche DB-Struktur





    Richtige oder bessere DB-Struktur

    [img][/img]">


    Und die Abfrage sieht jetzt so aus:

    VB.NET-Quellcode

    1. Private Sub UserForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. Dim AktFldNme As String = String.Empty
    4. Dim MyReader As MySqlDataReader = Nothing
    5. Dim cmd As New MySqlCommand
    6. Dim table As New DataTable
    8. Dim sql As String = "Select * FROM `feuchtmittelmessung` WHERE tank = 'T1' ORDER BY datum DESC LIMIT 1"
    10. Try
    12. If OpenDB() Then
    14. cmd = New MySqlCommand With {
    15. .Connection = Conn,
    16. .CommandText = sql
    17. }
    19. MyReader = cmd.ExecuteReader
    21. With MyReader
    23. While .Read
    25. For N As Integer = 0 To .FieldCount - 1
    27. AktFldNme = .GetName(N)
    28. Select Case AktFldNme.ToLower
    30. Case "datum".ToLower
    31. lblDatumT1.Text = .GetDateTime(N).ToString("d") '"dd/MM/yyyy HH:mm:ss"
    33. Case "leitwert".ToLower
    34. lbltnk1lwt.Text = .GetInt32(N).ToString("D")
    36. Case "phwert".ToLower
    37. lbltnk1phw.Text = .GetDecimal(N).ToString("F2")
    39. Case "temperatur".ToLower
    40. lbltnk1temp.Text = .GetDecimal(N).ToString("F1")
    42. Case "feuchtmittelzusatz".ToLower
    43. lbltnk1fmz.Text = .GetString(N)
    45. Case "anmerkung".ToLower
    46. lbltnk1anmerk.Text = .GetString(N)
    48. End Select
    50. Next
    52. End While
    54. End With
    56. End If
    58. Catch ex As Exception
    60. MsgBox(ex.Message, MsgBoxStyle.Critical, "Error [" & ex.GetType.Name & ", Akt. Feld: """ & AktFldNme & """]")
    62. Finally
    64. If MyReader IsNot Nothing Then
    66. MyReader.Close()
    67. MyReader = Nothing
    69. End If
    71. If cmd IsNot Nothing Then
    73. cmd.Dispose()
    74. cmd = Nothing
    76. End If
    78. End Try


    Jetzt habe ich ca. 3500 Einträge und diese werden Blitz schnell in der Form ausgegeben.

    Danke trotzalledem an petaod, ErfinderDesRades und alle die mir Tipps geben konnten.

    Ein nächstes Problem kommt sicher :P :P

    Grüße Gebhard

    was du "dbStruktur" nennst ist nur das Design zweier Tabellen (alt, neu).

    Eine Datenbank enthält viele Tabellen, und die sind untereinander verknüpft - das meint das Wort "dbStruktur" (ich nenne es lieber "Datenbank-Design").
    Ein Riesen-Unterschied, ungefähr wie der Unterschied zwischen "Finger" und "Hand".

    Du solltest unbedingt relationale Datenmodellierung erlernen. Im Datenbank-Tutorial-Bereich habich ein Tut gemacht zu "Grundlagen der Datenmodellierung".
    Eine Anwendung, die auf einem unbrauchbaren Datenmodell aufbaut, kann nichts werden - ganz ausgeschlossen.
    Das musst du lernen - oder lass deinen Nachbarn dein Programm schreiben.

Facebook
Telefonspende