【新手入門】之十六：淺談ADO之Recordset（下）

roych · 發(fā)表于 2014-11-17 09:06:04

記錄集的基本操作講解到此結(jié)束，下面再講些可能不太常用的或者屬性。

第一個(gè)方法：GetString(字符串類型,想獲取的行數(shù),字段分隔符,記錄分隔符,空值表達(dá)式)

最后一個(gè)參數(shù)沒(méi)仔細(xì)研究過(guò)。有時(shí)候，我們需要把所有符合條件的記錄合并成一個(gè)文本字符串，這時(shí)候，這個(gè)函數(shù)就派上用場(chǎng)了：

Sub GetStr1()
Dim rst As New ADODB.Recordset
Dim s As String
rst.Open "select 企業(yè)代碼 from myTable2 where 違規(guī)月份='9月'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
s = rst.GetString(adClipString, , , ",")
Debug.Print "9月違規(guī)的企業(yè)分別是：" & Left(s, Len(s) - 1)
End Sub

復(fù)制代碼

改成循環(huán)語(yǔ)句則是這樣：

Sub GetStr2()
Dim rst As New ADODB.Recordset
Dim s As String
rst.Open "select 企業(yè)代碼 from myTable2 where 違規(guī)月份='9月'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do Until rst.EOF
s = s & "," & rst(0)
rst.MoveNext
Loop
Debug.Print "9月違規(guī)的企業(yè)如下：" & Right(s, Len(s) - 1)
End Sub

復(fù)制代碼

相比之下，孰優(yōu)孰劣自不待言�！�(dāng)然，更復(fù)雜的寫法是用GetRows方法：

Sub GetStr3()
Dim rst As New ADODB.Recordset
Dim s()
Dim i As Long, j As Long
Dim k As String
rst.Open "select * from myTable2 where 服務(wù)代碼='10669967'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
s = rst.GetRows()
For i = 0 To UBound(s, 2)’ UBound(s, 2)
For j = 0 To UBound(s, 1)
k = k & ":" & s(j, i)
Next
Next
Debug.Print k
End Sub

復(fù)制代碼

這是因?yàn)镚etRows返回的是一個(gè)二維數(shù)組。二維數(shù)組？這是神馬�。俊烙�(jì)有人會(huì)問(wèn)了。這里先簡(jiǎn)單普及下吧，有時(shí)間再發(fā)一些掃盲貼：

數(shù)組下限是默認(rèn)從0開始的。二維常數(shù)數(shù)組，通常是像下面這樣寫的：

Sub test()
Dim arr(1, 2)’定義一個(gè)2列×3行的數(shù)組。如果希望從1開始，則改為：arr(1 to 2,1 to 3)
arr(0, 0) = "1"
arr(0, 1) = "2"
arr(0, 2) = "3"
arr(1, 0) = "4"
arr(1, 1) = "5"
arr(1, 2) = "6"
Debug.Print “行數(shù)上限是：” & UBound(arr, 2) & ”列數(shù)下限是：” & LBound(arr,1)
‘最后一個(gè)參數(shù)表示的是維度。
End Sub

復(fù)制代碼

當(dāng)然，還有三維、四維數(shù)組等等，例如arr(0 to 1, 2 to 4, 3 to 5)，但在Access里應(yīng)用不太廣泛。數(shù)組普及至此結(jié)束，下面回來(lái)看看GetRows的參數(shù)：

第一個(gè)參數(shù)：需要獲取的行數(shù)，默認(rèn)為全部行數(shù)。

第二個(gè)參數(shù)：起始行標(biāo)，

第三個(gè)參數(shù)：列標(biāo)。

第二、三個(gè)參數(shù)下標(biāo)均從0開始，可以理解嗎？

最后，我們來(lái)點(diǎn)更有意思的：保存記錄集和讀取本地記錄集文件。先貼代碼：

Sub SaveRecord()
Dim rst As New ADODB.Recordset
rst.Open "select * from mytable where 違規(guī)月份='1月'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdText
rst.Save "E:\myReordset.xml", adPersistXML
rst.Close
Set rst = Nothing
End Sub

復(fù)制代碼

就這么幾句，一個(gè)記錄集就以XML格式保存在E盤了。XML比較直觀，用記事本或者IE瀏覽器就能打開。是不是覺(jué)得安全性太低？，那我們改為ADTG格式試試：

rst.Save "E:\myReordset.adtg", adPersistADTG

復(fù)制代碼

還能用記事本打開嗎？要不，看看Access能不能導(dǎo)入？好像也沒(méi)有這個(gè)格式…是不是有種鎖門準(zhǔn)備出去時(shí)才發(fā)現(xiàn)鑰匙落在房間里面的感覺(jué)呢？不過(guò)這次我們不用請(qǐng)鎖匠，用ADO來(lái)讀取就可以了。

Sub ReadRecord()
Dim rst As New ADODB.Recordset
rst.Open "E:\myReordset.ADTG", , adOpenKeyset, adLockOptimistic, adCmdText
Do Until rst.EOF
Debug.Print rst(3)
rst.MoveNext
Loop
End Sub

復(fù)制代碼

跟前面比較，發(fā)現(xiàn)什么了嗎？

保存記錄集時(shí)仍需數(shù)據(jù)連接參數(shù)，但讀取時(shí)卻不再需要了，這是最大的不同。另外，最后一個(gè)參數(shù)為可選參數(shù)，可填可不填。

當(dāng)然，Recordset里還有很多有趣的屬性，但在Access里不是很常用，這里便稍稍提一下，有興趣的版友可以自行研究一下。

1、用AbsolutePosition屬性用于顯示當(dāng)前記錄的光標(biāo)位置，請(qǐng)參考盜夢(mèng)的實(shí)例。

2、用PageSize和PageCount屬性來(lái)分頁(yè)，這常常應(yīng)用于網(wǎng)頁(yè)中。由于Access缺少Table類控件，我也不建議這樣做，不過(guò)還是做了個(gè)例子供大家參考。

3、用Filter屬性來(lái)篩選記錄集的一個(gè)子集。這個(gè)也應(yīng)用很少，因?yàn)檫@個(gè)子集既然可以能夠通過(guò)條件來(lái)篩選，那么，何不在開始時(shí)就設(shè)置條件呢？

cfedf · 發(fā)表于 2014-11-19 07:13:51

向樓主學(xué)習(xí)，有幾個(gè)問(wèn)題問(wèn)一下。
1，為什么例子里面沒(méi)有類似于command的按鈕，沒(méi)有按鈕，怎么激發(fā)代碼了？
2，為什么代碼是sub開頭，一般不都是private sub command-click()開頭嗎？
主要這兩個(gè)。謝謝樓主的文章，很收益。

roych · 發(fā)表于 2014-11-19 08:57:23

本帖最后由 roych 于 2014-11-19 09:10 編輯

cfedf 發(fā)表于 2014-11-19 07:13
向樓主學(xué)習(xí)，有幾個(gè)問(wèn)題問(wèn)一下。
1，為什么例子里面沒(méi)有類似于command的按鈕，沒(méi)有按鈕，怎么激發(fā)代碼了 ...

1、按F5運(yùn)行就可以了。
如果非要按鈕，也可以設(shè)置個(gè)按鈕，然后
private sub command1_click()
call 函數(shù)名
end sub2、首先，我建立的是模塊級(jí)別的過(guò)程，默認(rèn)為公共模塊（Public，這個(gè)謂詞可以不加），在其它位置直接調(diào)用即可。如果加上私有化（Private）則只能在該模塊運(yùn)行，在其它地方調(diào)用時(shí)就會(huì)出現(xiàn)“子過(guò)程或函數(shù)未定義”的編譯錯(cuò)誤。
而private sub command1_click()表示的是私有化按鈕單擊過(guò)程事件。只能在所隸屬的窗體上執(zhí)行�！话闱闆r下，是無(wú)法在別的窗體上調(diào)用本窗體的單擊事件，如果需要這么做，往往只能在模塊級(jí)別上寫一個(gè)公共函數(shù)，然后互相調(diào)用。

cfedf · 發(fā)表于 2014-11-19 11:52:00

roych 發(fā)表于 2014-11-19 08:57
1、按F5運(yùn)行就可以了。
如果非要按鈕，也可以設(shè)置個(gè)按鈕，然后
private sub command1_click()

你太厲害了。這樣就不用一個(gè)按鈕一段代碼，call一下，多省事情。我正在研究你的例子，非常好。我想ado我終于知道怎么回事了。我先練著，有問(wèn)題向你請(qǐng)教，非常感謝你的熱心幫助。

roych · 發(fā)表于 2014-11-19 11:58:16

cfedf 發(fā)表于 2014-11-19 11:52
你太厲害了。這樣就不用一個(gè)按鈕一段代碼，call一下，多省事情。我正在研究你的例子，非常好。我想ado我 ...

懶嘛。我向來(lái)是個(gè)懶人~~

cfedf · 發(fā)表于 2014-11-19 20:45:13

roych 發(fā)表于 2014-11-19 11:58
懶嘛。我向來(lái)是個(gè)懶人~~

樓主您好,請(qǐng)教個(gè)問(wèn)題,你的代碼我在你的文件里運(yùn)行沒(méi)問(wèn)題,可是我把你的代碼用到我的ACCESS中測(cè)試出問(wèn)題了,我是直接復(fù)制黏貼你的代碼.結(jié)果是這樣的提示.

roych · 發(fā)表于 2014-11-20 09:08:18

cfedf 發(fā)表于 2014-11-19 20:45
樓主您好,請(qǐng)教個(gè)問(wèn)題,你的代碼我在你的文件里運(yùn)行沒(méi)問(wèn)題,可是我把你的代碼用到我的ACCESS中測(cè)試出問(wèn)題了, ...

應(yīng)該是沒(méi)有引用庫(kù)的問(wèn)題吧。在VBE里點(diǎn)擊“工具/引用”，然后選擇 ADO 2.8庫(kù)（Microsoft ActiveX Data Object……）

wanlong3390 · 發(fā)表于 2014-11-22 16:42:37

老師，什么時(shí)候發(fā)表其他的基礎(chǔ)文章呀？

roych · 發(fā)表于 2014-11-22 18:08:50

wanlong3390 發(fā)表于 2014-11-22 16:42
老師，什么時(shí)候發(fā)表其他的基礎(chǔ)文章呀？

先去淘貼里看看呀。

wu8313 · 發(fā)表于 2015-6-10 15:38:43

本帖最后由 wu8313 于 2015-6-14 19:39 編輯

GetString 非常好，謝謝指點(diǎn)。
可以把某個(gè)ACC本地表的所有行轉(zhuǎn)化為一個(gè)字符串 mystring1（形如：1001；1002；1003），傳遞給存儲(chǔ)過(guò)程的文本型輸入?yún)?shù)，然后在SQL里面把這個(gè)文本型參數(shù)用表值函數(shù)轉(zhuǎn)化成表t1.從而實(shí)現(xiàn)批量插入，更新，刪除。比如，delete from T1 where 工號(hào) in （select * from t1）

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			注冊(cè)

群介紹
Access培訓(xùn)群 (792054000)
Access免費(fèi)培訓(xùn)群2 (792054000)
Access經(jīng)典源碼培訓(xùn)群 (77130759)
Access源碼技巧群 (138920637)
access vba (307776555)

主題相關(guān)群

地區(qū)相關(guān)群[您還沒(méi)設(shè)置居住地]

[ADO/DAO] 【新手入門】之十六：淺談ADO之Recordset（下）

本帖子中包含更多資源

本帖被以下淘專輯推薦:

本帖子中包含更多資源

點(diǎn)評(píng)

群介紹
主題無(wú)相 (隨機(jī)顯示版	同地區(qū)群塊其他地區(qū))