ADO在vb.net中的使用（與datagrid結合）

     在VB 在ADO是大家在數據庫編程中用得較多的而在新的中雖然也可以用它來查詢數據庫但在與新的datagrid的綁定中不能像以前那樣使用datagriddatasoure=rs而是需要一定的轉化因為新的datagriddatasoure所對應的是 datatable或dataset而並不是原來的Recordset所以在使用中要把Recordset轉換成datatable或 dataset我們以datatable為例
  
  Function RecordsetToDataTable(ByVal adoRS As ADODBRecordset ByVal strTable As String)
  
   adoRSMoveFirst()
   Dim dt As DataTable
   dt = New DataTable(strTable)
   Dim i As Integer
   Dim strcolname As String
   Dim t As Type
   Dim dr As DataRow
  
   For i = To adoRSFieldsCount
   strcolname = adoRSFields(i)Name
   t = adoRSFields(i)ValueGetType()
   dtColumnsAdd(strcolname t)
   Next
  
  
   While (Not adoRSEOF)
   dr = dtNewRow()
   For i = To adoRSFieldsCount
   dr(i) = adoRSFields(i)Value
   Next
   dtRowsAdd(dr)
   adoRSMoveNext()
   End While
  
   Return dt
  
   End Function
  
  以上函數是實現將Recordset轉換成DataTable
  
  而我們要做的就是在窗口的load中加入對ADO中的轉化後再進行引用
  
   Dim dts As DataTable
  
   dts = RecordsetToDataTable(rsuser login) 其中rsuser為adoRecordsetlogin為表名
   DataGridDataSource = dtsDefaultView
From:http://tw.wingwit.com/Article/program/net/201311/13855.html