Microsoft Windows 2000¿¡¼ COM ½ÇÇà ½Ã°£ + ¿¡ ¼³Ä¡µÈ °¢ µ¿Àû ¿¬°á ¶óÀ̺귯¸® (DLL) ±¸¼º ¿ä¼Ò¿¡ ´ëÇÑ °íÀ¯ÇÑ °³Ã¼ »ý¼ºÀÚ ¹®ÀÚ¿À» ±¸¼ºÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ »ý¼ºÀÚ´Â ¹®ÀÚ¿Àº ÀϹÝÀûÀ¸·Î ±¸¼º ¿ä¼Ò°¡ ¸ðµç °³Ã¼ ÀνºÅϽº¿¡ ¾×¼¼½ºÇÒ ¼ö ÀÖ¾î¾ß ÃʱâÈ ¹®ÀÚ¿À» ÁöÁ¤ÇÏ´Â µ¥ »ç¿ëµË´Ï´Ù. ÀÌ ¹®¼¿¡¼´Â ±¸¼º ¿ä¼ÒÀÇ °³Ã¼ ÀνºÅϽº¸¦ »ç¿ëÇÒ ¼ö ÀÖ´Â Visual Basic ±¸¼º ¿ä¼Ò COM + °³Ã¼ »ý¼ºÀÚ ¹®ÀÚ¿À» ±¸¼ºÇÏ´Â ¹æ¹ýÀ» º¸¿© ÁÖ´Â ÄÚµå ¿¹Á¦µµ°¡ Æ÷ÇԵ˴ϴÙ.
»ý¼ºÀÚ ¹®ÀÚ¿Àº ÀϹÝÀûÀ¸·Î ±¸¼º ¿ä¼ÒÀÇ °³Ã¼ ÀνºÅϽº¸¦ »ç¿ëÇÏ¿© µ¥ÀÌÅͺ£À̽º¿¡ ¿¬°áÇÒ µ¥ÀÌÅͺ£À̽º ¿¬°á ¹®ÀÚ¿À» ÁöÁ¤ÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ ¸ñÀûÀ» À§ÇØ »ý¼ºÀÚ ¹®ÀÚ¿À» »ç¿ëÇÏ¿© ÀÌÁ¡ÀÌ ±¸¼º ¿ä¼ÒÀÇ Äڵ忡 Çϵå ÄÚµåµÈ ÁßÀÎ ¿¬°á ¹®ÀÚ¿À» ¹æÁöÇÒ ¼ö ÀÖ½À´Ï´Ù. µ¥ÀÌÅͺ£À̽º ¼¹öÀÇ À̸§À» º¯°æÇÏ·Á¸é ´Ù¸¥ µ¥ÀÌÅͺ£À̽º¸¦ °¡¸®Å°µµ·Ï ¶Ç´Â ´Ù¸¥ ¼öÁ¤ ±¸ÇöÇÏ´Â ±¸¼º ¿ä¼ÒÀÇ COM + °³Ã¼ »ý¼ºÀÚ´Â ¼öÁ¤ÇØ¾ß ÇÒ ¾ÊÀ¸¹Ç·Î ´õ ÀÌ»ó ±¸¼º ¿ä¼ÒÀÇ Äڵ带 º¯°æÇÏ°í ½ÇÁ¦ DLLÀ» ´Ù½Ã ÄÄÆÄÀÏÇØ¾ß ÇÕ´Ï´Ù. µ¥ÀÌÅͺ£À̽º ¿¬°á Á¤º¸¸¦ ÀúÀåÇÏ´Â °Í ¿Ü¿¡µµ COM + °³Ã¼ »ý¼ºÀÚ ¹®ÀÚ¿¿¡ ´ëÇØ ±¸¼ºµÈ ±¸¼º ¿ä¼Ò ¸ðµç °³Ã¼ ÀνºÅϽº¿¡ ¾×¼¼½ºÇÒ ¼ö ÀÖµµ·Ï ÇÏ´Â ÃʱâÈ ¹®ÀÚ¿À» ÁöÁ¤ÇÏ·Á¸é ¼öµµ ÀÖ½À´Ï´Ù.
COM + °³Ã¼ »ý¼ºÀÚ ¹®ÀÚ¿ ±¸¼ºÇÏ´Â ¹æ¹ý
Visual Basic ±¸¼º ¿ä¼Ò¸¦ ÇØ´ç °³Ã¼ ÀνºÅϽº¿¡ ´ëÇØ ±¸¼ºµÈ COM + °³Ã¼ »ý¼ºÀÚ ¹®ÀÚ¿À» ¾×¼¼½ºÇÒ ¼ö ÀÖµµ·Ï
IObjectConstruct COM + ÀÎÅÍÆäÀ̽º¸¦ ±¸ÇöÇØ¾ß ÇÕ´Ï´Ù.
IObjectConstruct ±¸¼º ¿ä¼ÒÀÇ °³Ã¼ ÀνºÅϽº¸¦ ¸¸µé ¶§ ¹ß»ýÇÏ´Â À̺¥Æ®ÀÇ »ý¼º (
IObjectConstruct_Construct) ¶ó´Â ´ÜÀÏ ¸Þ¼µå¸¦ ³ëÃâÇÕ´Ï´Ù. ±¸¼ºµÈ COM + °³Ã¼ »ý¼ºÀÚ ¹®ÀÚ¿À» ¾òÀ¸·Á¸é ÀÌ ¸Þ¼µå¿¡ ¸Å°³ º¯¼ö·Î Àü´ÞµÈ »ý¼ºÀÚ °³Ã¼¸¦ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ ±â´ÉÀÇ ¹æ¹ýÀ» º¸¿© ÁÖ´Â »ùÇÃÀ» ±¸ÇöÇÏ·Á¸é ´ÙÀ½°ú °°ÀÌ ÇϽʽÿÀ.
- Visual Basic¿¡¼ »õ ActiveX DLL ÇÁ·ÎÁ§Æ®¸¦ ¿±´Ï´Ù.
- "prjConstruct" ÇÁ·ÎÁ§Æ®¸¦ À̸§À» ¹Ù²ß´Ï´Ù.
- "clsConstruct" Ŭ·¡½º ¸ðµâÀ» À̸§À» ¹Ù²ß´Ï´Ù.
- COM + ¼ºñ½º ¶óÀ̺귯¸® ¹× ActiveX µ¥ÀÌÅÍ °³Ã¼ 2.5 ¶óÀ̺귯¸®¿¡ ´ëÇÑ ÇÁ·ÎÁ§Æ® ÂüÁ¶¸¦ ¼³Á¤ÇϽʽÿÀ.
- ´ÙÀ½ Äڵ带 Ŭ·¡½º ¸ðµâ¿¡ ºÙ¿© ³ÖÀ»:
'General Declarations Section
Implements IObjectConstruct
Dim connstr As String
Private Sub IObjectConstruct_Construct(ByVal pCtorObj As Object)
Dim mConstructString As IObjectConstructString
Set mConstructString = pCtorObj
connstr = mConstructString.ConstructString
End Sub
Public Function GetAuthors() As ADODB.Recordset
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open connstr
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "Select * from Authors", cn, adOpenStatic, adLockBatchOptimistic
Set rs.ActiveConnection = Nothing
Set GetAuthors = rs
GetObjectContext.SetComplete
End Function
ÀÌ ÄÚµå ¿¹Á¦¿¡¼´Â COM + °³Ã¼ »ý¼ºÀÚ ¹®ÀÚ¿À» ¾×¼¼½ºÇÏ·Á¸é IObjectConstruct_Construct ±¸ÇöÇÏ´Â ¹æ¹ýÀ» º¸¿© ÁÝ´Ï´Ù. °³Ã¼ ¸¸µé±â ¸Å°³ IObjectConstructString ÀÎÅÍÆäÀ̽º·Î ij½ºÆÃÇØ¾ß ÇÕ´Ï´Ù. IObjectConstructStringConstructString COM + °³Ã¼ »ý¼ºÀÚ ¹®ÀÚ¿¿¡ ¾×¼¼½ºÇÏ´Â µ¥ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù ¶ó´Â ´ÜÀÏ ¼Ó¼ºÀ» ³ëÃâÇÕ´Ï´Ù. »ý¼ºÀÚ ¹®ÀÚ¿À» Àü¿ª º¯¼ö¿¡ ÇÒ´çµÈ ¹× GetAuthors ÇÔ¼ö¸¦ ´Ù½Ã È®ÀÎÇϽʽÿÀ. - DLLÀ» ÄÄÆÄÀÏÇϽʽÿÀ. prjConstruct.clsConstruct ±¸¼º ¿ä¼Ò¸¦ È£½ºÆ®ÇÏ´Â COM + ¼¹ö ÀÀ¿ë ÇÁ·Î±×·¥À» ¸¸µé·Á¸é ´ÙÀ½°ú °°ÀÌ ÇϽʽÿÀ.
- Á¦¾îÆÇ ¿¡¼ °ü¸® µµ±¸ °¡¸®Å² ´ÙÀ½ ±¸¼º ¿ä¼Ò ¼ºñ½º Microsoft °ü¸® ÄܼÖ(MMC) ½º³ÀÀÎÀ» ¿·Á¸é ±¸¼º ¿ä¼Ò ¼ºñ½º Ŭ¸¯ÇϽʽÿÀ.
- ±¸¼º ¿ä¼Ò ¼ºñ½º, ÄÄÇ»ÅÍ, ³» ÄÄÇ»ÅÍ ¹× COM + ÀÀ¿ë ÇÁ·Î±×·¥ ³ëµå¸¦ Â÷·Ê·Î ´·¯ È®ÀåÇÕ´Ï´Ù. COM + ÀÀ¿ë ÇÁ·Î±×·¥ À» Ŭ¸¯ÇϽʽÿÀ.
- COM + ÀÀ¿ë ÇÁ·Î±×·¥À» ¸¶¿ì½º ¿À¸¥ÂÊ ´ÜÃ߷ΠŬ¸¯ÇÏ°í »õ·Î ¸¸µé±â¸¦ °¡¸®Å² ´ÙÀ½ ÀÀ¿ë ÇÁ·Î±×·¥ À» ´©¸¨´Ï´Ù.
- VBComPlusTest, À̸§ÀÌ ºó ¼¹ö ÂÊ ÀÀ¿ë ÇÁ·Î±×·¥À» ¸¸µé°í ´ëÈÇü »ç¿ëÀÚÀÇ ÀÚ°Ý Áõ¸íÀ» »ç¿ëÇÏ·Á¸é ÇØ´ç ID ¼Ó¼ºÀ» ¼³Á¤ÇϽʽÿÀ.
- ¸¶¹ý»ç¸¦ ¿Ï·áÇÑ ´ÙÀ½ ¸¶Ä§ À» Ŭ¸¯ÇϽʽÿÀ. prjConstruct.clsConstruct Visual Basic ±¸¼º ¿ä¼Ò¸¦ È£½ºÆÃÇÏ´Â µ¥ »ç¿ëµÇ´Â »ùÇà COM + ÀÀ¿ë ÇÁ·Î±×·¥À» ¸¸µì´Ï´Ù.
- "VBComPlusTest" COM + ÀÀ¿ë ÇÁ·Î±×·¥ prjConstruct.clsConstruct ±¸¼º ¿ä¼Ò¸¦ ¼³Ä¡ÇÏ·Á¸é ´ÙÀ½°ú °°ÀÌ ÇϽʽÿÀ.
- ±¸¼º ¿ä¼Ò ¼ºñ½º MMC ½º³ÀÀο¡¼ VBComPlusTest ³ëµå¸¦ ´·¯ È®ÀåÇÕ´Ï´Ù. ±¸¼º ¿ä¼Ò ÇÏÀ§ Æú´õ¸¦ Ŭ¸¯ÇϽʽÿÀ.
- ±¸¼º ¿ä¼Ò ¸¶¿ì½º ¿À¸¥ÂÊ ´ÜÃ߷ΠŬ¸¯ÇÏ°í »õ·Î ¸¸µé±â¸¦ °¡¸®Å² ´ÙÀ½ ±¸¼º ¿ä¼Ò ¸¦ Ŭ¸¯ÇϽʽÿÀ.
- COM ±¸¼º ¿ä¼Ò ¼³Ä¡ ¸¶¹ý»ç¿¡¼ ´ÙÀ½ À» »õ ±¸¼º ¿ä¼Ò¸¦ ¼³Ä¡ ¸¦ ¹× prjConstruct.dll, ¼±ÅÃÇϰí À» Ŭ¸¯ÇϽʽÿÀ.
- ¸¶¹ý»ç¸¦ ¿Ï·áÇÑ ´ÙÀ½ ¸¶Ä§ À» Ŭ¸¯ÇϽʽÿÀ.
- Visual Basic ±¸¼º ¿ä¼Ò prjConstruct.clsConstruct ¼Ó¼º âÀ» ¿±´Ï´Ù.
- ÀÎÁõ ÅÇ¿¡¼ »ç¿ë °³Ã¼ »ý¼º È®ÀζõÀ» ¼±ÅÃÇϽʽÿÀ.
- »ý¼ºÀÚ ¹®ÀÚ¿ »óÀÚ¿¡ ´ÙÀ½°ú °°Àº ADO ¿¬°á ¹®ÀÚ¿À» ÁöÁ¤Çϰí È®ÀÎ À» Ŭ¸¯ÇϽʽÿÀ.
Âü°í: ÀÌ »ùÇÿ¡¼´Â Microsoft SQL Server PUBS ¿¹Á¦ µ¥ÀÌÅͺ£À̽º¸¦ »ç¿ëÇÕ´Ï´Ù.
"Provider=SQLOLEDB;Data Source=<Your SQL Server>;Initial Catalog=pubs;" & _
"User Id=<User Id>;Password=<Password>"
COM + °³Ã¼ »ý¼ºÀÚ ¹®ÀÚ¿ »ç¿ë ¹æ¹ý
- Visual Basic COM + ±¸¼º ¿ä¼Ò¸¦ Å×½ºÆ®ÇÏ·Á¸é Visual Basic¿¡¼ »õ Ç¥ÁØ EXE ÇÁ·ÎÁ§Æ®¸¦ ¿±´Ï´Ù. ±âº»ÀûÀ¸·Î Form1ÀÌ ¸¸µé¾îÁý´Ï´Ù.
- ¸ñ·Ï »óÀÚ (List1ÀÔ´Ï´Ù) ¹× (Command1) ¸í·É ´ÜÃ߸¦ Form1¿¡ Ãß°¡ÇϽʽÿÀ.
- Command1 Click À̺¥Æ®¿¡ ´ÙÀ½ Äڵ带 ºÙ¿© ³Ö½À´Ï´Ù.
Dim obj As Object
Dim rs As Object
Set obj = CreateObject("prjConstruct.clsConstruct")
Set rs = obj.GetAuthors()
Do While Not rs.EOF
List1.AddItem rs.fields("au_fname")
rs.movenext
Loop
Set obj = Nothing
- Ç¥ÁØ EXE ÇÁ·ÎÁ§Æ®¸¦ ÀúÀåÇϰí À̸¦ ½ÇÇàÇϽʽÿÀ.
- Authors Å×ÀÌºí¿¡ ÀÖ´Â ¸ðµç ÀúÀÚÀÇ À̸§À» °¡Áø ¸ñ·Ï »óÀÚ¸¦ ä¿ì·Á¸é Command1 Ŭ¸¯ÇϽʽÿÀ.
COM + °³Ã¼ »ý¼ºÀÚ ¹®ÀÚ¿ÀÇ À¯¿ë¼ºÀ» º¸¿© ÁÖ±â À§ÇØ »ý¼ºÀÚ ¹®ÀÚ¿¿¡ ÀÖ´Â ´Ù¸¥ SQL ¶ÇÇÑ PUBS ¿¹Á¦ µ¥ÀÌÅͺ£À̽º¸¦ °¡Áø ¼¹ö¸¦ °¡¸®Å°µµ·Ï
DataSource ¼Ó¼ºÀ» º¯°æÇϽʽÿÀ. Ŭ¶óÀÌ¾ðÆ® Äڵ带 ½ÇÇàÇÒ ¶§ »õ µ¥ÀÌÅÍ ¿øº»ÀÇ ·¹ÄÚµå´Â °Ë»öÇÒ Ç¥½ÃÇϰí ÀÖ½À´Ï´Ù. À̸¦ È®ÀÎÇÏ·Á¸é µÎ ¹øÂ° SQL Server PUBS µ¥ÀÌÅͺ£À̽ºÀÇ Authors Å×ÀÌºí¿¡ »õ ·¹Äڵ带 Ãß°¡ÇϽʽÿÀ.
±â¼ú ÀÚ·á: 271284 - ¸¶Áö¸· °ËÅä: 2004³â 6¿ù 29ÀÏ È¿äÀÏ - ¼öÁ¤: 1.2
º» ¹®¼ÀÇ Á¤º¸´Â ´ÙÀ½ÀÇ Á¦Ç°¿¡ Àû¿ëµË´Ï´Ù.
- Microsoft Visual Basic 5.0 Professional Edition
- Microsoft Visual Basic 6.0 Professional Edition
- Microsoft Visual Basic 5.0 Enterprise Edition
- Microsoft Visual Basic Enterprise Edition for Windows 6.0
| kbmt kbhowto kbmdacnosweep KB271284 KbMtko |
±â°è ¹ø¿ªµÈ ¹®¼Áß¿ä: º» ¹®¼´Â Àü¹® ¹ø¿ª°¡°¡ ¹ø¿ªÇÑ °ÍÀÌ ¾Æ´Ï¶ó Microsoft ±â°è ¹ø¿ª ¼ÒÇÁÆ®¿þ¾î·Î ¹ø¿ªÇÑ °ÍÀÔ´Ï´Ù. Microsoft´Â ¹ø¿ª°¡°¡ ¹ø¿ªÇÑ ¹®¼ ¹× ±â°è ¹ø¿ªµÈ ¹®¼¸¦ ¸ðµÎ Á¦°øÇϹǷΠMicrosoft ±â¼ú ÀÚ·á¿¡ ÀÖ´Â ¸ðµç ¹®¼¸¦ Çѱ۷ΠÁ¢ÇÒ ¼ö ÀÖ½À´Ï´Ù. ±×·¯³ª ±â°è ¹ø¿ª ¹®¼°¡ Ç×»ó ¿Ïº®ÇÑ °ÍÀº ¾Æ´Õ´Ï´Ù. µû¶ó¼ ±â°è ¹ø¿ª ¹®¼¿¡´Â ¸¶Ä¡ ¿Ü±¹ÀÎÀÌ Çѱ¹¾î·Î ¸»ÇÒ ¶§ ½Ç¼ö¸¦ ÇÏ´Â °Íó·³ ¾îÈÖ, ±¸¹® ¶Ç´Â ¹®¹ý¿¡ ¿À·ù°¡ ÀÖÀ» ¼ö ÀÖ½À´Ï´Ù. Microsoft´Â ³»¿ë»óÀÇ ¿À¿ª ¶Ç´Â Microsoft °í°´ÀÌ ÀÌ·¯ÇÑ ¿À¿ªÀ» »ç¿ëÇÔÀ¸·Î½á ¹ß»ýÇÏ´Â ºÎ Á¤È®¼º, ¿À·ù ¶Ç´Â ¼ÕÇØ¿¡ ´ëÇØ Ã¥ÀÓÀ» ÁöÁö ¾Ê½À´Ï´Ù. Microsoft´Â ÀÌ·¯ÇÑ ¹®Á¦¸¦ ÇØ°áÇϱâ À§ÇØ ±â°è ¹ø¿ª ¼ÒÇÁÆ®¿þ¾î¸¦ ÀÚÁÖ ¾÷µ¥ÀÌÆ®Çϰí ÀÖ½À´Ï´Ù.