Du brauchst einen Kilu Account. Damit erstellst du dir einen kostenlosen Webspace & aktivierst MySQL. Auf dem Webspace führst du folgendes in MySQL ein :
PHP Code:
DROP TABLE IF EXISTS `benutzer`;
CREATE TABLE `benutzer` (
`ID` int(5) NOT NULL AUTO_INCREMENT,
`Benutzername` varchar(255) DEFAULT NULL,
`Passwort` varchar(255) DEFAULT NULL,
PRIMARY KEY (`ID`)
) ENGINE=MyISAM AUTO_INCREMENT=13 DEFAULT CHARSET=latin1;
Dann gehste in dein Projekt (VB.Net) und kannst dann folgendes einfügen :
Einloggen :
Quote:
Dim conn As MySqlConnection
conn = New MySqlConnection
conn.ConnectionString = "server=localhost;" _
& "user id=root;" _
& "password=1234;" _
& "database=flashx"
Try
conn.Open() ' Verbindung öffnen
Catch myerror As MySqlException
MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
End Try
Dim benutzer As String = MD5StringHash(TextBox1.Text)
Dim passwort As String = MD5StringHash(TextBox2.Text)
Dim myAdapter As New MySqlDataAdapter
Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + Replace(benutzer, " ", "") + "' AND Passwort='" & Replace(passwort, " ", "") & "'" ' Das ist die Abfrage welche Prüft ob der Account existiert.Die txt_benutzer ist die Textbox in der der Benutzername eingeben wird und txt_passwort bekommt das Passwort
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 !")
Me.Hide()
Form2.Show()
conn.Close()
conn.Open()
Else 'Sonst wird angezeigt das die Daten falsch sind
MsgBox("Falsche Daten")
End If
|
Registrieren :
Quote:
Dim conn = New MySqlConnection
conn.ConnectionString = "server=localhost;" _
& "user id=root;" _
& "password=1234;" _
& "database=flashx"
Try
conn.Open() ' Verbindung öffnen
Catch myerror As MySqlException
MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString)
End Try
Dim myAdapter As New MySqlDataAdapter
Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + TextBox3.Text + "'" ' Erstmal eine SQL Abfrage die überprüft ob es den Benutzernamen schon gibt
Dim myCommand As New MySqlCommand
myCommand.Connection = conn
myCommand.CommandText = SQLAbfrage
myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.ExecuteReader() ' Abfrage starten
If myData.HasRows = 0 Then ' Wenn dieser Benutzername nicht existiert dann fang mit der Registrierung an
conn.Close()
conn.Open()
Dim registerfinal As New MySqlDataAdapter
Dim benutzer As String = MD5StringHash(TextBox3.Text)
Dim passwort As String = MD5StringHash(TextBox4.Text)
myCommand.CommandText = "INSERT INTO benutzer(Benutzername, Passwort)" _
& "VALUES('" & benutzer & "','" & passwort & "')"
myCommand.ExecuteNonQuery() ' SQL Abfrage starten und eintragen
MsgBox("Der Account mit dem Namen : " & TextBox3.Text & " wurde erfolgreich erstellt")
conn.Close()
Else
MsgBox("Dieser Benutzername existiert bereits")
End If
|
Bei Server dein Webspace ohne www (test.kilu.de)
bei User ID dein Nutzername und bei Passwort dein Passwort.
Bei db fügst du dein DB Namen en. Dieser sieht so in der art aus : db-main8947875
Zuvor musst du aber die Mysql.Data.dll importieren & downlaoden (:
Hier sollte sie in irg. nem Ordner dabei sein :3
Diese Informationen habe ich aus meinem Projekt entnommen ;3
~Greez
![[S] einen kleinen Script](https://www.elitepvpers.com/forum/iconimages/general-coding/s-einen-kleinen-script_ltr.gif){kind=small}
