Hi Leute,
Ich habe leider ein kleines Problem mit meinem Programm, und zwar möchte ich ein Nachrichtensystem einbauen, dazu benutze ich die MySQL Lib3. Nur wenn ich die Nachrichten auslesen möchte werden anstatt mehrere nur eine Nachricht geladen.
Das ist bissher mein Code:
Obwohl auf dem Server bei Empfänger 2x der selbe steht wird mir nur die 1. Nachricht anezeigt
Ich habe leider ein kleines Problem mit meinem Programm, und zwar möchte ich ein Nachrichtensystem einbauen, dazu benutze ich die MySQL Lib3. Nur wenn ich die Nachrichten auslesen möchte werden anstatt mehrere nur eine Nachricht geladen.
Das ist bissher mein Code:
VB.NET-Quellcode
- Try
- db.Encoding = Encoding.GetEncoding("ISO-8859-1")
- Dim next1 As Boolean = False
- Dim result As New RichTextBox
- Dim er As Boolean = False
- Dim anzahl As Long = 0
- anzahl = 0
- Dim rc As MySqlLib.ResultCollection = db.Query("SELECT * FROM `Nachrichten` WHERE `Empfänger`='" & Login.Benutzername.Text & "' AND `Gelesen`='0'")
- If rc.Row.Count > 0 Then
- For Each kp As Generic.KeyValuePair(Of String, String) In rc.Row(0).Columns
- result.Text &= kp.Key & "=" & kp.Value & vbNewLine
- Next
- Msg.ListBox1.Items.Clear()
- For Each i In result.Lines
- If i.StartsWith("Empfänger=") Then
- anzahl += 1
- End If
- If i.StartsWith("Betreff=") Then
- Dim Betreff As String = i.Split("=")(1)
- Msg.ListBox1.Items.Add(Betreff)
- End If
- Next
- End If
- If anzahl = 0 Then
- ButtonX1.Text = "Nachrichten"
- Else
- ButtonX1.Text = "<b>Nachrichten (" & anzahl.ToString & ")</b>"
- End If
- Catch scriptEx As MySqlLib.ScriptException
- MessageBox.Show(scriptEx.Message, "Script Fehler")
- Catch mysqlEx As MySqlLib.MySqlException
- MessageBox.Show(mysqlEx.ToShortString(), "MySql Fehler")
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Allgemeiner Fehler")
- End Try
Obwohl auf dem Server bei Empfänger 2x der selbe steht wird mir nur die 1. Nachricht anezeigt