Visual Basic Mydata Error bei der Datenbank mit Login Funktion

[.SketchBear]

Also die Source hat ein Error wegen diese

Mydata = Command.ExecuteReader

Und das ist der Source darüber und darunter Bitte um Hilfe der Fehler wird mir angezeigt

[Baratoik]

Also so, wie ich das sehe ist das ein Login-Script das müsste aber wie folgt aussehen kopier das einfach und erstezte die Daten

PS: Ich habe das auch auf easy-coding released
Ich habe auch noch ein Regi script dran gehängt


Login-Script:

'Die verschiedenen Imports-Befehle
Imports System.Data.SqlClient
Imports MySql.Data.MySqlClient
Public Class Login

Dim MySqlConnection As MySqlConnection
Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
'Label, dass anzeigt, dass die Verbindung aufgebaut wird
lbVerbindung.Text = "Verbindung wird aufgebaut"
'Neue MySQL Connection
MySqlConnection = New MySqlConnection
'ergänze deine Daten (der standart-Port ist 3306
MySqlConnection.ConnectionString = "server=localhost;port=3306; user ID=Root; password=test; database=Datenbankname"
MySqlConnection.Open()

Dim Myadapter As New MySqlDataAdapter
'heraussuchen der Datenbank Tabelle und überprüfen deiner Daten
Dim sqlquary = "SELECT * From Users WHERE Username='" & UsernameTextBox.Text & "'AND Password='" & PasswordTextBox.Text & "';"
Dim command As New MySqlCommand
command.Connection = MySqlConnection
command.CommandText = sqlquary
Myadapter.SelectCommand = command
Dim mydata As MySqlDataReader
mydata = command.ExecuteReader
'überprüfen, ob deine Eingaben richtig waren
If mydata.HasRows = 0 Then
lbVerbindung.Text = "Fehlerhafte verbindung"
Else
lbVerbindung.Text = "erfolgreiche Verbindung"
'Aktion, die ausgeführt wird, nachdem du verbunden wurdest
fmHaupt.Show()
Me.Close()
End If
End Sub

Regi-Script:

Private Sub bnregistrieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnFetigstellen.Click
Dim conn As MySqlConnection
'Verbindung zur Datenbank
conn = New MySqlConnection()
conn.ConnectionString = "server=db4free.net;port=3306; user ID=fabian131295; password=bb4cbbb4cb; database=klassentreffdb"
'falls die Verbindung fehlschlägt
Try
conn.Open()
Catch myerror As MySqlException
lbVerbindung.Text = "Error connecting to database"
End Try
'SQl querry herrstellen
Dim myAdapter As New MySqlDataAdapter

Dim sqlquery = "SELECT * From Users WHERE Username= '" + username.Text & "'"
Dim myCommand As New MySqlCommand()
myCommand.Connection = conn
myCommand.CommandText = sqlquery
'querry starten
myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.ExecuteReader()
'Schauen, ob der User existiert
If myData.HasRows = 0 Then
If password.Text = "" Then
lbVerbindung.Text = "Bitte geben sie ein Password ein!"
Else
conn.Close()
conn.Open()

Dim registerfinal As New MySqlDataAdapter
'Eintrag in der Datenbank erzeugen
Dim query = "INSERT INTO Users (Username, Password, email) VALUES ('" + username.Text + "','" + password.Text + "','" + email.Text + "')"
myCommand.Connection = conn
myCommand.CommandText = query
registerfinal.SelectCommand = myCommand
myData = myCommand.ExecuteReader()
lbVerbindung.Text = "Der Account wurde angelegt"
End If


Else
lbVerbindung.Text = "Der Benutzer existiert bereits"
End If
End Sub

Datenbankeinstellungen:

[.SketchBear]

Hab schon grad rausgefunden ösung für mich geht das

Dim sqlquary = "SELECT * FROM user WHERE username = '" & UsernameTextBox.Text & "' AND password = '" & PasswordTextBox.Text & "';"

[Baratoik]

Okay aber ich hoffe, es hat dir wenigstens etwas geholfen