Warum funktioniert es, wenn ich diesen Code ausführe, in der Datenbank, aber wenn ich die ListBox anschaue, sind alle darin enthaltenen Elemente verschwunden. Wenn ich zum Beispiel 3 Elemente anlege, führe den folgenden Code aus, wenn ich die Datenbank überprüfe, die gerade aktualisiert wurde, aber die Listbox selbst wird leer. Und es zeigt einen Fehler, dass der Index nicht akzeptabel ist.Können die Elemente der ListBox nicht angezeigt werden, nachdem der Code selbst erfolgreich war?
Hier ist mein Code:
For i As Integer = 0 To ListBox1.Items.Count - 1
Dim l_text As String = CStr(ListBox1.Items(i))
MysqlConn.ConnectionString = ServerString
Dim dbDataSet As New DataTable
Dim SDA As New MySqlDataAdapter
Dim bSource As New BindingSource
Dim READER As MySqlDataReader
Dim query As String
MysqlConn.Open()
query = "select * from test.subject where subject_name= '" + l_text + "'"
COMMAND = New MySqlCommand(query, MysqlConn)
READER = COMMAND.ExecuteReader
While READER.Read
slot = READER.GetInt32("subject_slot")
slot = slot - 1
Label1.Text = ""
Label5.Text = ""
End While
MysqlConn.Close()
MysqlConn.Open()
query = "UPDATE test.subject SET subject_slot='" & slot & "' WHERE subject_name= '" + l_text + "'"
COMMAND = New MySqlCommand(query, MysqlConn)
READER = COMMAND.ExecuteReader
ListBox1.Items.Clear()
MysqlConn.Close()
Next
MsgBox("ENROLLMENT SUCCESSFUL")
MsgBox("ALL SUBJECTS SELECTED ARE ENROLLED")
load_table()
Postleitzahl nur als Text bitte. Fehlermeldungen auch. – Blorgbeard
Wenn Sie Hilfe benötigen, sollten Sie den tatsächlichen Code veröffentlichen, niemand kann ein Bild ausschneiden und einfügen. – FloatingKiwi