Code :
Geht nicht er lässt paar befehle aus ... vorschläge ? XD
Mfg
VB.NET-Quellcode
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- Dim _0 As Integer = TextBox1.Text & 0
- Dim _1 As Integer = TextBox1.Text & 1
- Dim _2 As Integer = TextBox1.Text & 2
- Dim _3 As Integer = TextBox1.Text & 3
- Dim _4 As Integer = TextBox1.Text & 4
- Dim _5 As Integer = TextBox1.Text & 5
- Dim _6 As Integer = TextBox1.Text & 6
- Dim _7 As Integer = TextBox1.Text & 7
- Dim _8 As Integer = TextBox1.Text & 8
- Dim _9 As Integer = TextBox1.Text & 9
- Dim conn As MySqlConnection
- conn = New MySqlConnection
- conn.ConnectionString = "Database=player;Data Source=192.168.2.105;User Id=root;Password=profizocker94"
- Try
- conn.Open() ' Verbindung öffnen
- Catch myerror As MySqlException
- MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
- End Try
- For ii As Integer = 0 To 10
- Select Case ii
- Case 0
- Dim myAdapter As New MySqlDataAdapter
- 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 & "'"
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- myCommand.ExecuteNonQuery()
- ii = ii + 1
- lbl_test.Text = ii
- Case 1
- Dim myAdapter As New MySqlDataAdapter
- 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 & "'"
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- myCommand.ExecuteNonQuery()
- ii = ii + 1
- lbl_test.Text = ii
- Case 2
- Dim myAdapter As New MySqlDataAdapter
- 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 & "'"
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- myCommand.ExecuteNonQuery()
- ii = ii + 1
- lbl_test.Text = ii
- Case 3
- Dim myAdapter As New MySqlDataAdapter
- 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 & "'"
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- myCommand.ExecuteNonQuery()
- ii = ii + 1
- lbl_test.Text = ii
- Case 4
- Dim myAdapter As New MySqlDataAdapter
- 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 & "'"
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- myCommand.ExecuteNonQuery()
- ii = ii + 1
- lbl_test.Text = ii
- Case 5
- Dim myAdapter As New MySqlDataAdapter
- 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 & "'"
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- myCommand.ExecuteNonQuery()
- ii = ii + 1
- lbl_test.Text = ii
- Case 6
- Dim myAdapter As New MySqlDataAdapter
- 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 & "'"
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- myCommand.ExecuteNonQuery()
- ii = ii + 1
- lbl_test.Text = ii
- Case 7
- Dim myAdapter As New MySqlDataAdapter
- 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 & "'"
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- myCommand.ExecuteNonQuery()
- ii = ii + 1
- lbl_test.Text = ii
- Case 8
- Dim myAdapter As New MySqlDataAdapter
- 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 & "'"
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- myCommand.ExecuteNonQuery()
- ii = ii + 1
- lbl_test.Text = ii
- Case 9
- Dim myAdapter As New MySqlDataAdapter
- 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 & "'"
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- myCommand.ExecuteNonQuery()
- ii = ii + 1
- lbl_test.Text = "FERTIG"
- Case Else
- End Select
- Next
- End Sub
Geht nicht er lässt paar befehle aus ... vorschläge ? XD
Mfg