Access #M016 ≪ADOã¨DAOを使用ã—ãŸãƒˆãƒ©ãƒ³ã‚¶ã‚¯ã‚·ãƒ§ãƒ³ã€ŠRecordset》≫Module ADOã¨DAOを使用ã—ãŸãƒˆãƒ©ãƒ³ã‚¶ã‚¯ã‚·ãƒ§ãƒ³ 《Recordset》　(Access2000,Access2002) Accessã§è¤‡æ•°ã®ãƒ†ãƒ¼ãƒ–ルã«ã¾ãŸãŒã‚‹æ›´æ–°å‡¦ç†ã‚’ã™ã‚‹å ´åˆã€ãƒˆãƒ©ãƒ³ã‚¶ã‚¯ã‚·ãƒ§ãƒ³ã‚’使用ã™ã‚‹ã¨ä¾¿åˆ©ã§ã™ã€‚ ã“ã‚Œã¯ã€ä¸€æ—¦å…¨ã¦ã®æ›´æ–°ä½œæ¥ã‚’完了ã—〠ãã®å¾Œã®åˆ¤å®šã§ã€å®Ÿéš›ã®æ›´æ–°ã‚’åæ˜ ã•ã›ã‚‹ã‹å…ƒã«æˆ»ã™ã‹ã‚’決定ã—ã¾ã™ã€‚ ãã®çµæžœä¸€é€£ã®ä½œæ¥ã«ã‚ˆã‚‹ã€ãƒ‡ãƒ¼ã‚¿ã®æ•´åˆæ€§ãŒç¢ºä¿ã•ã‚Œã¾ã™ã€‚ 以下㯠Recordset ã«å¯¾ã—ã¦ã®ãƒˆãƒ©ãƒ³ã‚¶ã‚¯ã‚·ãƒ§ãƒ³ã®ä½¿ç”¨ä¾‹ã§ã™ã€‚ Sub ADOTrans() 'ADOを使用ã—ãŸãƒˆãƒ©ãƒ³ã‚¶ã‚¯ã‚·ãƒ§ãƒ³ '2001/11/07　pPoy Dim cnn As ADODB.Connection Dim rst1 As New ADODB.Recordset Dim rst2 As New ADODB.Recordset Dim cnt As Integer
{{#tags}}- {{label}}
{{/tags}}