Datenbankverbindungsfehler

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 41 Antworten in diesem Thema. Der letzte Beitrag () ist von chenjung.

    Kann wohl auch entsprechend als SQL Befehl genutzt werden:

    Musst dann eben nur auf dein SQL anpassen. Also testen und probieren. Es ist sehr einfach, und auch nicht wirklich sicher, aber es erfüllt den Zweck.

    Daher testen, lernen und verstehen. Der beste Weg um lernen und verstehen. Bei Fragen, auch selbst mal googlen, und wenn man garnicht mehr weiter kommt, hilft das Forum hier gern weiter.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub adminlogin_Click(sender As Object, e As EventArgs) Handles adminlogin.Click
    2. provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
    4. 'Hier sind die Verbindungsdaten
    5. dataFile = "C:\xxx\xxxx.mdb"
    7. connString = provider & dataFile
    9. myConnection.ConnectionString = connString
    11. myConnection.Open()
    13. 'Die Abfrage an Access:
    14. Dim cmd As OleDbCommand = New OleDbCommand("SELECT user, pass FROM [admin] WHERE [user] = '" & adminname.Text & "' AND [pass] = '" & adminpass.Text & "'", myConnection)
    16. Dim dr As OleDbDataReader = cmd.ExecuteReader
    17. ' the following variable is hold true if user is found, and false if user is not found
    19. Dim userFound As Boolean = False
    20. ' the following variables will hold the user first and last name if found.
    21. Dim FirstName As String = ""
    23. Dim LastName As String = ""
    24. 'if found:
    25. While dr.Read
    27. userFound = True
    29. FirstName = dr("user").ToString
    31. 'LastName = dr("nachname").ToString
    33. End While
    35. 'checking the result
    36. If userFound = True Then
    38. adduser.Show()
    39. Me.Close()
    41. Form1.iduser.Text = "" & FirstName & " " & LastName
    43. Else
    45. MsgBox("Tut uns leid, Username oder Passwort falsch", MsgBoxStyle.OkOnly, "Fehlerhafter Login")
    47. End If
    48. myConnection.Close()
    49. End Sub


    Hier die SQL Version:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. MySqlConnection = New MySqlConnection
    2. MySqlConnection.ConnectionString = "server=dxxxxx; uid=d026fa13; password=xxxxx; database=xxxxx"
    3. MySqlConnection.Open()
    5. Dim Myadpater As New MySqlDataAdapter
    6. Dim sql = "SELECT * from users where username='" & TextBox1.Text & "'AND userpass='" & TextBox2.Text & "';"
    7. Dim command As New MySqlCommand
    8. command.Connection = MySqlConnection
    9. command.CommandText = sql
    10. Myadpater.SelectCommand = command
    11. Dim Mydata As MySqlDataReader
    12. Mydata = command.ExecuteReader
    14. If Mydata.HasRows Then
    16. Mydata.Read()
    17. Form1.Show()
    18. 'Me.Close()
    19. Else
    20. MsgBox("Benutzername oder Passwort falsch und oder keine Eingabe von Benutzername und Passwort")
    21. End If[/quote]


    PS: Was die virtuelle Maschine angeht, ist es halb so wild O.o 2 GB Ram zuweisen, 1 bis 2 VCores und Fertig. Ca. 20GB Speicherplatz und das Ding läuft.
    Ihr sucht Webspace für eure Projekte? Dann sagt bescheid - kostenfrei und ohne Werbung!

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

Facebook
Telefonspende