Får det inte att fungera med att fylla en DataGrid.

Felmeddelandet:

An unhandled exception of type 'System.Exception' occurred in system.windows.forms.dll
Additional information: En komplex DataBinding accepterar antingen IList eller IListSource som datakälla.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cn As New MySqlClient.MySqlConnection(TXT_cnString)
        Dim id, sqlQuery As String
        sqlQuery = "select * from mintabell LIMIT 10"
        Dim cmd As New MySqlClient.MySqlCommand
        cmd.CommandText = sqlQuery
        cmd.Connection = cn
        cn.Open()
        cmd.ExecuteNonQuery()


        DataGrid1.DataSource = cn 'HÄR BLIR DET FEL


    End Sub

Du försöker tilldela datagriden själva uppkopplingen istället resultatet. Jag har för mig att det finns en hel del bra exempel hur man gör någonstans här på Pellesoft.

Kan någon visa mig ett exempel?

Här är ett exempel på en utsökning med presentation i datagrid.

'Private variables
    Private myConnection As New SqlConnection("Initial Catalog=NorthwindStudents;Data 
source=lusql01;Integrated Security=true;User id=myUser;password=myPass;")
    Private myAdapter As New SqlDataAdapter
    Private myDataset As New DataSet

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        Dim sqlStr As String = "Select * from Customers"

            Try
                'Clear the dataset from previous results
                myDataset.Clear()

                myConnection.Open()
                myAdapter.SelectCommand = New SqlCommand
                myAdapter.SelectCommand.Connection = myConnection

                myAdapter.SelectCommand.CommandText = sqlStr
                myAdapter.SelectCommand.CommandType = CommandType.Text

                myAdapter.SelectCommand.ExecuteNonQuery()
                myAdapter.Fill(myDataset, "Customers")

                If myDataset.Tables(0).Rows.Count > 0 Then
                    dgResults.DataSource = myDataset
                    dgResults.DataMember = "Customers"
                Else
                    MessageBox.Show("Hittade inga poster med angivet sökkriterium", "Ingen träff", MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
                myConnection.Close()

            Catch ex As Exception
                myConnection.Close()
                MsgBox("Fel i btnSearch_Click: " + ex.Message + " : " + ex.TargetSite.Name)
            End Try
    End Sub