如何在datagridview中显示MySql查询记录集
我对vb.net非常陌生,我正在尝试将查询结果显示到datagridview中 在VBA中,我可以通过一个简单的命令将其显示在列表框中:如何在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中不会显示任何内容。环
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å谢谢!我很乐意读