可以

創(chuàng)新互聯(lián)10多年企業(yè)網(wǎng)站制作服務(wù);為您提供網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)頁設(shè)計及高端網(wǎng)站定制服務(wù),企業(yè)網(wǎng)站制作及推廣,對成都會所設(shè)計等多個行業(yè)擁有豐富的網(wǎng)站營銷經(jīng)驗的網(wǎng)站建設(shè)公司。
Application.StartupPath
表示根目錄,就是程序所在的目錄,與vb6的app.path是一樣的。你就要這樣
".....Data
Source
="
Application.StartupPath
"\xx.xls"
".....Data
Source
=
D:\xx.xls"也可以表示指定位置。
“.....”表示數(shù)據(jù)庫連接的形式,使用的代碼省略部分哈。
但是一般做小程序就用Application.StartupPath
,方便些哈,
沒有這樣的,你要適應(yīng)新的事物。
DataReader跟Recordset有點像,但是它是不可編輯的。
ado點虐 中有 DataTable ,你可以了解一下它。
一般設(shè)計數(shù)據(jù)庫的時候自動編號是自增的,所以新插入的編號是最大的編號
你可以用
select max(id) from table
來獲取這個編號
;??? 在VB 在 ADO是大家在數(shù)據(jù)庫編程中用得較多的 而在新的中 雖然也可以用它來查詢數(shù)據(jù)庫 但在與新的datagrid的綁定中 不能像以前那樣使用 datagrid datasoure=rs 而是需要一定的轉(zhuǎn)化 因為新的datagrid datasoure所對應(yīng)的是 datatable或dataset 而并不是原來的Recordset 所以 在使用中 要把Recordset轉(zhuǎn)換成datatable或 dataset 我們以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 = To adoRS Fields Count ?? 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 = To adoRS Fields Count ?? dr(i) = adoRS Fields(i) Value ?? Next ?? dt Rows Add(dr) ?? adoRS MoveNext() ?? End While ?? ?? Return dt ?? ?? End Function ?? ??以上函數(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 為表名 ?? DataGrid DataSource = dts DefaultView lishixinzhi/Article/program/net/201311/13855
網(wǎng)頁題目:vb使用ado點虐
的簡單介紹
轉(zhuǎn)載來于:http://www.yijiale78.com/article44/ddjgpee.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供小程序開發(fā)、建站公司、域名注冊、網(wǎng)站收錄、全網(wǎng)營銷推廣、自適應(yīng)網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)