Login + Registrierung ins Programm einbauen

    • VB.NET

    Es gibt 681 Antworten in diesem Thema. Der letzte Beitrag () ist von Higlav.

      Also bei mir Tauchen da 28 Fehler auf die meisten bestehen aus.

      txt_benuzer.Text "Wurde nicht Deklariet"

      txt_passwort.Text "Wurde nicht Deklariet"

      txt_email.Text "Wurde nicht Deklariet"

      txt_passwort_w "Wurde nicht Deklariet"

      txt_email_w "Wurde nicht Deklariet"

      bei diesem & sind auch fehler
      & "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

      Die Variable "myAdapter"       verbirgt eine variable in einem einschließenden Block

      Die Variable "SQLAbfrage" verbirgt eine variable in einem einschließenden Block

      Die Variable "myCommand" verbirgt eine variable in einem einschließenden Block

      Die Variable "myDatar" verbirgt eine variable in einem einschließenden Block

      Die Variable"benutzer" verbirgt eine variable in einem einschließenden Block

      Die Variable"conn" verbirgt eine variable in einem einschließenden Block

      Die Variable"passwort" verbirgt eine variable in einem einschließenden Block


      Kann mir bitte da einer Weiter Helfen ???
      Ich wäre sehr dankbar
      Dankeee^ ^

      die Farbe Rot ist der Moderation vorbehalten und wurde ersetzt ~VaporiZed

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

      Aso ja das hab ich ja völlig vergessen ^^

      Aber das sind ja noch immer die Fehler.

      1. bei diesem & sind auch fehler
      & "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

      2.       Die Variable "myAdapter" verbirgt eine variable in einem einschließenden Block

      Die Variable "SQLAbfrage" verbirgt eine variable in einem einschließenden Block

      Die Variable "myCommand" verbirgt eine variable in einem einschließenden Block

      Die Variable "myDatar" verbirgt eine variable in einem einschließenden Block

      Die Variable"benutzer" verbirgt eine variable in einem einschließenden Block

      Die Variable"conn" verbirgt eine variable in einem einschließenden Block

      Die Variable"passwort" verbirgt eine variable in einem einschließenden Block

      Kann mir da nochmal jemand Helfen bitte ???
      Danke sehr       :thumbup:

      die Farbe Rot ist der Moderation vorbehalten und wurde ersetzt ~VaporiZed

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

      Hier der Kommplete Code

      VB.NET-Quellcode

      1. Imports MySql.Data.MySqlClient
      2. Public Class Form1
      4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      5. Dim conn As MySqlConnection
      6. conn = New MySqlConnection
      7. conn.ConnectionString = "server=serverip;" _ 'Hier gibt ihr die Server IP ein
      8. & "user id=benutzername;" _ 'Hier gibt ihr euren Benutzernamen ein
      9. & "password=passwort;" _ 'Hier gibt ihr euer Passwort ein
      10. & "database=datenbankname" 'Hier gibt ihr die Datenbank ein auf der die Tabelle benutzer liegt
      11. Try
      12. conn.Open() ' Verbindung öffnen
      13. Catch myerror As MySqlException
      14. MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
      15. End Try
      17. Dim benutzer As String = MD5StringHash(txt_benutzer.Text)
      18. Dim passwort As String = MD5StringHash(txt_passwort.Text)
      20. Dim myAdapter As New MySqlDataAdapter
      21. 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
      22. Dim myCommand As New MySqlCommand
      23. myCommand.Connection = conn
      24. myCommand.CommandText = SQLAbfrage
      26. myAdapter.SelectCommand = myCommand
      27. Dim myData As MySqlDataReader
      28. myData = myCommand.ExecuteReader() ' Hier startet man die SQL Abfrage
      29. If myData.HasRows Then ' Wenn die Abfrage Einträge enthält / also der Benutzer und das Passwort stimmen überein
      30. MsgBox("Einloggen erfolgreich !")
      31. conn.Close()
      32. conn.Open()
      34. Else 'Sonst wird angezeigt das die Daten falsch sind
      35. MsgBox("Fehler Code 2 : Falsche Daten")
      36. End If
      37. If txt_passwort.Text = txt_passwort_w.Text Then ' Prüft ob die Passwörter übereinstimmen
      38. If txt_email.Text.Contains("@") And txt_email_w.Text.Contains("@") Then ' Prüft ob die E-Mails ein @ enthalten.Damit wird geschaut ob die Email gültig ist
      39. If txt_email.Text = txt_email_w.Text Then ' Wennn die Emails übereinstimmen dann Trage ein
      40. Dim conn As MySqlConnection
      41. conn = New MySqlConnection
      42. conn.ConnectionString = "server=serverip;" _ 'Hier gibt ihr die Server IP ein
      43. & "user id=benutzername;" _ 'Hier gibt ihr euren Benutzernamen ein
      44. & "password=passwort;" _ 'Hier gibt ihr euer Passwort ein
      45. & "database=datenbankname" 'Hier gibt ihr die Datenbank ein auf der die Tabelle benutzer liegt
      46. Try
      47. conn.Open() ' Verbindung öffnen
      49. Catch myerror As MySqlException
      50. MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString)
      51. End Try
      53. Dim myAdapter As New MySqlDataAdapter
      54. Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + txt_benutzer.Text + "'" ' Erstmal eine SQL Abfrage die überprüft ob es den Benutzernamen schon gibt
      55. Dim myCommand As New MySqlCommand
      56. myCommand.Connection = conn
      57. myCommand.CommandText = SQLAbfrage
      59. myAdapter.SelectCommand = myCommand
      60. Dim myData As MySqlDataReader
      61. myData = myCommand.ExecuteReader() ' Abfrage starten
      63. If myData.HasRows = 0 Then ' Wenn dieser Benutzername nicht existiert dann fang mit der Registrierung an
      64. conn.Close()
      65. conn.Open()
      66. Dim registerfinal As New MySqlDataAdapter
      67. Dim benutzer As String = MD5StringHash(txt_benutzer.Text)
      68. Dim passwort As String = MD5StringHash(txt_passwort.Text)
      69. myCommand.CommandText = "INSERT INTO benutzer(Benutzername, Passwort, Email)" _
      70. & "VALUES('" & benutzer & "','" & passwort & "','" & txt_email.Text & "')"
      71. myCommand.ExecuteNonQuery() ' SQL Abfrage starten und eintragen
      72. MsgBox("Der Account mit dem Namen : " & txt_benutzer.Text & " wurde erfolgreich erstellt")
      73. conn.Close()
      74. Else
      75. MsgBox("Dieser Benutzername existiert bereits")
      76. End If
      77. Else
      78. MsgBox("Die eingegebenen Emails stimmen nicht über ein !")
      79. End If
      80. Else
      81. MsgBox("Die eingegebenen E-Mails sind ungültig !")
      82. End If
      83. Else
      84. MsgBox("Die eingegebenen Passwörter stimmen nicht überein")
      85. End If
      86. End Sub
      87. End Class

      VB.NET-Quellcode

      1. Imports MySql.Data.MySqlClient
      2. Public Class Form1
      4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      5. Dim conn As MySqlConnection
      6. conn = New MySqlConnection
      7. conn.ConnectionString = "server=serverip;" _
      8. & "user id=benutzername;" _
      9. & "password=passwort;" _
      10. & "database=datenbankname"
      11. Try
      12. conn.Open() ' Verbindung öffnen
      13. Catch myerror As MySqlException
      14. MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
      15. End Try
      17. Dim benutzer As String = MD5StringHash(txt_benutzer.Text)
      18. Dim passwort As String = MD5StringHash(txt_passwort.Text)
      20. Dim myAdapter As New MySqlDataAdapter
      21. 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
      22. Dim myCommand As New MySqlCommand
      23. myCommand.Connection = conn
      24. myCommand.CommandText = SQLAbfrage
      26. myAdapter.SelectCommand = myCommand
      27. Dim myData As MySqlDataReader
      28. myData = myCommand.ExecuteReader() ' Hier startet man die SQL Abfrage
      29. If myData.HasRows Then ' Wenn die Abfrage Einträge enthält / also der Benutzer und das Passwort stimmen überein
      30. MsgBox("Einloggen erfolgreich !")
      31. conn.Close()
      32. conn.Open()
      34. Else 'Sonst wird angezeigt das die Daten falsch sind
      35. MsgBox("Fehler Code 2 : Falsche Daten")
      36. End If
      37. If txt_passwort.Text = txt_passwort_w.Text Then ' Prüft ob die Passwörter übereinstimmen
      38. If txt_email.Text.Contains("@") And txt_email_w.Text.Contains("@") Then ' Prüft ob die E-Mails ein @ enthalten.Damit wird geschaut ob die Email gültig ist
      39. If txt_email.Text = txt_email_w.Text Then ' Wennn die Emails übereinstimmen dann Trage ein
      40. Dim conn As MySqlConnection
      41. conn = New MySqlConnection
      42. conn.ConnectionString = "server=serverip;" _ 'Hier gibt ihr die Server IP ein
      43. & "user id=benutzername;" _ 'Hier gibt ihr euren Benutzernamen ein
      44. & "password=passwort;" _ 'Hier gibt ihr euer Passwort ein
      45. & "database=datenbankname" 'Hier gibt ihr die Datenbank ein auf der die Tabelle benutzer liegt
      46. Try
      47. conn.Open() ' Verbindung öffnen
      49. Catch myerror As MySqlException
      50. MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString)
      51. End Try
      53. myAdapter = New MySqlDataAdapter
      54. SQLAbfrage = "SELECT * FROM benutzer WHERE Benutzername='" + txt_benutzer.Text + "'" ' Erstmal eine SQL Abfrage die überprüft ob es den Benutzernamen schon gibt
      55. myCommand = New MySqlCommand
      56. myCommand.Connection = conn
      57. myCommand.CommandText = SQLAbfrage
      59. myAdapter.SelectCommand = myCommand
      60. myData = MySqlDataReader
      61. myData = myCommand.ExecuteReader() ' Abfrage starten
      63. If myData.HasRows = 0 Then ' Wenn dieser Benutzername nicht existiert dann fang mit der Registrierung an
      64. conn.Close()
      65. conn.Open()
      66. Dim registerfinal As New MySqlDataAdapter
      67. benutzer = MD5StringHash(txt_benutzer.Text)
      68. passwort = MD5StringHash(txt_passwort.Text)
      69. myCommand.CommandText = "INSERT INTO benutzer(Benutzername, Passwort, Email)" _
      70. & "VALUES('" & benutzer & "','" & passwort & "','" & txt_email.Text & "')"
      71. myCommand.ExecuteNonQuery() ' SQL Abfrage starten und eintragen
      72. MsgBox("Der Account mit dem Namen : " & txt_benutzer.Text & " wurde erfolgreich erstellt")
      73. conn.Close()
      74. Else
      75. MsgBox("Dieser Benutzername existiert bereits")
      76. End If
      77. Else
      78. MsgBox("Die eingegebenen Emails stimmen nicht über ein !")
      79. End If
      80. Else
      81. MsgBox("Die eingegebenen E-Mails sind ungültig !")
      82. End If
      83. Else
      84. MsgBox("Die eingegebenen Passwörter stimmen nicht überein")
      85. End If
      86. End Sub
      87. End Class


      Probier den mal

      gruß

      Ja jetz sind da nur noch 5Fehler unzwar die.

      Fehler


      1. 3x einen Syntaxfehler bei das hier :
      & "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 benutzer liegt
      Bei dem & liegt der Syntaxfehler.
      2.       Die Variable "conn" verbirgt eine variable in einem einschließenden Block:
      Dim conn As MySqlConnection
      [b]conn       = New MySqlConnection

      3      . MySqlDataReader ist ein Typ und kann nicht als Ausdruck verwendet werden
      myData = MySqlDataReader

      Das sind die Fehler da komm ich selber als neuling nicht wieder hehe

      Und danke sehr für deine Hilfe ich weis es zu schätzen danke sehr^^
      [/b]

      die Farbe Rot ist der Moderation vorbehalten und wurde ersetzt ~VaporiZed

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

      Und wie isses so:

      VB.NET-Quellcode

      1. Imports MySql.Data.MySqlClient
      2. Public Class Form1
      4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      5. Dim conn As MySqlConnection
      6. conn = New MySqlConnection
      7. conn.ConnectionString = "server=serverip;" _
      8. & "user id=benutzername;" _
      9. & "password=passwort;" _
      10. & "database=datenbankname"
      11. Try
      12. conn.Open() ' Verbindung öffnen
      13. Catch myerror As MySqlException
      14. MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
      15. End Try
      17. Dim benutzer As String = MD5StringHash(txt_benutzer.Text)
      18. Dim passwort As String = MD5StringHash(txt_passwort.Text)
      20. Dim myAdapter As New MySqlDataAdapter
      21. 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
      22. Dim myCommand As New MySqlCommand
      23. myCommand.Connection = conn
      24. myCommand.CommandText = SQLAbfrage
      26. myAdapter.SelectCommand = myCommand
      27. Dim myData As MySqlDataReader
      28. myData = myCommand.ExecuteReader() ' Hier startet man die SQL Abfrage
      29. If myData.HasRows Then ' Wenn die Abfrage Einträge enthält / also der Benutzer und das Passwort stimmen überein
      30. MsgBox("Einloggen erfolgreich !")
      31. conn.Close()
      32. conn.Open()
      34. Else 'Sonst wird angezeigt das die Daten falsch sind
      35. MsgBox("Fehler Code 2 : Falsche Daten")
      36. End If
      37. If txt_passwort.Text = txt_passwort_w.Text Then ' Prüft ob die Passwörter übereinstimmen
      38. If txt_email.Text.Contains("@") And txt_email_w.Text.Contains("@") Then ' Prüft ob die E-Mails ein @ enthalten.Damit wird geschaut ob die Email gültig ist
      39. If txt_email.Text = txt_email_w.Text Then ' Wennn die Emails übereinstimmen dann Trage ein
      40. conn = New MySqlConnection
      41. conn.ConnectionString = "server=serverip;"
      42. & "user id=benutzername;"
      43. & "password=passwort;"
      44. & "database=datenbankname"
      45. Try
      46. conn.Open() ' Verbindung öffnen
      48. Catch myerror As MySqlException
      49. MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString)
      50. End Try
      52. myAdapter = New MySqlDataAdapter
      53. SQLAbfrage = "SELECT * FROM benutzer WHERE Benutzername='" + txt_benutzer.Text + "'" ' Erstmal eine SQL Abfrage die überprüft ob es den Benutzernamen schon gibt
      54. myCommand = New MySqlCommand
      55. myCommand.Connection = conn
      56. myCommand.CommandText = SQLAbfrage
      58. myAdapter.SelectCommand = myCommand
      59. myData = MySqlDataReader
      60. myData = myCommand.ExecuteReader() ' Abfrage starten
      62. If myData.HasRows = 0 Then ' Wenn dieser Benutzername nicht existiert dann fang mit der Registrierung an
      63. conn.Close()
      64. conn.Open()
      65. Dim registerfinal As New MySqlDataAdapter
      66. benutzer = MD5StringHash(txt_benutzer.Text)
      67. passwort = MD5StringHash(txt_passwort.Text)
      68. myCommand.CommandText = "INSERT INTO benutzer(Benutzername, Passwort, Email)" _
      69. & "VALUES('" & benutzer & "','" & passwort & "','" & txt_email.Text & "')"
      70. myCommand.ExecuteNonQuery() ' SQL Abfrage starten und eintragen
      71. MsgBox("Der Account mit dem Namen : " & txt_benutzer.Text & " wurde erfolgreich erstellt")
      72. conn.Close()
      73. Else
      74. MsgBox("Dieser Benutzername existiert bereits")
      75. End If
      76. Else
      77. MsgBox("Die eingegebenen Emails stimmen nicht über ein !")
      78. End If
      79. Else
      80. MsgBox("Die eingegebenen E-Mails sind ungültig !")
      81. End If
      82. Else
      83. MsgBox("Die eingegebenen Passwörter stimmen nicht überein")
      84. End If
      85. End Sub
      86. End Class


      gruß

      Ehm da sind noch immer die fehler:

      1. 3x einen Syntaxfehler bei das hier :
      & "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 benutzer liegt
      Bei dem & liegt der Syntaxfehler.

      2. MySqlDataReader ist ein Typ und kann nicht als Ausdruck verwendet werden
      myData = MySqlDataReader

      1 Fehler wurde Behoben das mit CONN ^^

      Danke nochmal^^

      die Farbe Rot ist der Moderation vorbehalten und wurde ersetzt ~VaporiZed

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

      Hihi jetz ist da kein Fehler mehr aber hab da eine Frage wo kann ich bei den Hoster Kilu.de den code hier eingügen weis einfach ned wo ich den einfügen kann hehe:

      SQL-Abfrage

      1. DROP TABLE IF EXISTS `benutzer`;
      2. CREATE TABLE `benutzer` (
      3. `ID` int(5) NOT NULL auto_increment,
      4. `Benutzername` varchar(255) default NULL,
      5. `Passwort` varchar(255) default NULL,
      6. `Email` varchar(255) default NULL,
      7. PRIMARY KEY (`ID`)
      8. ) ENGINE=MyISAM AUTO_INCREMENT=9 DEFAULT CHARSET=latin1;


      CodeTags gesetzt ~VaporiZed

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

      Sehr gutes Script versuch mich gerade selber an einem Login.

      Hätte vieleicht jemand einen Rat für mich wie ich bestimmte access auslesen könnte.

      Beispiel :
      Der Account hat Access 2 brauch zum Login aber Access 3 oder höher,
      wenn er ihn nicht hat ist login nicht möglich.

      Mit einem festen access hab ich kein problem aber sobald er höher ist bekomm ich
      kein Login mehr.

      Das müsste aber geändert werden.

      Quellcode

      1. Dim benutzer As String = (txt_benutzter.Text)
      2. Dim passwort As String = MD5StringHash(txt_password.Text)


      Sonst wird der Benutzername md5 verschlüsselt.

      myData = myCommand.ExecuteReader()

      Leuchtet wunderbar Gruen.. ^^

      Der sagt, die Tabelle existiert nicht, aber da ich weiss, das ich Lesen kann, gibt es diese Tabelle und die ist auch ueberall gleich geschrieben.

      Eine nicht behandelte Ausnahme des Typs "MySql.Data.MySqlClient.MySqlException" ist in MySql.Data.dll aufgetreten.
      Zusätzliche Informationen: Table 'Datenbank.Tabellenname' doesn't exist

      VBNeuling123 schrieb:

      Hihi jetz ist da kein Fehler mehr aber hab da eine Frage wo kann ich bei den Hoster Kilu.de den code hier eingügen weis einfach ned wo ich den einfügen kann hehe:
      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,
      `Email` varchar(255) default NULL,
      PRIMARY KEY (`ID`)
      ) ENGINE=MyISAM AUTO_INCREMENT=9 DEFAULT CHARSET=latin1;
      Den PHPMyAdmin aufrufen, einloggen und dann links die Datenbank anklicken. Anschließend auf Sql und dort dann den Code eingeben.