我对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