vb 2008 Login per Mysql probleme hoffe jemand kann mir bitte helfen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von boscko.

    vb 2008 Login per Mysql probleme hoffe jemand kann mir bitte helfen

    Hallo leute

    Ich habe denn beitrag von Rokky befolgt (Login + Registrierung ins Programm einbauen)
    allerdings bekomm ich immer eine fehler meldung =( meine mysql daten sind richtig ich benutze xampp und localhost alls host ich kann mit navicat verbinden aber wenn bei form1(login form) auf button 1 klicke kommt folgendes :
    meine form1 friert ein und es öffnet sich ein fenster wo steht :
    keine verbindung zur datenbank: Unable to connect to any of the specified MySql Host.
    und in VB 2008 der fehler :
    Connection must be valid and open.

    was ist falsch =( hab schon 3 stunden versucht nix passiert =(
    hoffe ihr könnt mir helfen :D

    mein Code:

    VB.NET-Quellcode

    1. Imports MySql.Data.MySqlClient
    2. Public Class Form1
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. End Sub
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. Dim conn As MySqlConnection
    10. conn = New MySqlConnection
    11. conn.ConnectionString = "server=localhost" _ 'Meine ip/host nach dem = zeichen
    12. & "user id=" _ 'Mein username Z:b root nach dem = zeichen
    13. & "password=" _ 'mein passwort nach dem = zeichen
    14. & "database=vb" 'meine datenabnk nach dem = zeichen
    15. Try
    16. conn.Open() ' Verbindung öffnen
    17. Catch myerror As MySqlException
    18. MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
    19. End Try
    20. Dim benutzer As String = MD5StringHash(txt_benutzer.Text)
    21. Dim passwort As String = MD5StringHash(txt_passwort.Text)
    23. Dim myAdapter As New MySqlDataAdapter
    24. Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + Replace(benutzer, " ", "") + "' AND Passwort='" & Replace(passwort, " ", "") & "'"
    25. Dim myCommand As New MySqlCommand
    26. myCommand.Connection = conn
    27. myCommand.CommandText = SQLAbfrage
    29. myAdapter.SelectCommand = myCommand
    30. Dim myData As MySqlDataReader
    31. myData = myCommand.ExecuteReader() ' Hier KOMMT DER FEHLER Connection must be valid and open.
    32. If myData.HasRows Then
    33. MsgBox("Einloggen erfolgreich !")
    34. conn.Close()
    35. conn.Open()
    37. Else
    38. MsgBox("Fehler Code 2 : Falsche Daten")
    39. End If
    41. End Sub
    43. Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
    44. Form2.ShowDialog()
    45. End Sub
    46. End Class

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

Facebook
Telefonspende