Dim rs As ADODB.Recordset '定義記錄集變量 Set rs = New ADODB.Recordset '實例化 rs.Open "selec * from 表名", CurrentProject.Connection, adOpenKeyset, adLockOptimistic Do While Not rs.EOF '循環(huán)記錄集中的所有數(shù)據(jù) '你的對記錄集的相關(guān)處理代碼 rs.MoveNext Loop If rs.State = 1 Then rs.Close '處理后要關(guān)閉記錄集adStateOpen=1 Set rs = Nothing '釋放內(nèi)存 |
|站長郵箱|小黑屋|手機版|Office中國/Access中國
( 粵ICP備10043721號-1 )
GMT+8, 2025-7-13 08:03 , Processed in 0.068496 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.
