![[VB.NET] Hilfe Bei einen MYSQL Login](https://www.elitepvpers.com/forum/iconimages/net-languages/vb-net-hilfe-bei-einen-mysql-login_ltr.gif){kind=small}
[VB.NET] Hilfe Bei einen MYSQL Login
Community
Ich habe dieses Tutorial angeschaut:
Und bei den Login* bekomme ich "3" Syntaxfehler
Code:
' Importieren
Imports System.Security.Cryptography
Imports System.Text
Imports MySql.Data.MySqlClient
' Ein Modul das das Passwort nicht im Klartext gespeichert wird sondern in
' MD5
Module md5
Public Function MD5StringHash(ByVal strString As String) As String
Dim MD5 As New MD5CryptoServiceProvider
Dim Data As Byte()
Dim Result As Byte()
Dim Res As String = ""
Dim Tmp As String = ""
Data = Encoding.ASCII.GetBytes(strString)
Result = MD5.ComputeHash(Data)
For i As Integer = 0 To Result.Length - 1
Tmp = Hex(Result(i))
If Len(Tmp) = 1 Then Tmp = "0" & Tmp
Res += Tmp
Next
Return Res
End Function
End Module
' Anfang der Form1
Public Class Form1
' Das Button1_Click Event
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Conn Definieren
Dim conn As MySqlConnection
conn = New MySqlConnection
' Die mysql daten eingeben, das er weis auf welchem benutzer und host und ' db die tabelle liegt
conn.ConnectionString = "server=serverip;" _ 'Hier gibt ihr die Server IP ein, die kommentare bei server ip etc. löschen, da sonst errors auftauchen
& "user id=benutzername;" _ 'Hier gibt ihr euren Benutzernamen ein
& "password=passwort;" _ 'Hier gibt ihr euer Passwort ein
& "database=datenbankname" 'Hier gibt ihr die Datenbank ein auf der die Tabelle login liegt
' Er versucht sich zu Verbinden
Try
conn.Open() ' Verbindung öffnen
Catch myerror As MySqlException
' Falls ein Verbindung Fehler auftaucht kommt eine MsgBox
MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
End Try
' Benutzer Definieren und gleich in MD5 Umwandeln
Dim benutzer As String = MD5StringHash(txt_benutzer.Text)
' Passwort definieren und gleich in MD5 Umwandeln
Dim passwort As String = MD5StringHash(txt_passwort.Text)
' myAdapter definieren
Dim myAdapter As New MySqlDataAdapter
' Er sucht Die Tabelle Login in der angegebenen Datenbank
' Er schreibt in das Benutzername Feld der Tabelle den verschlüsselten Text
' von benutzer, dasselbe mit Passwort
Dim SQLAbfrage As String = "SELECT * FROM login WHERE Benutzername='" + Replace(benutzer, " ", "") + "' AND Passwort='" & Replace(passwort, " ", "") & "'"
' myCommand definieren
Dim myCommand As New MySqlCommand
myCommand.Connection = conn
myCommand.CommandText = SQLAbfrage
myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.ExecuteReader() ' Hier startet man die SQL Abfrage
If myData.HasRows Then ' Wenn die Abfrage Einträge enthält / also der Benutzer und das Passwort stimmen überein
MsgBox("Einloggen erfolgreich !")
conn.Close()
conn.Open()
Else
MsgBox("Fehler Code 2 : Falsche Daten")
'Sonst wird angezeigt das die Daten falsch sind
End If
End Sub
End Class
' Der Rest müsste eigentlich klar sein.
Und hier der Fehler:
& "user id=pw;" geb ich halt ein user und pw und database namen..
& "password=pw;"
& "database=name"
Aber dann wird & Unterschrichen und es wird als Syntaxfehler erkannt
HILFEEE!!!
MFG Ajax
