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
mein Code:
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
mein Code:
VB.NET-Quellcode
- Imports MySql.Data.MySqlClient
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim conn As MySqlConnection
- conn = New MySqlConnection
- conn.ConnectionString = "server=localhost" _ 'Meine ip/host nach dem = zeichen
- & "user id=" _ 'Mein username Z:b root nach dem = zeichen
- & "password=" _ 'mein passwort nach dem = zeichen
- & "database=vb" 'meine datenabnk nach dem = zeichen
- 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(txt_benutzer.Text)
- Dim passwort As String = MD5StringHash(txt_passwort.Text)
- Dim myAdapter As New MySqlDataAdapter
- Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + Replace(benutzer, " ", "") + "' AND Passwort='" & Replace(passwort, " ", "") & "'"
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- Dim myData As MySqlDataReader
- myData = myCommand.ExecuteReader() ' Hier KOMMT DER FEHLER Connection must be valid and open.
- If myData.HasRows Then
- MsgBox("Einloggen erfolgreich !")
- conn.Close()
- conn.Open()
- Else
- MsgBox("Fehler Code 2 : Falsche Daten")
- End If
- End Sub
- Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
- Form2.ShowDialog()
- End Sub
- End Class
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „boscko“ ()