VB6.0datatable有什么用

这篇文章主要介绍了VB6.0 datatable有什么用,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。

成都创新互联公司是一家集网站建设,盐山企业网站建设,盐山品牌网站建设,网站定制,盐山网站建设报价,网络营销,网络优化,盐山网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。

在VB6.0在,ADO是大家在数据库编程中用得较多的。而在新的vb.net中,虽然也可以用它来查询数据库,但在与新的datagrid的绑定中,不能像以前那样使用:“datagrid1.datasoure=rs”,而是需要一定的转化。因为新的datagrid.datasoure所对应的是VB6.0 datatable或dataset,而并不是原来的Recordset。所以,在使用中,要把Recordset转换成VB6.0 datatable或 dataset。我们以VB6.0 datatable为例:

  1. Function RecordsetToDataTable(ByVal adoRS As ADODB.Recordset, 
    ByVal strTable As String)  

  2.  

  3. adoRS.MoveFirst()  

  4. Dim dt As DataTable  

  5. dt = New DataTable(strTable)  

  6. Dim i As Integer  

  7. Dim strcolname As String  

  8. Dim t As Type  

  9. Dim dr As DataRow  

  10.  

  11. For i = 0 To adoRS.Fields.Count - 1  

  12. strcolname = adoRS.Fields(i).Name  

  13. t = adoRS.Fields(i).Value.GetType()  

  14. dt.Columns.Add(strcolname, t)  

  15. Next  

  16.  

  17. While (Not adoRS.EOF)  

  18. dr = dt.NewRow()  

  19. For i = 0 To adoRS.Fields.Count - 1  

  20. dr(i) = adoRS.Fields(i).Value  

  21. Next  

  22. dt.Rows.Add(dr)  

  23. adoRS.MoveNext()  

  24. End While  

  25.  

  26. Return dt  

  27.  

  28. End Function  

以上函数是实现将Recordset转换成DataTable。而我们要做的,就是在窗口的load中加入对ADO中的转化后再进行引用。

Dim dts As DataTable  dts = RecordsetToDataTable(rsuser, "login")   '其中rsuser为ado.Recordset,"login"为表名  DataGrid1.DataSource = dts.DefaultView

感谢你能够认真阅读完这篇文章,希望小编分享的“VB6.0 datatable有什么用”这篇文章对大家有帮助,同时也希望大家多多支持创新互联,关注创新互联行业资讯频道,更多相关知识等着你来学习!


网站标题:VB6.0datatable有什么用
网页URL:http://scyanting.com/article/pgepej.html