SQL Query in ein Array

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Dodo.

    SQL Query in ein Array

    Es gibt hier zwar schon Threads mit leichten ansätzen, jedoch irgendwie nicht wirklich das, was ich benötige.

    Ich habe nun endlich hinbekommen in VB eine MySQL DB einzubinden und auch auszulesen in ein DataGrid.
    Dies möchte ich aber nicht, ich möchte das Result des Querys in ein Array schreiben.

    Bsp.: ich habe den SQL-String

    SQL-Abfrage

    1. "SELECT `name`, `datum`, `text` FROM `tabelle`"

    möchte ich ein doppel Array

    PHP-Quellcode

    1. $row[zeile1]['name'] = "Hugo"
    2. $row[zeile1]['datum'] = "23.10.1998"
    3. $row[zeile1]['text'] = "irgendein text von Hugo"
    5. $row[zeile2]['name'] = "Fritz"
    6. $row[zeile2]['datum'] = "02.05.1986"
    7. $row[zeile2]['text'] = "irgendein text von Fritz"


    usw. jenachdem wieviele Zeilen der Query ausspuckt.

    Hier mal mein QuellText

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Data
    3. Imports System.Windows.Forms
    4. Imports MySql.Data.MySqlClient
    6. Module mdlSQL
    7. 'Inherits System.Windows.Forms.Form
    9. Dim connection As MySqlConnection
    10. Dim dbConnected As Boolean
    11. Dim data As DataTable
    12. Dim da As MySqlDataAdapter
    13. Dim cb As MySqlCommandBuilder
    15. Public Sub dbConnect(ByVal dbHost As String, ByVal dbUser As String, ByVal dbPassword As String, ByVal dbName As String)
    16. If Not connection Is Nothing Then connection.Close()
    18. Dim connStr As String
    19. connStr = "server=" + dbHost + ";user id=" + dbUser + "; password=" + dbPassword + "; database=" + dbName + "; pooling=false"
    21. Try
    22. connection = New MySqlConnection(connStr)
    23. connection.Open()
    24. dbConnected = True
    25. Catch ex As MySqlException
    26. MessageBox.Show("Error connecting to the server: " + ex.Message)
    27. dbConnected = False
    28. End Try
    29. End Sub
    31. Function mysql_query(ByVal sqlQuery As String) As DataTable
    32. data = New DataTable
    34. da = New MySqlDataAdapter(sqlQuery, connection)
    35. cb = New MySqlCommandBuilder(da)
    37. da.Fill(data)
    39. mysql_query = data
    40. End Function
    41. End Module


    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. DataGrid.DataSource = mysql_query("SELECT `name`, `datum`, `text` FROM `tabelle`")
    3. End Sub

    RE: SQL Query in ein Array

    Hallo Dodo,

    ich habe eine Idee wie du deine Daten in ein Array bekommen kannst. Allerdings habe ich das so auch noch nicht gemacht, kann daher nicht garantieren das es funktioniert.

    Als erstes legst du dir eine Variable vom Typ Variant an.
    Das Ergebniss der SQL Abfrage speicherst du nicht in einem DataGrid, sondern in einem Recordset.
    Das Recordset liest du mit GetRows aus und speicherst es in der Variant Variable,

    also

    Variantvariable = GetRows(Recordset)

    Die Variantvariable ist jetzt ein mehrdimensionales Array. Ich hoffe es funktioniert und es hilf dir weiter.

    mfg

    Bart

    Ich glaube ich habs jetzt so ähnlich geschafft =) is vielleicht nicht die eleganteste Lösung, aber reicht für mich, weil sie dit macht, was ich möchte.

    Wens interessiert:

    VB.NET-Quellcode

    1. Function mysql_query(ByVal sqlQuery As String) As DataTable
    2. On Error Resume Next
    3. Dim data As DataTable
    5. data = New DataTable
    6. da = New MySqlDataAdapter(sqlQuery, connection)
    7. cb = New MySqlCommandBuilder(da)
    9. da.Fill(data)
    11. If Err.Number <> 0 Then
    12. MsgBox(Err.Description)
    13. End If
    15. mysql_query = data
    16. End Function


    Wenn ich funktion benutze:

    VB.NET-Quellcode

    1. Dim data As DataTable
    3. data = mysql_query("SELECT *, DATE_FORMAT(`from_time`, '%H:%i') AS `f_time`, DATE_FORMAT(`to_time`, '%H:%i') AS `t_time`, DATE_FORMAT(`remember_time`, '%H:%i') AS `r_time` FROM `events` WHERE `event_date` = '" + calDates.SelectionRange.Start + "'")
    5. lstDates.Items.Clear()
    6. For Me.i = 0 To data.Rows.Count - 1
    7. eventArray(i, 0) = data.Rows.Item(i).Item("id").ToString
    8. eventArray(i, 1) = data.Rows.Item(i).Item("title").ToString
    9. eventArray(i, 2) = data.Rows.Item(i).Item("text").ToString
    10. eventArray(i, 3) = data.Rows.Item(i).Item("f_time").ToString
    11. eventArray(i, 4) = data.Rows.Item(i).Item("t_time").ToString
    12. eventArray(i, 5) = data.Rows.Item(i).Item("r_time").ToString
    13. lstDates.Items.Add(eventArray(i, 3) & " - " & eventArray(i, 4) & ": " & eventArray(i, 1))
    14. Next


    Zumindest funktioniert es ^^

Facebook
Telefonspende