MySQL Abfrage

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Foogo.

    MySQL Abfrage

    Hallo Leute,

    ich habe ein Programm erstellt wo man sich registrieren kann, wenn alles richtig eingegeben wurde
    erstellt das programm in der MySql Datenbank einen Eintrag mit Benutzername Passwort Email und ID.
    Aber nun hab ich mit Phpmyadmin eine weitere Spalte mit dem Namen Points hinzugefügt.
    Der Standard-Wert ist 0. Aber nun möchte ich wenn man sich mit dem Benutzernamen und Passwort einloggt und dann ein neues Fenster
    öffnet und in dem steht zb. Willkommen Benutzername, du hast 0 Points. Also dass das Programm nachsieht welchen Wert "Points" für den Benutzernamen und Passwort hat. Ich bekomm das einfach nicht hin..

    Ich hoffe ihr könnt mir helfen :)

    Mfg. ChrissMega

    Es gibt mehre Wege dies zu erreichen und vielleicht zeigt dir ein anderer einen elganteren.

    1. brauchst du ein Connector: Versuchs mal an folgendem Grabbeltisch: dev.mysql.com/downloads/connector/odbc/5.1.html

    2.Rasch ausgepackt und installiert legst du ein Modul an:

    VB.NET-Quellcode

    1. Module Module1
    2. Public oConn1 As ADODB.Connection
    5. ' Cursor Type
    6. Public Const adOpenUnspecified = &HFFFFFFFF
    7. Public Const adOpenForwardOnly = 0
    8. Public Const adOpenKeyset = 1
    9. Public Const adOpenDynamic = 2
    10. Public Const adOpenStatic = 3
    12. ' CursorLocationEnum constants
    13. Public Const adUseNone = &H1
    14. Public Const adUseServer = &H2
    15. Public Const adUseClient = &H3
    16. Public Const adUseClientBatch = &H3
    19. ' LockTypeEnum constants
    20. Public Const adLockUnspecified = &HFFFFFFFF
    21. Public Const adLockReadOnly = &H1
    22. Public Const adLockPessimistic = &H2
    23. Public Const adLockOptimistic = &H3
    24. Public Const adLockBatchOptimistic = &H4
    26. ' CommandTypeEnum constants
    27. Public Const adCmdText = &H1
    29. ' DataTypeEnum constants
    30. Public Const adVarChar = &HC8
    32. ' ParameterDirectionEnum constants
    33. Public Const adParamInput = &H1
    35. Public Function dbOpenRecordset(ByVal sSQL As String, _
    36. Optional ByVal CursorType As ADODB.CursorTypeEnum = adOpenDynamic, _
    37. Optional ByVal LockType As ADODB.LockTypeEnum = adLockOptimistic, _
    38. Optional ByVal CursorLocation As ADODB.CursorLocationEnum = adUseClient) _
    39. As ADODB.Recordset
    42. oConn1 = New ADODB.Connection
    43. oConn1.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;DATABASE=namedeinerdb;USER=root;PASSWORD=****;Option=3;Readonly=false")
    46. Try
    47. dbOpenRecordset = New ADODB.Recordset
    48. With dbOpenRecordset
    49. .CursorLocation = CursorLocation
    50. 'MsgBox(sSQL)
    51. .Open(sSQL, oConn1, CursorType, LockType)
    52. End With
    53. Catch ex As Exception
    54. MsgBox(ex.ToString)
    55. End Try
    56. End Function
    57. End Module


    3.Was dir nun noch fehlt ist der Verweis:
    Projekt->Verweise->COM: Microsoft Active X Data Objects 2.8 oder 6.0 (experementiere selber)

    4.Der Aufruf: In Deiner Form zB über einen Button

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    2. Dim rec1 As ADODB.Recordset
    3. Dim username As String
    4. Dim pswd As String
    5. pswd = "12345"
    6. usernme = "Herbert"
    7. 'im Recordset gibst du deinen SQL Abfrage ein. Siehe auch unter http://www.w3schools.com/sql/sql_and_or.asp
    8. rec1 = dbOpenRecordset("SELECT username, points FROM user WHERE username='" & usernme & "' AND password='" & pswd & "'")
    9. MsgBox(rec1("username").Value & "," & rec1("points").Value)
    10. rec1.Close()
    11. oConn1.Close()
    12. End Sub


    Ich weiss der Code wird hier etwas unordentlich dargestellt....
    Have Fun
    Foogo

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

    Hier das selbe in grün mittes Net-Connector:

    1.Connector runterladen: dev.mysql.com/downloads/connector/net/
    2.Verweis: Projekt->Verweis->Dursuchen C:\Programme\Mysql\Mysql Connector Net..?\Assemblies\v4.0\Mysql.Data.dll
    3.Modul anlegen

    VB.NET-Quellcode

    1. Imports MySql.Data
    2. Imports MySql.Data.MySqlClient
    3. Module Module1
    4. Public connection As New MySql.Data.MySqlClient.MySqlConnection
    6. Public Function dbopenrecordset(ByVal cmd As String) As MySql.Data.MySqlClient.MySqlCommand
    7. Dim connectionstring As String = "server=localhost;user=root;database=deinedb;port=3306;password=****;"
    8. Dim connection As New MySql.Data.MySqlClient.MySqlConnection(connectionstring)
    9. Dim command As New MySql.Data.MySqlClient.MySqlCommand(cmd, connection)
    10. connection.Open()
    11. command.BeginExecuteReader()
    12. Return command
    13. End Function
    15. End Module


    4.Form mit Button

    VB.NET-Quellcode

    1. Imports MySql.Data
    3. Public Class Form1
    5. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    6. Dim rdr As MySqlClient.MySqlDataReader
    8. rdr = dbopenrecordset("SELECT * FROM user WHERE password='psw'").ExecuteReader
    9. While rdr.Read()
    10. MsgBox(rdr(0))
    11. End While
    13. rdr.Close()
    14. connection.Close()
    15. End Sub
    17. End Class



    Gruß
    Foogo

Facebook
Telefonspende