您好,登錄后才能下訂單哦!
這篇文章主要介紹了VB6.0 datatable有什么用,具有一定借鑒價(jià)值,感興趣的朋友可以參考下,希望大家閱讀完這篇文章之后大有收獲,下面讓小編帶著大家一起了解一下。
在VB6.0在,ADO是大家在數(shù)據(jù)庫編程中用得較多的。而在新的vb.net中,雖然也可以用它來查詢數(shù)據(jù)庫,但在與新的datagrid的綁定中,不能像以前那樣使用:“datagrid1.datasoure=rs”,而是需要一定的轉(zhuǎn)化。因?yàn)樾碌膁atagrid.datasoure所對應(yīng)的是VB6.0 datatable或dataset,而并不是原來的Recordset。所以,在使用中,要把Recordset轉(zhuǎn)換成VB6.0 datatable或 dataset。我們以VB6.0 datatable為例:
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
以上函數(shù)是實(shí)現(xiàn)將Recordset轉(zhuǎn)換成DataTable。而我們要做的,就是在窗口的load中加入對ADO中的轉(zhuǎn)化后再進(jìn)行引用。
Dim dts As DataTable dts = RecordsetToDataTable(rsuser, "login") '其中rsuser為ado.Recordset,"login"為表名 DataGrid1.DataSource = dts.DefaultView
感謝你能夠認(rèn)真閱讀完這篇文章,希望小編分享的“VB6.0 datatable有什么用”這篇文章對大家有幫助,同時(shí)也希望大家多多支持億速云,關(guān)注億速云行業(yè)資訊頻道,更多相關(guān)知識等著你來學(xué)習(xí)!
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。