mysql - 使用 MySql 数据库中的值填充 VB 中表单上的数据网格

Question

所以我试图用我的数据库查询中的值填充一个名为 DataGrid 的数据网格，它存在于一个表单中。我无法将数据放入此 DataGrid。到目前为止，我有以下代码:

   Private Sub Form9_Load(sender As Object, e As EventArgs) Handles  MyBase.Load
    NoMovies.Visible = False
    DataGrid.Visible = False
    Dim query As String
    Dim ds As New DataSet
    Dim da As New MySqlDataAdapter
    MysqlConn = New MySqlConnection
    Dim Reader As MySqlDataReader
    'another query and a two table join'
    query = "SELECT movie_id, movie_name from movie2 Where movie_id=(SELECT movie_id from rental where client_username='" & currentUser & "' AND start_date<='" & DateTime.Now.ToString("yyyy-MM-dd") & "' AND return_date>='" & DateTime.Now.ToString("yyyy-MM-dd") & "')"
    MysqlConn.ConnectionString ="server=mysql.scss.tcd.ie;userid=murpha83;password=gh8ht6789;database=murpha83_db"
    MysqlConn.Open()
    Command = New MySqlCommand(query, MysqlConn)
    Reader = Command.ExecuteReader
    da = New MySqlDataAdapter(query, MysqlConn)
    da.Fill(ds)
    da.Fill(DataGrid)
    If Reader.HasRows = True Then
        DataGrid.Visible = True
    Else
        NoMovies.Visible = True
    End If
    MysqlConn.Close()
    Reader.Close()
End Sub 

我知道 MySql 语句有效，所以问题出在 DataGrid 上。问题是我尝试用 da 中的值填充 DataGrid。我也尝试过

 'DataGrid.DataSource = ds.Tables("movie_name")

因为 movie_name 是我想要的列，但这也不起作用!任何帮助都会很棒!谢谢!

Answer 1

替换

da.Fill(DataGrid)

与

DataGrid.DataSource=ds.Tables[0]