ADO AddNew, ¾÷µ¥ÀÌÆ®, »èÁ¦, ã±â ¹× ÇÊÅÍ µ¥¸ð ¹æ¹ý

±â¼ú ÀÚ·á: 193946 - ÀÌ ¹®¼­°¡ Àû¿ëµÇ´Â Á¦Ç° º¸±â.
¸ðµÎ È®´ë | ¸ðµÎ Ãà¼Ò

ÀÌ ÆäÀÌÁö¿¡¼­

¿ä¾à

ADO (ActiveX µ¥ÀÌÅÍ °³Ã¼) FoxPro ¾ð¾î·Î ãÀ» °Í°ú ºñ½ÁÇÑ ·¹ÄÚµå Á¶ÀÛ ¸í·ÉÀ» ±¸ÇöÇÕ´Ï´Ù.

AddNew ¸Þ¼­µå¸¦ »õ ºó ·¹ÄÚµå·Î ÇöÀç ·¹ÄÚµå ÁýÇÕÀÇ ³¡¿¡ Ãß°¡µË´Ï´Ù. Update ¸Þ¼­µå¸¦ »ç¿ëÇÏ¿© ·¹ÄÚµå ÁýÇÕ¿¡ µ¥ÀÌÅ͸¦ ¾¹´Ï´Ù. ÇØ´ç Delete ¸Þ¼­µå¸¦ »ç¿ëÇÏ¿© ÇöÀç ·¹Äڵ尡 ·¹ÄÚµå ÁýÇÕ¿¡¼­ Á¦°ÅÇÕ´Ï´Ù.

ã±â ¹× ÇÊÅÍ ¸Þ¼­µå¸¦ Recordset ƯÁ¤ ÇÊµå °ªÀ» °Ë»öÇÒ ¼ö ÀÖ½À´Ï´Ù. º¹ÇÕ ½ÄÀº µÎ ¸Þ¼­µå ¸ðµÎ Áö¿øÇÕ´Ï´Ù.

Ãß°¡ Á¤º¸

´ÙÀ½ ¿¹Á¦¿¡¼­´Â SQL Server PUBS ¿¹Á¦ µ¥ÀÌÅͺ£À̽ºÀÇ Ã¥ÀÓµµ Å×ÀÌºí¿¡¼­ ·¹Äڵ带 ÀνºÅϽºÈ­ÇÕ´Ï´Ù. ÀÌ ¿¹Á¦¿¡¼­´Â ·¹ÄÚµå ÁýÇÕ¿¡ »õ ·¹Äڵ带 Ãß°¡ÇÏ´Â AddNew ¹× Update ¸Þ¼­µå¸¦ º¸¿©, Find ¸Þ¼­µå¸¦ »ç¿ëÇÏ¿© »õ ·¹ÄÚµå ¹× »õ ·¹Äڵ带 Á¦°ÅÇÏ·Á¸é Delete ¸Þ¼­µå¸¦ ã½À´Ï´Ù. ±× ´ÙÀ½ µ¿ÀÏÇÑ ·¹Äڵ带 ´Ù½Ã Ãß°¡Çϰí Filter ¼Ó¼ºÀ» »ç¿ëÇÏ¿© ãÀº ·¹Äڵ带 Á¦°ÅÇÕ´Ï´Ù.

Âü°í: SQL Server ¼³Ä¡¸¦ Recordset.Open ¸Þ¼­µå¿¡¼­ ÀûÀýÇÑ SERVER, UID ¹× PWD ¸Å°³ ´ëüÇϽʽÿÀ.

ÀÌ ¿¹Á¦¸¦ »ç¿ëÇÏ·Á¸é »ç¿ëÀÚ°¡ Microsoft µ¥ÀÌÅÍ ¾×¼¼½º ±¸¼º ¿ä¼Ò (MDAC) ¹öÀü 2.x ¶Ç´Â ¼³Ä¡µÇ¾î ÀÖ¾î¾ß ÇÕ´Ï´Ù ³ªÁß¿¡, Visual Studio 6.0 µ¥ÀÌÅÍ ±¸¼º ¿ä¼Ò°¡ Æ÷ÇÔµÈ ¶Ç´Â ´ÙÀ½ À¥ ÁÖ¼Ò¿¡¼­ ´Ù¿î·ÎµåÇÒ ¼ö ÀÖ½À´Ï´Ù.
http://msdn.microsoft.com/en-us/data/aa937729.aspx

¿¹Á¦ ÄÚµå

* Demonstrate the ADO AddNew, Update, Find,
   * Filter and Delete functions.

   #DEFINE adOpenDynamic 2
   #DEFINE adLockOptimistic 3
   oRecordSet = CREATEOBJECT("ADODB.Recordset")

   * SQL Server driver defaults to server-side cursor,
   * this would otherwise be necessary to use adOpenDynamic.
   oRecordSet.OPEN("select * from authors", ;
      "DRIVER={SQL Server};"+;
      "SERVER=YourServerName;"+;
      "DATABASE=pubs;"+;
      "UID=YourUserName;"+;
      "PWD=YourPassword",;
      adOpenDynamic, adLockOptimistic)

   =AddRec()
   * Now the record is added - find it and delete it.
   oRecordSet.FIND("au_id = '987-65-4321'")
   IF NOT oRecordSet.EOF
      oRecordSet.DELETE
      =MESSAGEBOX("Record deleted")
   ENDIF

   * Remove comment to display the AU_IDs in the RecordSet.
   * =ShowRS()

   * Add it again, this time, use a compound Filter to find
   * and delete it.
   =AddRec()
   oRecordSet.FILTER = ("au_id = '987-65-4321' and au_lname = 'Smith'")
   IF NOT oRecordSet.EOF
      oRecordSet.DELETE
      =MESSAGEBOX("Record deleted")
   ENDIF

   * Remove comment to display the AU_IDs in the RecordSet
   * =ShowRS()

   * Remove the filter.
   oRecordSet.FILTER = ""

   * Function ShowRS:
   * Display all the au_ids in the RecordSet.
   FUNCTION ShowRs

   CLEAR
   oRecordSet.MoveFirst
   ? oRecordSet.RecordCount
   * print the au_id field values
   DO WHILE ! oRecordSet.EOF
      ?oRecordSet.FIELDS("au_id").VALUE
   oRecordSet.MoveNext
   ENDDO


   * Function AddRec:
   * Add a new record to the authors table.
   FUNCTION AddRec

   oRecordSet.AddNew
   oRecordSet.FIELDS("au_id")= '987-65-4321'
   oRecordSet.FIELDS("au_lname") = "Smith"
   oRecordSet.FIELDS("au_fname") = "John"
   oRecordSet.FIELDS("phone") = 9999999999
   oRecordSet.FIELDS("address") = "123 4th Street"
   oRecordSet.FIELDS("city") = "New York"
   oRecordSet.FIELDS("state") = "NY"
   oRecordSet.FIELDS("zip") = "99999"
   oRecordSet.FIELDS("contract") = .T.
   oRecordSet.UPDATE
   =MESSAGEBOX("Record added")
				

¼Ó¼º

±â¼ú ÀÚ·á: 193946 - ¸¶Áö¸· °ËÅä: 2004³â 7¿ù 1ÀÏ ¸ñ¿äÀÏ - ¼öÁ¤: 4.3
º» ¹®¼­ÀÇ Á¤º¸´Â ´ÙÀ½ÀÇ Á¦Ç°¿¡ Àû¿ëµË´Ï´Ù.
  • Microsoft Visual FoxPro 6.0 Professional Edition
  • Microsoft Data Access Components 2.1 ¼­ºñ½º ÆÑ 2
  • Microsoft Data Access Components 2.5
  • Microsoft Data Access Components 2.6
Ű¿öµå:?
kbmt kbctrl kbdatabase kbhowto kbsqlprog KB193946 KbMtko
±â°è ¹ø¿ªµÈ ¹®¼­
Áß¿ä: º» ¹®¼­´Â Àü¹® ¹ø¿ª°¡°¡ ¹ø¿ªÇÑ °ÍÀÌ ¾Æ´Ï¶ó Microsoft ±â°è ¹ø¿ª ¼ÒÇÁÆ®¿þ¾î·Î ¹ø¿ªÇÑ °ÍÀÔ´Ï´Ù. Microsoft´Â ¹ø¿ª°¡°¡ ¹ø¿ªÇÑ ¹®¼­ ¹× ±â°è ¹ø¿ªµÈ ¹®¼­¸¦ ¸ðµÎ Á¦°øÇϹǷΠMicrosoft ±â¼ú ÀÚ·á¿¡ ÀÖ´Â ¸ðµç ¹®¼­¸¦ Çѱ۷ΠÁ¢ÇÒ ¼ö ÀÖ½À´Ï´Ù. ±×·¯³ª ±â°è ¹ø¿ª ¹®¼­°¡ Ç×»ó ¿Ïº®ÇÑ °ÍÀº ¾Æ´Õ´Ï´Ù. µû¶ó¼­ ±â°è ¹ø¿ª ¹®¼­¿¡´Â ¸¶Ä¡ ¿Ü±¹ÀÎÀÌ Çѱ¹¾î·Î ¸»ÇÒ ¶§ ½Ç¼ö¸¦ ÇÏ´Â °Íó·³ ¾îÈÖ, ±¸¹® ¶Ç´Â ¹®¹ý¿¡ ¿À·ù°¡ ÀÖÀ» ¼ö ÀÖ½À´Ï´Ù. Microsoft´Â ³»¿ë»óÀÇ ¿À¿ª ¶Ç´Â Microsoft °í°´ÀÌ ÀÌ·¯ÇÑ ¿À¿ªÀ» »ç¿ëÇÔÀ¸·Î½á ¹ß»ýÇÏ´Â ºÎ Á¤È®¼º, ¿À·ù ¶Ç´Â ¼ÕÇØ¿¡ ´ëÇØ Ã¥ÀÓÀ» ÁöÁö ¾Ê½À´Ï´Ù. Microsoft´Â ÀÌ·¯ÇÑ ¹®Á¦¸¦ ÇØ°áÇϱâ À§ÇØ ±â°è ¹ø¿ª ¼ÒÇÁÆ®¿þ¾î¸¦ ÀÚÁÖ ¾÷µ¥ÀÌÆ®Çϰí ÀÖ½À´Ï´Ù.

Çǵå¹é º¸³»±â