如何在datagridview中显示MySql查询记录集

如何在datagridview中显示MySql查询记录集,mysql,vb.net,datagridview,Mysql,Vb.net,Datagridview,我对vb.net非常陌生,我正在尝试将查询结果显示到datagridview中 在VBA中,我可以通过一个简单的命令将其显示在列表框中: MyArray = rs.GetRows 'Then, after transposing of array Me.ListBox1.List = MyArray 这在vb.net上似乎不起作用,使用DataGridView似乎是最简单的解决方案。如果使用列表框更简单,请告诉我怎么走 这是我写的代码。它不会给出错误,但gridview中不会显示任何内容。环

我对vb.net非常陌生,我正在尝试将查询结果显示到datagridview中

在VBA中,我可以通过一个简单的命令将其显示在列表框中:

MyArray = rs.GetRows
'Then, after transposing of array
Me.ListBox1.List = MyArray 
这在vb.net上似乎不起作用,使用DataGridView似乎是最简单的解决方案。如果使用列表框更简单,请告诉我怎么走

这是我写的代码。它不会给出错误,但gridview中不会显示任何内容。环顾四周,我读了一些关于bind的文章,但每次尝试使用它都失败了

    Dim Cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim Server_Name, Database_Name, UserDB, Password, SQLStr As String
    Dim mRS_Result As Object

    Cn = New ADODB.Connection
    rs = New ADODB.Recordset

    Server_Name = "localhost" 
    Database_Name = "MyDBName" 
    UserDB = "root" 
    Password = "" 

    Cn.Open("Driver={MySQL ODBC 5.3 Unicode Driver};Server=" & Server_Name & _
        ";Database=" & Database_Name & ";Uid=" & UserDB & ";Pwd=" & Password & ";")
    SQLStr = "SELECT * FROM errlog WHERE Data > NOW()-100000"
    rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
    rs.Open(SQLStr, Cn, ADODB.CursorTypeEnum.adOpenStatic)
    If rs.RecordCount > 0 Then mRS_Result = rs.GetRows()

    Me.DataGridView1.AutoGenerateColumns = True
    Me.DataGridView1.DataSource = rs

您需要放弃VBA方法,并以.net方式进行。下载mysql.net驱动程序:并开始阅读手册:您还应该查看.net命名指南:哦,并将严格编译器选项设置为:@Bjørn RogerKringsjå您是对的,我想这样做,但我的知识有限,英语说得不太好。我需要在时间上迈出一小步:第一:代码要工作;第二:改进代码。有人对我说:更好是好的敌人。只要你朝着正确的方向走,一步一个脚印是好的。事实上,你走错了方向。这里有一个循序渐进的指南:@Bjørn RogerKringsjå谢谢!我很乐意读