Datenabruf mit MySQL Query

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von FireEmerald.

    Datenabruf mit MySQL Query

    Hallo Zusammen,

    folgenden Code benutze ich um auf meinen MySQL Server zu connecten. Für's erste wollte ich nurmal den Namen eines Benutzers auslesen mit dem SELECT Befehl.

    Nur das Problem ist die Verbindung etc. passt alles, ich bekomme niergends einen Fehler, jedoch ist myData.HasRows immer false - egal wie ich den SQL Query schreibe. (mit `, ohne, mit ', ohne)

    Wenn ich den SQL Query mit einem anderen Datenbanktool ausführe, bekomme ich den gewünschten Namen angezeigt.
    Die einzigste Besonderheit wo ich dem Benutzer hinzugefügt hatte, ist das er keine UPDATE, INSERT, DELETE usw. Befehle ausführen kann - sprich der MySQL User besitzt nur "Leserechte".

    Muss ich da noch etwas spezielles beim Connection hinzufügen? Oder gibt es eine extra Funktion wo bei myData = myCommand.ExecuteReader() ausgewählt werden muss?

    VB.NET-Quellcode

    1. Option Explicit On
    2. Option Strict On
    4. Imports MySql.Data.MySqlClient
    6. Public Class Form1
    7. Public Sub GetInformations()
    8. Dim conn As MySqlConnection
    9. conn = New MySqlConnection
    10. '// Verbindungsdaten wurden durch Platzhalter ersetzt!
    11. conn.ConnectionString = "server=serverip;" _
    12. & "port=custom_port;" _
    13. & "user id=benutzername;" _
    14. & "password=passwort;" _
    15. & "database=datenbankname"
    16. Try
    17. conn.Open() ' Verbindung öffnen
    18. Catch myerror As MySqlException
    19. MessageBox.Show("Keine Verbindung zur Datenbank : " & myerror.Message.ToString)
    20. End Try
    22. Dim myAdapter As New MySqlDataAdapter
    23. '// Diverse SQL Query "Schreibweisen" wurden bereits ausprobiert, mit/ohne Quotes.
    24. Dim SQLAbfrage As String = "SELECT name FROM user WHERE id=1"
    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() ' SQL Abfrage starten
    32. If myData.HasRows Then ' Wenn die Abfrage Einträge enthält / Ergibt jedesmal False, kp wieso...
    33. MessageBox.Show("Da ist was...")
    34. conn.Close()
    35. conn.Open()
    37. Else
    38. MessageBox.Show("Hier gibt es nichts...")
    39. End If
    40. End Sub
    41. End Class


    Die DB besitzt mehrere Tables. Der besagte `user` Table besitzt die Columns `id`, `name`, `mail` - ganz simpel zum testen.

    Gruß, FireEmerald

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „FireEmerald“ ()

    FireEmerald schrieb:

    conn.ConnectionString = "server=serverip;" _
    & "port=custom_port;" _
    & "user id=benutzername;" _
    & "password=passwort;" _
    & "database=datenbankname"

    Du musst server_ip, custom_port, benutzername, passwort, datenbankname schon durch die entsprechenden richtigen Werte ersetzen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Ließ bitte mal meinen Text durch. Ich hatte geschrieben das die Verbindung zur DB. Ohne Fehler verläuft. Das Problem liegt nur daran, dass ich keinen Ihnalt vom SQL-Query zurückbekomme.

    Achso und ich poste keine Server IP, Port usw. im Forum, es ist ja wohl selbstverständlich das ich das bei mir ersetzt habe. (Facepalm)

    @ErfinderDesRades danke für die Info, aber:

    FireEmerald schrieb:

    ...jedoch ist myData.HasRows immer false - egal wie ich den SQL Query schreibe. (mit `, ohne, mit ', ohne)

    Mit oder ohne Quoten, der SQL Query returned keine Rows und beachtet bitte, wenn ich genau den selben in z.b. MySQL Workbench nutze, bekomme ich Einträge. - Kann mir das einfach nicht erklären wieso?

    Ich gehe bei MySQL immer mit den Ergebnissen direkt in ein DataSet.

    Das sieht dann so aus:

    VB.NET-Quellcode

    1. Dim sql_Tickets As MySql.Data.MySqlClient.MySqlCommand = New MySql.Data.MySqlClient.MySqlCommand(SQLCommand, conn)
    3. Dim ds_Tickets As DataSet = New DataSet()
    4. Dim da_Tickets As MySql.Data.MySqlClient.MySqlDataAdapter = New MySql.Data.MySqlClient.MySqlDataAdapter()
    6. da_Tickets.SelectCommand = sql_Tickets
    7. da_Tickets.Fill(ds_Tickets, "Tickets")
    9. Dim TicketCount As Integer = ds_Tickets.Tables(0).Rows.Count



    Versuch das mal auf deine Anfrage anzupassen.
    Wenn anschließend was im DataSet ankommt, lässt sich damit viel einfacher weiterarbeiten!

Facebook
Telefonspende