Datagridview使用ADODB.Recordset [英] Datagridview Using ADODB.Recordset

问题描述

Public Class Form1
    Dim con As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim tb As DataTable

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con = New ADODB.Connection
        rs = New ADODB.Recordset
        tb = New DataTable
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\AMEER & SONS\AMEER&SONS.mdb;Persist Security Info=False"
        con.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        con.Open()
        rs.Open("company_info", con, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, 2)
        grid.DataSource = rs
    End Sub
End Class

此代码不显示错误消息，但datagridview不显示数据原因？感谢高级。



编辑TR：请阅读发布指南并且不要SHOUT。

推荐答案

您没有将任何数据映射到DataTable，您将用它来填充网格：

You havn't mapped any data to your DataTable, which you would use to fill the Grid:

tb = New DataTable
...
grid.DataSource = tb

rs.Open（ventas，con，ADODB.CursorTypeEnum.adOpenKeyset，ADODB.LockTypeEnum.adLockOptimistic，2）

Form10.DataGridView1.DataSource = tb



会是这样吗？

rs.Open("ventas", con, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, 2)
Form10.DataGridView1.DataSource = tb

Would be someting like this?

Public Class Form1
    Dim con As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim tb As DataTable
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con = New ADODB.Connection
        rs = New ADODB.Recordset
        tb = New DataTable
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\AMEER & SONS\AMEER&SONS.mdb;Persist Security Info=False"
        con.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        con.Open()
        rs.Open("company_info", con, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, 2)

        Dim da As New System.Data.OleDb.OleDbDataAdapter()
        Dim ds As New DataSet()
        da.Fill(ds, rs, "company_info")

        'rs.Close()  'Cannot close in this method
        rs.ActiveConnection = Nothing
        con.Close()
        rs = Nothing
        con = Nothing

        grid.DataSource = (ds.Tables("company_info"))
    End Sub
End Class

这篇关于Datagridview使用ADODB.Recordset的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！