1. BOF¼Ó¼º°ú EOF¼Ó¼º
ADOÀÇ Recorsset ¿ÀºêÁ§Æ®·Î ÂüÁ¶ÇÒ ¼ö ÀÖ´Â ·¹ÄÚµå´Â £±°³ »ÓÀÌ´Ù£®ÀÌ ·¹Äڵ带 ÃֽŠ·¹ÄÚµå¶ó°í ºÎ¸¥´Ù£®Recorsset ¿ÀºêÁ§Æ®¸¦ ÀÛ¼ºÇÑ Á÷ÈÄ¿¡´Â ¾Õ ·¹Äڵ尡 ÃֽŠ·¹ÄÚµåÀÌ´Ù£®¾Æ·¡±×¸²Àº ·¹ÄÚµå¼Â¼Ó¿¡¼ ÃֽŠ·¹Äڵ尡 À̵¿ÇÒ ¼ö ÀÖ´Â ¹üÀ§ÀÌ´Ù£®¾Õ ·¹Äڵ庸´Ùµµ Àü¿¡ À̵¿Çϸé BOF¼Ó¼ºÀÇ °ªÀº True°¡ µÈ´Ù£®¶Ç£¬ÃÖÁ¾ ·¹Äڵ庸´Ùµµ µÚ¿¡ À̵¿Çϸé EOF¼Ó¼ºÀÇ °ªÀº TrueÀÌ µÈ´Ù£®
BOF |
BOF=True |
¾Õ ·¹ÄÚµå |
BOF=False
EOF=False |
¡¡ |
¡¡ |
¡¡ |
ÃÖÁ¾ ·¹ÄÚµå |
EOF |
EOF=True |
·¹ÄÚµå¼Â¿¡ ·¹Äڵ尡 £±°³µµ Æ÷ÇԵǾî ÀÖÁö ¾Ê´Â °æ¿ì´Â ´ÙÀ½ÀÇ ±×¸²°ú °°ÀÌ µÇ°í ÀÖ´Ù£®·¹ÄÚµå¼ÂÀÇ BOF¼Ó¼º°ú EOF¼Ó¼ºÀº ¾î´À Âʵµ TrueÀÌ µÇ¾î ÀÖ´Ù£®ÃֽŠ·¹Äڵ带 À̵¿ÇÏ´Â °ÍÀº ºÒ°¡´ÉÇÏ´Ù£®
BOF |
BOF=True |
EOF |
EOF=True |
2. ÃֽŠ·¹Äڵ带 À̵¿ÇÑ´Ù .
¡¼¼½Ä¡½recorsset.MoveFirst¡¡¡¡¡¡ £º¾Õ ·¹Äڵ忡 À̵¿
recorsset.MovePrevious ;1°³ Àü(¾Õ)ÀÇ ·¹Äڵ忡 À̵¿
recorsset.MoveNext¡¡¡¡¡¡ ¡¡£º´ÙÀ½ÀÇ ·¹Äڵ忡 À̵¿
recorsset.MoveLast¡¡¡¡ ¡¡¡¡£ºÃÖÁ¾ ·¹Äڵ忡 À̵¿
recorsset:¿·Á ÀÖ´Â Recorsset ¿ÀºêÁ§Æ®
Recorsset ¿ÀºêÁ§Æ®ÀÇ CursorType¼Ó¼ºÀÇ °ªÀÌ adOpenForwardOnly£¬LockType¼Ó¼ºÀÇ °ªÀÌ adLockReadOnlyÀÇ °æ¿ì ÀÌ ·¹ÄÚµå¼ÂÀº ¾Õ ·¹Äڵ忡¼ ÃÖÁ¾ ·¹ÄÚµå ¹æÇ⸸нºÅ©·Ñ °¡´ÉÇÏ´Ù£®MoveLast ¹æ¹ý£¬MovePrevious ¹æ¹ýÀº ½ÇÇàÇÒ ¼ö ¾ø´Ù£®
¡¼»ç¿ë ¿¹¡½
¡¡¡¡¡¡¡¡Public Sub MoveCurrentRec()
¡¡¡¡¡¡ Dim CN As ADODB.Connection
¡¡¡¡¡¡ Dim RS As ADODB.Recordset
¡¡¡¡¡¡ 'Á¢¼Ó
¡¡¡¡¡¡ Set CN = CurrentProject.Connection
¡¡¡¡¡¡ '·¹ÄÚµå¼ÂÀ» Ãëµæ
¡¡¡¡¡¡ Set RS = New ADODB.Recordset
¡¡¡¡¡¡ RS.Open "Çлý ¸íºÎ", CN, adOpenKeyset, adLockOptimistic
¡¡¡¡¡¡ 'ÂüÁ¶
¡¡¡¡¡¡ Do Until RS.EOF
¡¡¡¡¡¡ Debug.Print RS!ÇÐÀû ¹øÈ£, RS!¼º¸í
¡¡¡¡¡¡ RS.MoveNext
¡¡¡¡¡¡ Loop
¡¡¡¡¡¡ 'Á¾·á
¡¡¡¡¡¡ RS.Close: Set RS = Nothing
¡¡¡¡¡¡ CN.Close: Set CN = Nothing
¡¡¡¡¡¡¡¡End Sub
3. Bookmark¼Ó¼º
Recorsset ¿ÀºêÁ§Æ®¸¦ ÀÛ¼ºÇÏ¸é £¬°¢ ·¹Äڵ忡´Â ÀÚµ¿ÀûÀ¸·Î °íÀ¯ÀÇ °ª(ÀÌ °ªÀ»ºÏ¸¶Å©¶ó°í ºÎ¸¥´Ù)ÀÌ ºÙÀÌÁø´Ù£®À̰Ϳ¡ µû¶ó °¢ ·¹Äڵ带 ½Äº°ÇÏ´Â °ÍÀÌ °¡´ÉÈ÷´Ù£®Bookmark ¼Ó¼ºÀº ¼³Á¤·ÂüÁ¶°¡ °¡´ÉÇϰí À̰ÍÀ» »ç¿ëÇϰí ÃֽŠ·¹ÄÚµåÀÇ À§Ä¡¸¦ º¸Á¸ÇÏ°í ±× ·¹Äڵ忡 ¾ðÁ¦¶óµµ µ¹¾Æ¿À´Â °ÍÀÌ °¡´ÉÇÏ´Ù£®ºÏ¸¶Å©´Â Recorsset ¿ÀºêÁ§Æ®ÀÇ Bookmark¼Ó¼ºÀ¸·Î °ü¸®µÇ°í ÀÖ´Ù£®
¡¼¼½Ä¡½value = recordset.Bookmark (Bookmark¼Ó¼ºÀÇ ÂüÁ¶)
¡¡¡¡¡¡¡¡ recordset.Bookmark= value¡¡£¨Bookmark¼Ó¼ºÀÇ ¼³Á¤£©
recordset:¿·Á ÀÖ´Â Recorsset ¿ÀºêÁ§Æ®
value£ººÏ¸¶Å©£¨Variant ÇüÅ£©
¡¼»ç¿ë ¿¹¡½
¡¡¡¡¡¡Public Sub MoveBookmark()
¡¡¡¡¡¡ Dim CN As ADODB.Connection
¡¡¡¡¡¡ Dim RS As ADODB.Recordset
¡¡¡¡¡¡ Dim bmark As Variant
¡¡¡¡¡¡ 'Á¢¼Ó
¡¡¡¡¡¡ Set CN = CurrentProject.Connection
¡¡¡¡¡¡ '·¹ÄÚµå¼ÂÀ» Ãëµæ
¡¡¡¡¡¡ Set RS = New ADODB.Recordset
¡¡¡¡¡¡ RS.Open "Çлý ¸íºÎ", CN, adOpenKeyset, adLockOptimistic
¡¡¡¡¡¡ 'ºÏ¸¶Å©
¡¡¡¡¡¡ bmark = RS.Bookmark
¡¡¡¡¡¡ Debug.Print RS!ÇÐÀû ¹øÈ£, RS!¼º¸í
¡¡¡¡¡¡ RS.MoveLast
¡¡¡¡¡¡ Debug.Print RS!ÇÐÀû ¹øÈ£, RS!¼º¸í
¡¡¡¡¡¡ RS.Bookmark = bmark
¡¡¡¡¡¡ Debug.Print RS!ÇÐÀû ¹øÈ£, RS!¼º¸í
¡¡¡¡¡¡ 'Á¾·á
¡¡¡¡¡¡ RS.Close: Set RS = Nothing
¡¡¡¡¡¡ CN.Close: Set CN = Nothing
¡¡¡¡¡¡End Sub
|