使用.NET Framework组件中的DataGrid显示ADO中的RecordSet对象的记录

虽然在VB.NET中可以使用com组件中的DataGrid控件来显示ADO中的RecordSet对象的记录,但是com组件中的DataGrid控件的功能远没有.NET Framework组件中的DataGrid控件强大,其实也可以用.NET Framework组件中的DataGrid控件显示ADO中的RecordSet对象的记录,在VB.NET论坛看到大多数人只用过.NET Framework组件中的DataGrid控件来显示ADO.NET中的DatsSet对象的记录.

那么,对于使用.NET Framework组件中的DataGrid显示ADO中的RecordSet对象的记录是怎样呢?

Imports ADODB

Imports System.Data

Imports System.Data.OleDb

Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim rs_YPDZT As New ADODB.Recordset

Dim sql As String

sql = "select * from YPFLG_DZT "

rs_YPDZT.CursorLocation = CursorLocationEnum.adUseClient

rs_YPDZT.Open(sql, conn, CursorTypeEnum.adOpenKeyset, LockTypeEnum.adLockPessimistic)

Dim ds_YPDZT As New Data.DataSet

Dim da_YPDZT As OleDbDataAdapter

da_YPDZT = New OleDbDataAdapter(sql, gLinkString)

da_YPDZT.Fill(ds_YPDZT, rs_YPDZT, "YPB")

StatusBar1.Panels.Item(0).Text = username

DataGrid1.DataSource = ds_YPDZT.Tables("YPB")

End Sub

.NET Framework组件中的DataGrid显示ADO中的RecordSet对象的记录,必须将RecordSet匹配给DataSet,如上语句:da_YPDZT.Fill(ds_YPDZT, rs_YPDZT, "YPB")!