ADO.NET有很多值得學(xué)習(xí)的地方，這里我們主要介紹ADO.NET Recordset對(duì)象，包括介紹CursorLocation屬性、UpdateBatch方法、Open方法等方面。CursorLocation屬性:指定記錄集的光標(biāo)位置，有adUseServer和adUseClient兩種。如果在connection對(duì)象連接前未指定游標(biāo)，則必須在此設(shè)置。UpdateBatch方法：同時(shí)保存多條被更改的記錄。Open方法：建立1個(gè)記錄集。

#T#其中，Source即RecordSource參數(shù)可以是1個(gè)查詢、存儲(chǔ)過程名或表名等；或者1個(gè)Command對(duì)象變量名（此時(shí)要省略 ActiveConnection參數(shù)，即為空），ActiveConnection參數(shù)指明該記錄集基于哪個(gè)Connection連接對(duì)象，這個(gè)連接對(duì)象必須是已建立的連接，當(dāng)沒有Connection對(duì)象時(shí)，該參數(shù)就直接指定一個(gè)ConnectionString連接串；Cursortype指明游標(biāo)類型，Locktype指明記錄鎖定方式（記錄集是否可修改/只讀），Options是說Source參數(shù)中內(nèi)容的類型，如表，存儲(chǔ)過程等，與 Command對(duì)象的Commandtype類似。

使用ADO.NET Recordset對(duì)象Open方法，不要事先建立Connection和Command對(duì)象，也可打開數(shù)據(jù)源——其實(shí)，它們?nèi)齻€(gè)對(duì)象本來就是平行的嘛，如：

Dim rst As New ADODB.Recordset  
Private Sub Form_Load()  
Const cnStr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\工商所收費(fèi)系統(tǒng)\MyDatabase.mdb" 
rst.Open "select * from Unitrecord", cnStr, adOpenDynamic, adLockOptimistic  
End Sub 

只要這么幾句，就打開一個(gè)記錄集了。

ADO.NET Recordset對(duì)象Save方法：將記錄集存為1個(gè)文件。本方法不會(huì)關(guān)閉記錄集。該方法在記錄集建立后才能使用。在第1次使用該方法存儲(chǔ)記錄集后，如果需要往同一文件存儲(chǔ)同樣的記錄集，要省略文件名。我在使用ADO.NET Recordset對(duì)象時(shí)遇到1難題：竟沒用來！我在聲明段和Form_load事件中聲明了對(duì)象變量，也設(shè)置了connectionstring,open屬性，也給記錄集對(duì)象賦予了Execute方法得到的記錄，可是，記錄集對(duì)象不可用，如：（紅色代碼為修改后的正確寫法。）。

Dim cn As ADODB.Connection  
Dim cmd As ADODB.Command  
Dim rst As ADODB.Recordset  
rivate Sub Form_Load()  
Set cn = New ADODB.Connection  
cn.ConnectionString = "FILE NAME=C:\WINDOWS\Desktop\Savelink.UDL" 
cn.CursorLocation=adUseClient 
cn.Open  
Set cmd = New ADODB.Command  
Set cmd.ActiveConnection = cn 
cmd.CommandText = "select * from sub1" 
Set rst = New ADODB.Recordset  
Set rst = cmd.Execute() ‘缺省情況下，記錄集為只讀，如果要修改記錄，需要設(shè)定記錄集的LockType屬性，或在記錄集對(duì)象的OPEN方法中一并設(shè)置。  
rst.Open "sub1", cn, adOpenDynamic, adLockOptimistic  
(注:第1個(gè)參數(shù)”sub1”也可采用1個(gè)command對(duì)象名，但那樣的話要省略后面cn,如下：  
rst.Open cmd, , adOpenDynamic, adLockOptimistic)  
Label2.Caption = "本過程共" & rst.RecordCount & "步。"  
rst . addnew  
rst(0) = "搞試驗(yàn)"  
rst(1) = "我的實(shí)驗(yàn)"  
rst.Update ‘這句不能丟！設(shè)為adLockOptimistic對(duì)記錄的修改不會(huì)自動(dòng)進(jìn)行保存?。。?！  
End Sub 

執(zhí)行到label2.caption=…rst.RecordCount…和rst . addnew時(shí)就出錯(cuò)了，好象根本就沒有rst似的。