Sql Tabelle in DataGridView anzeigen

  • VB.NET

Es gibt 26 Antworten in diesem Thema. Der letzte Beitrag () ist von hendrikator.

    Sql Tabelle in DataGridView anzeigen

    Hallo ich hab ein problem. Ein Freund von mir wollte per vb mithilfe einem DataGridView eine ganze sql Tabelle laden und dort anzeigen. da ich aber noch nie mit dem Element von DataGridView gearbeitet habe kann ich ihm nicht weiter helfen und habe ein bsichen gegoogelt und kamm auf den text

    VB.NET-Quellcode

    1. Private Sub Datagrid_fill()
    2. Dim Conn As New MySqlConnection
    3. Dim da As MySqlDataAdapter
    4. Dim ds As New DataSet
    5. Dim dt As New DataTable
    6. Conn.ConnectionString = "Server=server=*****.net;Uid=*****;Pwd=******;Database=ytprogramm;"
    10. da = New MySqlDataAdapter("SELECT ID, user, pw, email, abos, partner, admin FROM `yt`", Conn)
    13. da.Fill(ds, dt.TableName)
    16. DataGridView1.DataSource = dt
    17. End Sub


    und wen ich dann auf einen Knopf drücke der das ausführt dann kommt diese meldung "Fill: Es wird eine nicht leere Zeichenfolge als SourceTable-Name erwartet.
    Parametername: srcTable"

    MFG
    Hendrikator

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „hendrikator“ ()

    Selbst ist der Mann.
    Es gibt tausende Anleitungen dazu.
    [VB 2010] MySQL Abfrage
    vb-magazin.de/forums/forums/p/4496/17376.aspx
    [VB.NET] Änderung in einem DataGridView in einer MySql DB speichern?
    Nicht getestet:

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class main
    5. Dim Conn As New MySqlConnection
    6. Dim da As MySqlDataAdapter
    7. Private cb As MySqlCommandBuilder
    9. Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. Conn.ConnectionString = "Server=server=*****.net;Uid=*****;Pwd=******;Database=ytprogramm;"
    11. Conn.open()
    12. Dim t As DataTable = mysql_query("SELECT ID, user, pw, email, abos, partner, admin FROM `yt`")
    13. DataGridView1.DataSource = t
    14. End Sub
    16. Function mysql_query(ByVal sqlQuery As String) As DataTable
    17. Dim data As DataTable = New DataTable
    19. da = New MySqlDataAdapter(sqlQuery, connection)
    20. cb = New MySqlCommandBuilder(da)
    22. da.Fill(data)
    24. Return data
    25. End Function
    26. End Class

    xtts02 schrieb:

    Ich denke, es ist einfacher, wenn Du jetzt den Code von @LaMy aus Post#4 einfach übernimmst.
    dan kommt :D Fehler 4 "connection" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\Hendrik\documents\visual studio 2010\Projects\Youtube\Youtube\Form3.vb 67 49 Youtube

    was mus i nu machen:D glaub heut is net mein tag^^

    xtts02 schrieb:

    Also nochmal: kann nicht hellsehen.
    Weiß daher also nicht, was in der Zeile 4 von Form3 zu diesem Zeitpunkt drin steht.
    ups sory


    Option Strict On
    Imports MySql.Data.MySqlClient

    Public Class Form3
    Dim Conn As New MySqlConnection
    Dim da As MySqlDataAdapter
    Private cb As MySqlCommandBuilder
    Public Sub user_laden()
    User.Text = Form1.TextBox1.Text
    ' Button3.Text = Asc(User.Text)
    End Sub
    Private Sub admin_laden()


    Dim Benutzername As String = User.Text
    Dim Lager1 As String = New System.Net.WebClient().DownloadString("http://theepicfronts.funpic.de/lesen.php?user=" + Form1.TextBox1.Text)

    Holzl.Text = Lager1
    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    admin_laden()
    user_laden()
    ' ssss
    Conn.ConnectionString = "Server=server=*****.net;Uid=*****;Pwd=******;Database=ytprogramm;"
    Conn.Open()
    Dim t As DataTable = mysql_query("SELECT ID, user, pw, email, abos, partner, admin FROM `yt`")
    DataGridView1.DataSource = t
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    Form4.Show()
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Conn As New MySqlConnection
    Dim da As MySqlDataAdapter
    Dim ds As New DataSet
    Dim dt As New DataTable
    Conn.ConnectionString = "Server=server=.net;Uid=hendrikator;Pwd;Database=;"



    da = New MySqlDataAdapter("SELECT ID, user, pw, email, abos, partner, admin FROM `yt`", Conn)


    da.Fill(ds, "yt")


    DataGridView1.DataSource = dt
    End Sub






    Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Function mysql_query(ByVal sqlQuery As String) As DataTable
    Dim data As DataTable = New DataTable

    da = New MySqlDataAdapter(sqlQuery, connection)
    cb = New MySqlCommandBuilder(da)

    da.Fill(data)

    Return data
    End Function
    End Class

    xtts02 schrieb:

    Siehe meine Signatur ...


    VB.NET-Quellcode

    1. Option Strict On
    2. Imports MySql.Data.MySqlClient
    4. Public Class Form3
    5. Dim Conn As New MySqlConnection
    6. Dim da As MySqlDataAdapter
    7. Private cb As MySqlCommandBuilder
    8. Public Sub user_laden()
    9. User.Text = Form1.TextBox1.Text
    10. ' Button3.Text = Asc(User.Text)
    11. End Sub
    12. Private Sub admin_laden()
    15. Dim Benutzername As String = User.Text
    16. Dim Lager1 As String = New System.Net.WebClient().DownloadString("http://theepicfronts.funpic.de/lesen.php?user=" + Form1.TextBox1.Text)
    18. Holzl.Text = Lager1
    19. End Sub
    21. Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    22. admin_laden()
    23. user_laden()
    24. ' ssss
    25. Conn.ConnectionString = "Server=server=*****.net;Uid=*****;Pwd=******;Database=ytprogramm;"
    26. Conn.Open()
    27. Dim t As DataTable = mysql_query("SELECT ID, user, pw, email, abos, partner, admin FROM `yt`")
    28. DataGridView1.DataSource = t
    29. End Sub
    31. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    32. Form4.Show()
    33. End Sub
    34. Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    36. End Sub
    38. Function mysql_query(ByVal sqlQuery As String) As DataTable
    39. Dim data As DataTable = New DataTable
    41. da = New MySqlDataAdapter(sqlQuery, connection)
    42. cb = New MySqlCommandBuilder(da)
    44. da.Fill(data)
    46. Return data
    47. End Function
    48. End Class