Select Case funzt nicht xD

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von milaim.

    Select Case funzt nicht xD

    Code :

    VB.NET-Quellcode

    1. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    2. Dim _0 As Integer = TextBox1.Text & 0
    3. Dim _1 As Integer = TextBox1.Text & 1
    4. Dim _2 As Integer = TextBox1.Text & 2
    5. Dim _3 As Integer = TextBox1.Text & 3
    6. Dim _4 As Integer = TextBox1.Text & 4
    7. Dim _5 As Integer = TextBox1.Text & 5
    8. Dim _6 As Integer = TextBox1.Text & 6
    9. Dim _7 As Integer = TextBox1.Text & 7
    10. Dim _8 As Integer = TextBox1.Text & 8
    11. Dim _9 As Integer = TextBox1.Text & 9
    14. Dim conn As MySqlConnection
    15. conn = New MySqlConnection
    16. conn.ConnectionString = "Database=player;Data Source=192.168.2.105;User Id=root;Password=profizocker94"
    17. Try
    18. conn.Open() ' Verbindung öffnen
    19. Catch myerror As MySqlException
    20. MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
    21. End Try
    22. For ii As Integer = 0 To 10
    24. Select Case ii
    27. Case 0
    28. Dim myAdapter As New MySqlDataAdapter
    29. Dim SQLAbfrage As String = "UPDATE item_proto SET value0='" & value0_0.Text & "' ,value1='" & value1_0.Text & "' ,value2='" & value2_0.Text & "' ,value3='" & value3_0.Text & "' ,value4='" & value4_0.Text & "' ,value5='" & value5_0.Text & "' WHERE vnum='" & _0 & "'"
    30. Dim myCommand As New MySqlCommand
    31. myCommand.Connection = conn
    32. myCommand.CommandText = SQLAbfrage
    34. myAdapter.SelectCommand = myCommand
    35. myCommand.ExecuteNonQuery()
    36. ii = ii + 1
    37. lbl_test.Text = ii
    39. Case 1
    40. Dim myAdapter As New MySqlDataAdapter
    41. Dim SQLAbfrage As String = "UPDATE item_proto SET value0='" & value0_1.Text & "' ,value1='" & value1_1.Text & "' ,value2='" & value2_1.Text & "' ,value3='" & value3_1.Text & "' ,value4='" & value4_1.Text & "' ,value5='" & value5_1.Text & "' WHERE vnum='" & _1 & "'"
    42. Dim myCommand As New MySqlCommand
    43. myCommand.Connection = conn
    44. myCommand.CommandText = SQLAbfrage
    46. myAdapter.SelectCommand = myCommand
    47. myCommand.ExecuteNonQuery()
    48. ii = ii + 1
    49. lbl_test.Text = ii
    50. Case 2
    51. Dim myAdapter As New MySqlDataAdapter
    52. Dim SQLAbfrage As String = "UPDATE item_proto SET value0='" & value0_2.Text & "' ,value1='" & value1_2.Text & "' ,value2='" & value2_2.Text & "' ,value3='" & value3_2.Text & "' ,value4='" & value4_2.Text & "' ,value5='" & value5_2.Text & "' WHERE vnum='" & _2 & "'"
    53. Dim myCommand As New MySqlCommand
    54. myCommand.Connection = conn
    55. myCommand.CommandText = SQLAbfrage
    57. myAdapter.SelectCommand = myCommand
    58. myCommand.ExecuteNonQuery()
    59. ii = ii + 1
    60. lbl_test.Text = ii
    61. Case 3
    62. Dim myAdapter As New MySqlDataAdapter
    63. Dim SQLAbfrage As String = "UPDATE item_proto SET value0='" & value0_3.Text & "' ,value1='" & value1_3.Text & "' ,value2='" & value2_3.Text & "' ,value3='" & value3_3.Text & "' ,value4='" & value4_3.Text & "' ,value5='" & value5_3.Text & "' WHERE vnum='" & _3 & "'"
    64. Dim myCommand As New MySqlCommand
    65. myCommand.Connection = conn
    66. myCommand.CommandText = SQLAbfrage
    68. myAdapter.SelectCommand = myCommand
    69. myCommand.ExecuteNonQuery()
    70. ii = ii + 1
    71. lbl_test.Text = ii
    72. Case 4
    73. Dim myAdapter As New MySqlDataAdapter
    74. Dim SQLAbfrage As String = "UPDATE item_proto SET value0='" & value0_4.Text & "' ,value1='" & value1_4.Text & "' ,value2='" & value2_4.Text & "' ,value3='" & value3_4.Text & "' ,value4='" & value4_4.Text & "' ,value5='" & value5_4.Text & "' WHERE vnum='" & _4 & "'"
    75. Dim myCommand As New MySqlCommand
    76. myCommand.Connection = conn
    77. myCommand.CommandText = SQLAbfrage
    79. myAdapter.SelectCommand = myCommand
    80. myCommand.ExecuteNonQuery()
    81. ii = ii + 1
    82. lbl_test.Text = ii
    83. Case 5
    84. Dim myAdapter As New MySqlDataAdapter
    85. Dim SQLAbfrage As String = "UPDATE item_proto SET value0='" & value0_5.Text & "' ,value1='" & value1_5.Text & "' ,value2='" & value2_5.Text & "' ,value3='" & value3_5.Text & "' ,value4='" & value4_5.Text & "' ,value5='" & value5_5.Text & "' WHERE vnum='" & _5 & "'"
    86. Dim myCommand As New MySqlCommand
    87. myCommand.Connection = conn
    88. myCommand.CommandText = SQLAbfrage
    90. myAdapter.SelectCommand = myCommand
    91. myCommand.ExecuteNonQuery()
    92. ii = ii + 1
    93. lbl_test.Text = ii
    94. Case 6
    95. Dim myAdapter As New MySqlDataAdapter
    96. Dim SQLAbfrage As String = "UPDATE item_proto SET value0='" & value0_6.Text & "' ,value1='" & value1_6.Text & "' ,value2='" & value2_6.Text & "' ,value3='" & value3_6.Text & "' ,value4='" & value4_6.Text & "' ,value5='" & value5_6.Text & "' WHERE vnum='" & _6 & "'"
    97. Dim myCommand As New MySqlCommand
    98. myCommand.Connection = conn
    99. myCommand.CommandText = SQLAbfrage
    101. myAdapter.SelectCommand = myCommand
    102. myCommand.ExecuteNonQuery()
    103. ii = ii + 1
    104. lbl_test.Text = ii
    105. Case 7
    106. Dim myAdapter As New MySqlDataAdapter
    107. Dim SQLAbfrage As String = "UPDATE item_proto SET value0='" & value0_7.Text & "' ,value1='" & value1_7.Text & "' ,value2='" & value2_7.Text & "' ,value3='" & value3_7.Text & "' ,value4='" & value4_7.Text & "' ,value5='" & value5_7.Text & "' WHERE vnum='" & _7 & "'"
    108. Dim myCommand As New MySqlCommand
    109. myCommand.Connection = conn
    110. myCommand.CommandText = SQLAbfrage
    112. myAdapter.SelectCommand = myCommand
    113. myCommand.ExecuteNonQuery()
    114. ii = ii + 1
    115. lbl_test.Text = ii
    116. Case 8
    117. Dim myAdapter As New MySqlDataAdapter
    118. Dim SQLAbfrage As String = "UPDATE item_proto SET value0='" & value0_8.Text & "' ,value1='" & value1_8.Text & "' ,value2='" & value2_8.Text & "' ,value3='" & value3_8.Text & "' ,value4='" & value4_8.Text & "' ,value5='" & value5_8.Text & "' WHERE vnum='" & _8 & "'"
    119. Dim myCommand As New MySqlCommand
    120. myCommand.Connection = conn
    121. myCommand.CommandText = SQLAbfrage
    123. myAdapter.SelectCommand = myCommand
    124. myCommand.ExecuteNonQuery()
    125. ii = ii + 1
    126. lbl_test.Text = ii
    127. Case 9
    128. Dim myAdapter As New MySqlDataAdapter
    129. Dim SQLAbfrage As String = "UPDATE item_proto SET value0='" & value0_9.Text & "' ,value1='" & value1_9.Text & "' ,value2='" & value2_9.Text & "' ,value3='" & value3_9.Text & "' ,value4='" & value4_9.Text & "' ,value5='" & value5_9.Text & "' WHERE vnum='" & _9 & "'"
    130. Dim myCommand As New MySqlCommand
    131. myCommand.Connection = conn
    132. myCommand.CommandText = SQLAbfrage
    134. myAdapter.SelectCommand = myCommand
    135. myCommand.ExecuteNonQuery()
    136. ii = ii + 1
    137. lbl_test.Text = "FERTIG"
    138. Case Else
    140. End Select
    142. Next
    146. End Sub


    Geht nicht er lässt paar befehle aus ... vorschläge ? XD


    Mfg
    Grüße , xChRoNiKx

    Nützliche Links:
    Visual Studio Empfohlene Einstellungen | Try-Catch heißes Eisen

    ChRoNiK..rofl...ich..lol...okay, moment, muss mich mal wieder einkriegen. Kann man Deine Beiträge irgendwie abonnieren? Du machst Dir ja eine Arbeit...okay, erst einmal eine Frage: Warum haust Du zehnmal ein und denselben fetten Codeblock in jedes Case-Statement, wenn Du nur eine einzige Zeile änderst? Mal ganz davon ab: warum machst Du das nicht parametrisiert, das ist doch viel sauberer?
    Und bei diesem Ganzen Tohuwabohu das Du da veranstaltest...kam Dir nicht vielleicht mal die Idee, die Textboxen in ein Array zu packen? Den kompletten Code könnte man mit einem Array von Textboxen, zwei Schleifen und ohne ständige Wiederholungen bestimmt auf 1/7 oder 1/8 kürzen. Und dazu noch sicherer. Und übersichtlicher. Ach und mit der Angabe welche Kommandos nicht ausgeführt werden könnte man auch mehr direkt bei dem Fehler helfen.

    Gruß FatFire

    PS: Heißer Anwärter auf BigBloatCode-Award. :thumbup:

Facebook
Telefonspende