Chat mit MySQL-DB

  • VB.NET

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

    Was nun? Naja....Aufhören!
    Das dämlichste was man machen kann ist ein Chat per FTP oder MySQL.
    Denn in beiden Fällen wird der Betreiber des FTP Server bzw. der MySQL Datenbank ganz einfach übernommen.
    Mach entweder einen Chat per TCP Server (Multiserver TCP von kevin89) oder bau dir ein PHP Skript zusammen (oft genug hier im Forum)

    Du musst in deiner DatenBank Tabellen einbauen.
    - User
    - Nachrichten

    Nun kannst du in der Tabelle Nachrichten deine Nachricht eintragen. Zusätzlich den User der gesendet hat und den User für den die Nachricht ist.

    Eine Tabelle zur Ansicht für den aktuellen User.
    Hier fragst du dann ab, welche Nachrichten für den aktuellen User sind. Mittelst Filter in der DataSet bzw BindingSource.

    Dann bekommt der Empfänger nur noch seine Nachrichten angezeigt.
    Stell dem User noch Button zur Verfügung.
    - Alle Nachrichten.
    - Gelesen Nachrichten
    .....
    - Nachrichten löschen
    ....

    So in etwa.

    Ob es sinn macht ? musst du für dich entscheiden.

    Ich habe es in meiner DatenBank eingebaut.
    Somit kann jeder User mir direkt Fehler melden.
    Kleiner Nebeneffekt, man kann das Ding dann auch per Chat nutzen.

    Was nun? Nun musst du das was in einer Textbox geschrieben wurde und nach drücken eines Buttons an die Datenbank senden und parallel dazu alle paar Sekunden prüfen ob neue Einträge in der DB vorhanden sind, wenn ja, die neuen Einträge aus der DB holen und bei dir irgendwo anzeigen. Ganz logisches System oder?

    Auslesen (alle paar secunden) kannst du mit einem Timer

    Deswegen NUR neue Datensätze auslesen. Z.B. versiehst du die Datenbanktabelle mit einer ID diese wird automatisch hoch gezählt. Wenn die Daten abholst, wird die letzte ID gespeichert, beim nächsten Query übergibst du die ID und lässt nur Datensätze ausgeben die größer sind als die übergebene ID.

    danke für deine hilfe, geht auch, aber ich habe den timer eingestellt, dass er jede millisekunde die nachrichte anzeigt, hier mein code:

    VB.NET-Quellcode

    1. Private Sub tim_chat_Tick(sender As System.Object, e As System.EventArgs) Handles tim_chat.Tick
    2. get_id()
    3. If get_id() < get_id() + 1 Then
    4. lesen()
    5. End If
    7. End Sub
    9. Function get_id() As Integer
    10. Dim con As New MySqlConnection
    11. Dim cmd As New MySqlCommand
    12. Dim reader As MySqlDataReader
    14. con.ConnectionString =
    15. "host=;" _
    16. & "uid=;" _
    17. & "pwd=;" _
    18. & "database=;"
    20. cmd.Connection = con
    21. cmd.CommandText = "SELECT `ID` from Chat"
    23. Try
    24. con.Open()
    26. reader = cmd.ExecuteReader()
    27. Do While reader.Read()
    29. l = reader("ID")
    31. Loop
    32. reader.Close()
    33. con.Close()
    34. Catch ex As Exception
    35. MsgBox(ex.Message)
    36. End Try
    37. Return l
    38. End Function
    40. Sub lesen()
    41. Dim con As New MySqlConnection
    42. Dim cmd As New MySqlCommand
    43. Dim reader As MySqlDataReader
    45. con.ConnectionString =
    46. "host=;" _
    47. & "uid=;" _
    48. & "pwd=;" _
    49. & "database=;"
    51. cmd.Connection = con
    52. cmd.CommandText = "SELECT `Name`, `Nachricht` from Chat"
    54. Try
    55. con.Open()
    57. reader = cmd.ExecuteReader()
    58. Do While reader.Read()
    59. rtb_chat.Text += reader("Name") & ": " & reader("Nachricht") & vbCrLf
    60. Loop
    61. reader.Close()
    62. con.Close()
    63. Catch ex As Exception
    64. MsgBox(ex.Message)
    65. End Try
    66. End Sub

    öhm nein? Das ist nicht meine Aufgabe, du willst ja Programmieren lernen. Du hast ja alles was du brauchst. Das Umschreiben dürfte ja nun die kleinste Arbeit sein. Immerhin hast den Code ja verstanden und weißt was wo in welcher Zeile passiert.

Facebook
Telefonspende