¡á Contents

£±¡¡BOF¼Ó¼º°ú EOF¼Ó¼º
£²¡¡ÃֽŠ·¹Äڵ带 À̵¿ÇÑ´Ù
£³¡¡Bookmark¼Ó¼º

 

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