Hallo,
da ich noch wenig Ahnung im Thema MySQL und Visual Basic habe, frage ich doch am besten hier nach einer Lösung. Ich habe eine MySQL Datenbank welche 2 Tabellen beinhaltet (Userlist und Serial). Ich habe einen kleinen Launcher gebastelt,welcher dort nach Username und Passwort sucht und bei jeweiligem Fund die entsprechenden Meldungen "Logged in" oder "Wrong credentials" ausgibt. Außerdem habe ich ein Registrerungsformular hinzugefügt welches dem Benutzer möglich macht, einen Account zu erstellen. Dafür benötigt er eine Seriennummer (serial). Wenn diese richtig ist soll ein neues Konto erstellt werden und der entsprechende Serial soll aus der Tabelle gelöscht werden. Allerdings löscht sich der Serial nicht aus der Tabelle....Hier mein Code
da ich noch wenig Ahnung im Thema MySQL und Visual Basic habe, frage ich doch am besten hier nach einer Lösung. Ich habe eine MySQL Datenbank welche 2 Tabellen beinhaltet (Userlist und Serial). Ich habe einen kleinen Launcher gebastelt,welcher dort nach Username und Passwort sucht und bei jeweiligem Fund die entsprechenden Meldungen "Logged in" oder "Wrong credentials" ausgibt. Außerdem habe ich ein Registrerungsformular hinzugefügt welches dem Benutzer möglich macht, einen Account zu erstellen. Dafür benötigt er eine Seriennummer (serial). Wenn diese richtig ist soll ein neues Konto erstellt werden und der entsprechende Serial soll aus der Tabelle gelöscht werden. Allerdings löscht sich der Serial nicht aus der Tabelle....Hier mein Code
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim MysqlConnection = New MySqlConnection
- MySqlConnection.ConnectionString = "server=****;userid=*****;password=********;database=********"
- MySqlConnection.Open()
- Dim Myadapter As New MySqlDataAdapter
- Dim sqlquery = "SELECT * from Serials WHERE serial= '" & TextBox3.Text & "'"
- Dim command As New MySqlCommand
- command.Connection = MysqlConnection
- command.CommandText = sqlquery
- Myadapter.SelectCommand = command
- Dim MyData As MySqlDataReader
- MyData = command.ExecuteReader
- If MyData.HasRows = 0 Then
- MessageBox.Show("Invalid Serial Code...Try again")
- MysqlConnection.Close()
- Else
- MessageBox.Show("Successfully registered!")
- sqlquery = "DELETE FROM `Serials` WHERE `serial`= '" & TextBox3.Text & "'"
- End If
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Niklas9401“ ()