| 以下为引用的内容： Function RecordsetToDataTable(ByVal adoRS As ADODB.Recordset, ByVal strTable As String) adoRS.MoveFirst() 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 = 0 To adoRS.Fields.Count - 1 strcolname = adoRS.Fields(i).Name t = adoRS.Fields(i).Value.GetType() dt.Columns.Add(strcolname, t) Next While (Not adoRS.EOF) dr = dt.NewRow() For i = 0 To adoRS.Fields.Count - 1 dr(i) = adoRS.Fields(i).Value Next dt.Rows.Add(dr) adoRS.MoveNext() End While Return dt End Function |
以上函数是实现将Recordset转换成DataTable
而我们要做的，就是在窗口的load中加入对ADO中的转化后再进行引用。
| 以下为引用的内容： Dim dts As DataTable dts = RecordsetToDataTable(rsuser, "login") '其中rsuser为ado.Recordset,"login"为表名 DataGrid1.DataSource = dts.DefaultView |
