Hallo ich hab ein programm geschrieben es läuft einbahn frei auf mein rechner aber wenn es auf anderen is stürtzt es einfach ab ohne fehler meldung
Hier is der Code für den Login Button
Imports MySqlLib3
Public Class Form1
Public db As New MySqlLib("http://ni125061_3.vweb14.nitrado.net/basic/query.php", True)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lesen As MySqlLib.ResultCollection = db.Query("SELECT * FROM login WHERE Benutzername='" + Replace(TextBox1.Text, " ", "") + "' AND Passwort='" & Replace(TextBox2.Text, " ", "") & "'")
If lesen.Row.Count = 1 Then
MsgBox("Login Erfolgreich")
Form3.Show()
Me.Close()
Else
MsgBox("Benutzername oder Passwort Falsch!")
End If
End Sub
Der Registrieren Button
Imports MySqlLib3
Public Class Form2
Public db As New MySqlLib("http://ni125061_3.vweb14.nitrado.net/basic/query.php", True)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lesen As MySqlLib.ResultCollection = db.Query("SELECT * FROM login WHERE Benutzername= '" + TextBox1.Text & "'")
If lesen.Row.Count = 1 Then
MessageBox.Show("Benutzer Bereits Vorhanden")
Else
db.Query("INSERT INTO login (`Benutzername`,`Passwort`) VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "')")
MessageBox.Show("Erfolgreich Registriert")
Form1.Show()
Me.Close()
End If
End Sub
End Class
Hier is der Code für den Login Button
Imports MySqlLib3
Public Class Form1
Public db As New MySqlLib("http://ni125061_3.vweb14.nitrado.net/basic/query.php", True)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lesen As MySqlLib.ResultCollection = db.Query("SELECT * FROM login WHERE Benutzername='" + Replace(TextBox1.Text, " ", "") + "' AND Passwort='" & Replace(TextBox2.Text, " ", "") & "'")
If lesen.Row.Count = 1 Then
MsgBox("Login Erfolgreich")
Form3.Show()
Me.Close()
Else
MsgBox("Benutzername oder Passwort Falsch!")
End If
End Sub
Der Registrieren Button
Imports MySqlLib3
Public Class Form2
Public db As New MySqlLib("http://ni125061_3.vweb14.nitrado.net/basic/query.php", True)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lesen As MySqlLib.ResultCollection = db.Query("SELECT * FROM login WHERE Benutzername= '" + TextBox1.Text & "'")
If lesen.Row.Count = 1 Then
MessageBox.Show("Benutzer Bereits Vorhanden")
Else
db.Query("INSERT INTO login (`Benutzername`,`Passwort`) VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "')")
MessageBox.Show("Erfolgreich Registriert")
Form1.Show()
Me.Close()
End If
End Sub
End Class
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thirty?“ ()