MySql Help

[Blackrobot]

Hello Guys,
i need some help with my programm and sry for my Bad English.
I want to connect the program with a MySQL database
Description to the picture:

1. "Anwesend" mean something like Online:
- The Nickname of T1 -> Add to L1.
- The nickname may only be in the list 1 time.

2. "Abwesend" mean something like Offline:
- The Nickname of T1 -> Remove from L1.

3. "Entfernen" mean something like Remove:
- The selected nickname from L1 -> Remove from L1.

4. "Leeren" mean something like Clear:
- Clear L1.

5. "Go Team!" :
- The first nickname from L1 -> Add to L2 -> and Remove from L1.

6. "Leeren" mean something like Clear:
- Clear L2.

7. "Ersetzen" mean something like Replace:
- The selected nickname from L2 -> Remove from L2 -> Add the frist nickname from L1.

8. Is like 5, 6, 7 only with L3

The File: <!-- m --><a class="postlink" href="http://www.mediafire.com/?zuqa73445x4m3x0">http://www.mediafire.com/?zuqa73445x4m3x0</a><!-- m -->

I hope you can help me, despite my poor English <!-- s --><img src="{SMILIES_PATH}/icon_e_sad.gif" alt="" title="Sad" /><!-- s --> .

[brandonio21]

Hello Blackrobot,

In order for us to help you, we need an actual description of what you are trying to do.....

Side Note: CS! Wooo!

[Blackrobot]

I do not know what to do...

[xolara]

If you are trying to make something similar to a register you can try out the code i use

Code:

Private Sub MySqlRegister(ByVal username As String, ByVal password As String)
        Try
            MySqlConnection = New MySqlConnection
            MySqlConnection.ConnectionString = "server=" & Host & ";Port=" & Port & ";User id=" & User & ";Password=" & Pass & ";database=" & Database
            MySqlConnection.Open()
            Dim MySqlAdapter As New MySqlDataAdapter
            Dim SqlQuery = "SELECT * FROM testing WHERE username='" & username & "'"
            Dim Command As New MySqlCommand
            Dim MyData As MySqlDataReader
            Dim RegisterFinal As New MySqlDataAdapter

            Command.Connection = MySqlConnection
            Command.CommandText = SqlQuery
            MySqlAdapter.SelectCommand = Command
            MyData = Command.ExecuteReader

            If MyData.HasRows = 0 Then

                MySqlConnection.Close()
                MySqlConnection.Open()

                SqlQuery = "INSERT INTO testing (username, password) VALUE('" & username & "','" & password & "')"
                Command.Connection = MySqlConnection
                Command.CommandText = SqlQuery
                RegisterFinal.SelectCommand = Command
                MyData = Command.ExecuteReader

                ''send register success notice
                Send("responseR||Registered!||", Server.clientSocket)
                Log(username & " has been registered!", txt_log)

                MySqlConnection.Close()
                MyData.Close()
            Else
                ''send failed notice
                Send("responseR||There was an error in registration||", Server.clientSocket)
                Log(username & " Username is allready in use!", txt_log)
                MySqlConnection.Close()
                MyData.Close()
            End If
            MySqlConnection.Close()
            MyData.Close()
        Catch ex As Exception
            Log(ex.Message, txt_log)
        End Try
    End Sub

You shouldnt need to use a While Data.Read() in the code