£±.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
|