Hallo,
ich bin ziemlich neu hier..
& habe einen Login programmiert inklusive mysql.
jedoch bekomme ich immer einen error
Code:
Screen:
MySQL daten:
Datenbank: protection
Benutzer: kerem567
password:*****
Port:3306
server:db4free.net
ICH DANKE FÜR JEDE HILFREICHE ANTWORT!
MFG .Weed
ich bin ziemlich neu hier..
& habe einen Login programmiert inklusive mysql.
jedoch bekomme ich immer einen error
Code:
VB.NET-Quellcode
- Imports System.Data.SqlClient
- Imports MySql.Data.MySqlClient
- Public Class Form1
- Dim MySqlConnection As MySqlConnection
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Me.Close()
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- MySqlConnection = New MySqlConnection
- MySqlConnection.ConnectionString = "server=db4free.net; Port=3306; user id=kerem567; pasword=****; database=protection"
- MySqlConnection.Open()
- Dim Myadapter As New MySqlDataAdapter
- Dim sqlquary = "SELECT * From Users WHERE Username='" & TextBox1.Text & "'AND Password='" & TextBox2.Text & "';"
- Dim Command As New MySqlCommand
- Command.Connection = MySqlConnection
- Command.CommandText = sqlquary
- Myadapter.SelectCommand = Command
- Dim Mydata As MySqlDataReader
- Mydata = Command.ExecuteReader
- If Mydata.HasRows = 0 Then
- MsgBox("Falscher Benutzername oder Falsches Passwort!")
- Else
- MsgBox("Erfolgreich eingeloggt!")
- 'was danach :D
- End If
- End Sub
- End Class
Screen:
MySQL daten:
Datenbank: protection
Benutzer: kerem567
password:*****
Port:3306
server:db4free.net
ICH DANKE FÜR JEDE HILFREICHE ANTWORT!
MFG .Weed