¡á Contents

£±¡¡Update ¹æ¹ý

 

£±.Update ¹æ¹ý
¡¡ÃֽŠ·¹ÄÚµåÀÇ ³»¿ëÀ» ÆíÁýÇÏ´Â µ¥´Â Update¹æ¹ýÀ» ÀÌ¿ëÇÑ´Ù£®ÆíÁý ´ë»óÀÇ ·¹ÄÚµå´Â ÃֽŠ·¹ÄÚµåÀÌ´Ù£®
¡¼¼­½Ä¡½recordset.Update Fields,Values

recordset£º¿­·Á ÀÖ´Â Recordset ¿ÀºêÁ§Æ®
Fields£ºÆíÁýÇÏ´Â Çʵå À̸§
Values£ºÇʵ忡 ´ëÀÔ ÇÏ´Â °ª¡¡
Update ¹æ¹ýÀº ÆíÁýÇÑ ³»¿ëÀ» Recordset ¿ÀºêÁ§Æ®¿¡ º¸Á¸ ó¸®ÇÑ´Ù£®ValuesÀμö´Â ÇʵåÀÇ µ¥ÀÌÅÍ ÇüŰ¡ ÅØ½ºÆ® ÇüÅÂÀÇ °æ¿ì´Â ´ëÀÔ ÇÏ´Â °ªÀ» Double Quatation£¨"£©ÀÌ°í £¬³¯Â¥ ½Ã°¢ÇüÀÇ °æ¿ì´Â ˜Þ±âÈ££¨£££©À¸·Î ¹­¾î¾ß ÇÑ´Ù£®¼öÄ¡ÇüÀÇ Çʵ忡 ´ëÀÔ ÇÏ´Â °æ¿ì¿¡´Â ±×´ë·Î °ªÀ» ±â¼úÇÑ´Ù£®
¡¼¿¹¡½
¡¡¡¡ RS.Update "¼º¸í", "È«±æµ¿¡¡ÀÌÄ¡·Î"
¡¡¡¡ RS.Update "Á¡¼ö", 100¡¡
¡¡¡¡ RS.Update "ÀÔÇÐ ÀÏ", #04/05/21#
  • ¸ðµç ·¹Äڵ带 ÆíÁý
¡¼»ç¿ë ¿¹¡½
¡¡¡¡¡¡Public Sub Exsample()
  ¡¡¡¡¡¡  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
   ¡¡¡¡¡¡   RS.Update "º¸È£ÀÚ ¼º¸í", RS!º¸È£ÀÚ ¼º¸í & " ¸ð¾ç"
    ¡¡¡¡¡¡  RS.MoveNext
  ¡¡¡¡¡¡  Loop
   ¡¡¡¡¡¡
 ¡¡¡¡¡¡   'Á¾·á
  ¡¡¡¡¡¡  RS.Close:  Set RS = Nothing
  ¡¡¡¡¡¡  CN.Close:  Set CN = Nothing
¡¡¡¡¡¡End Sub
  • ƯÁ¤ÀÇ ·¹Äڵ常À» ÆíÁý
¡¼»ç¿ë ¿¹¡½
¡¡¡¡¡¡Public Sub Exsamplet()
       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
         If RS!Ŭ·¡½º = "TS" Then
           RS.Update "º¸È£ÀÚ ¼º¸í", RS!º¸È£ÀÚ ¼º¸í & " ¸ð¾ç"
         Else
          '
         End If
         RS.MoveNext
       Loop
     
       'Á¾·á
        RS.Close:  Set RS = Nothing
       CN.Close:  Set CN = Nothing
   End Sub
  • º¹¼öÀÇ Çʵ带 ÆíÁýÇÑ´Ù
¡¡º¹¼öÀÇ Çʵ带 ÆíÁýÇÏ´Â µ¥´Â ´ÙÀ½ÀÇ µÎ ¹æ¹ýÀÌ ÀÖ´Ù£®

¡áÆíÁýÇÏ´Â ÇʵåÀÇ ¼ö¸¸ Update ¹æ¹ýÀ» ½ÇÇà

¡¼¿¹¡½£³ÀÇ Çʵ带 ÆíÁýÇÑ´Ù
¡¡¡¡¡¡RS.Update "¼º¸í", "È«±æµ¿¡¡ÀÌÄ¡·Î"
    ¡¡RS.Update "Ŭ·¡½º", "TS"
¡¡    RS.Update "ÀÔÇÐ ÀÏ", #04/05/12#
¡áÇʵ忡 °ªÀ» ´ëÀÔ ÇÑ µÚ¿¡ Update ¹æ¹ýÀ» ½ÇÇà
¡¼¿¹¡½£³ÀÇ Çʵ带 ÆíÁýÇÑ´Ù
¡¡¡¡¡¡RS!¼º¸í = "È«±æµ¿¡¡ÀÌÄ¡·Î"
    ¡¡RS!Ŭ·¡½º =  "TS"
¡¡    RS!ÀÔÇÐ ÀÏ = #04/05/12#
      RS.Update