MySQL problem Unknown Database

  • VB.NET

Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von Dragon112.

    MySQL problem Unknown Database

    Hallo zusammen,

    ich versuche aktuell einen Zugriff von Visual Basic 2010 auf eine MySQL Datenbank,
    allerdings erscheint immer eine fehler meldung "Unknown Database ´pers_login´.
    Benenne ich aber die Tabelle, sowie im script in "test" um,
    dann kann das Programm plötzlich eine Verbindung aufbauen.

    Meine Code:

    Quellcode

    1. Dim conn As New MySqlConnection
    2. Dim myConnectionString As String
    3. myConnectionString = "server=Url.de;uid=benutzername;pwd=meinpasswort;database=pers_login;"
    4. conn.ConnectionString = myConnectionString
    5. Try
    6. conn.Open()
    7. Catch ex As Exception
    8. MessageBox.Show(ex.Message)
    9. End Try
    10. conn.Close()



    Wie kann ich jetzt eine Verbindung mit einen beliebigen namen aufbauen?

    MFG

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Bassdriver“ ()

    i-wie finde ich nichts was mir wirklich weiterhilft...

    also ich möchte einen Login erstellen der per MySQL DB abgerufen wird ...
    Bsp. Benutzername: Bassdriver , Passwort: 123

    Ich hatte mir gedacht das die MySQL DB den Benutzernamen Bassdriver heraussucht und das Passwort in ein Label herreinschreibt.
    Anschließend werden das eingegebene Passwort mit dem Passwort aus der MySQL DB verglichen.

    So siehts aktuell bei mir aus:

    Quellcode

    1. Dim conn As New MySqlConnection
    2. Dim da As MySqlDataAdapter
    3. Dim ds As New DataSet
    4. Dim dt As New DataTable
    5. Dim bs As BindingSource
    6. Dim myConnectionString As String
    7. myConnectionString = "server=URL.de;uid=USER;pwd=PASSWORT;database=DATENBANK;"
    8. conn.ConnectionString = myConnectionString
    9. Try
    10. conn.Open()
    11. Catch ex As Exception
    12. MessageBox.Show(ex.Message)
    13. conn.Open()
    14. cmd.CommandText = "select * from pers_login"
    16. reader = cmd.ExecuteReader()
    17. lblpwcheck.Items.Clear()
    18. pnummer.Clear()
    19. Do While reader.Read()
    20. lstTab.Items.Add(reader("passwort")
    21. Loop
    22. reader.Close()
    25. End Try
    26. conn.Close()
    27. If lblpwcheck.Text = TextBox2.Text Then
    28. hmenu.Visible = True
    29. Me.Visible = False
    30. Else
    31. MsgBox("Entweder wurden die Logindaten falsch eingegeben, oder der Server ist nicht erreichbar. Falls dies erneut erscheinen sollte, dann wenden Sie sich an den Administrator!", MsgBoxStyle.Information)
    32. End If


    Kann mir jmd. helfen bzw. erklären wie es funktionieren soll?

    MFG

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

    du kannst ja gleich abfragen ob ein User mit dem passendem Password vorhanden ist

    VB.NET-Quellcode

    1. '...
    2. cmd.CommandText = "select count(*) from pers_login where Benutzer = '" & txt_benutzer.text & "' and Password = '" & txt_passwort.text & "'"
    3. if cmd.execudescale > 0 then 'cmd.execudescale ist wahrscheinlich falsch geschrieben
    4. messagebox("Login ok")
    5. else
    6. messagebox("Login falsch")
    7. end if
    8. '...

    1. Geh mit dem Mauszeiger an den Linken Rand des Codes (Auf höhe der Stelle die z.B. Probleme Macht! Der Rand setzt sich Fablich etwas ab! ist aber auch noch im Codefenster!) dann klicke einfach mit der Maus dort es sollte ein Punkt erscheinen!
    2 Dann führst du dein Programm aus (Debuggen) je nach dem wo der Haltepunkt gesetzt ist stopt das Programm. Du musst also in deinem Programm welches du geschrieben hast, alles Ausführen so das du an die stelle kommst wo du den Haltepunkt gesetzt hast.

    Beispiel du hast einen Button1 << Öffnet Form2
    Form2 hat einen Button1 u. Button2 der haltepunkt ist an einer Codestelle
    die unter Form2, Button2 liegt!

    Also gehst du hin drückst Button1 damit sich form2 öffnet und klickst dort Button2 damit der code ausgeführt wird wo dein Haltepunkt ist!

    Hoffe das wahr verständlich erklärt!


    MFG
    Wej

    hi,

    erstmal vielen dank für die antworten,

    allerdings kann ich dort kein fehler finden.

    VB.NET-Quellcode

    1. Imports MySql
    2. Imports MySql.Data
    3. Imports MySql.Data.MySqlClient
    5. Public Class Login
    7. Private Property reader As Object
    9. Private Sub ToolStripStatusLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripStatusLabel1.Click
    11. End Sub
    13. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    14. Timer1.Start()
    15. lbluhr.Text = My.Computer.Clock.LocalTime
    16. End Sub
    18. Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    19. Timer1.Start()
    20. lbluhr.Text = My.Computer.Clock.LocalTime
    21. End Sub
    23. Private Sub cmdlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlogin.Click
    25. Dim conn As New MySqlConnection
    26. Dim ds As New DataSet
    27. Dim dt As New DataTable
    28. Dim myConnectionString As String
    29. myConnectionString = "server=meine url.de;uid=benutzername;pwd=pw;database=datenbank;"
    30. conn.ConnectionString = myConnectionString
    31. Try
    32. conn.Open()
    33. Catch ex As Exception
    34. MessageBox.Show(ex.Message)
    35. cmd.CommandText = "select count(*) from pers_login where benutzername = '" & txtbenutzer.Text & "' and passwort = '" & txtpw.Text & "'"
    36. If cmd.execudescale > 0 Then
    37. MsgBox("Login ok")
    38. hmenu.Visible = True
    39. Me.Visible = False
    40. Else
    41. MsgBox("Entweder wurden die Logindaten falsch eingegeben, oder der Server ist nicht erreichbar. Falls dies erneut erscheinen sollte, dann wenden Sie sich an den Administrator!", MsgBoxStyle.Information, "Error")
    42. End If
    46. End Try
    47. conn.Close()
    49. End Sub
    51. Private Sub cmdend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdend.Click
    52. Me.Close()
    53. End Sub
    55. Private Sub Login_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    57. End Sub
    59. Private Sub txtbenutzer_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtpersonalnr.TextChanged
    60. hmenu.ToolStripStatusLabel1.Text = ("Login als: " & txtbenutzer.Text)
    61. adminmenu.ToolStripStatusLabel1.Text = ("Login als: " & txtbenutzer.Text)
    62. benprofil.ToolStripStatusLabel1.Text = ("Login als: " & txtbenutzer.Text)
    63. End Sub
    65. Private Sub ToolTip1_Popup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PopupEventArgs)
    67. End Sub
    69. Private Function cmd() As Object
    70. Throw New NotImplementedException
    71. End Function
    73. Private Function MD5StringHash(ByVal p1 As Object) As String
    74. Throw New NotImplementedException
    75. End Function
    77. End Class


    Könnt Ihr einen fehler daraus finden?

    Mfg

    Du musst doch Unmengen an Fehlermeldungen bekommen.
    Fällt dir das nicht auf?
    Wo ist denn dein cmd definiert?

    Also so etwas fehlt total:

    Quellcode

    1. Dim cmd As New MySqlCommand
    2. cmd.ExecuteScalar()


    und als du cmd. eingetippt hattest, hätte eine Liste der möglichen Member erscheinen müssen.
    Und da war bestimmt nicht execudescale dabei, sondern eben ExecuteScalar.

    Wo hast du diesen Code überhaupt her?
    Ich sehe grade du hast diese Zeile von Chris213. Der hat aber ausdrücklich geschrieben, dass er die Zeile
    wahrscheinlich falsch geschrieben hatte.

Facebook
Telefonspende