ADO在vb.net中的使用（与datagrid结合）
点击次数：10 次 发布日期：2008-11-26 11:13:57 作者：源代码网
|
源代码网推荐 源代码网推荐 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 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
