请教ado cao方面问题

sv300

我在arx中用ado 出错，哪位有ado cao 方面的开发例子

XDSoft

最初由 sv300 发布
[B]我在arx中用ado 出错，哪位有ado cao 方面的开发例子 [/B]

把代码贴到论坛来吧，大家一起摸索下。

masterhe

最初由 sv300 发布
[B]我在arx中用ado 出错，哪位有ado cao 方面的开发例子 [/B]

我的意见是建议你不要用CAO，AutoDESK的数据库引擎总在变。其实使用ADO就可以很好的解决问题，而且可移植性也高。

rave

最初由 sv300 发布
我在arx中用ado 出错，哪位有ado cao 方面的开发例子

给你一段代码

1. 
   
2. // db.cpp
   
3. // 仅可用于XXXXX系统的数据库操作函数集, by XXXX [2002年九月], GIS, XXX
   
4. #include "StdAfx.h"
   
5. #include "StdArx.h"
   
6. 
   
7. extern HINSTANCE _hdllInstance;
   
8. _ConnectionPtr m_pConnection;
   
9. CString arxPath;
   
10. 
    
11. BOOL ConnectDB(){
    
12.         char fn[256], *p;
    
13.         CString strConn;
    
14.         BSTR bstrCONN;
    
15.        
    
16.         GetModuleFileName( _hdllInstance, fn, 256 );
    
17.        
    
18.         if( (p=strrchr(fn,'\\'))!=NULL )
    
19.                 *(p+1)='\0';
    
20.         arxPath=fn;
    
21.        
    
22.         strcat( fn, "sql.udl" );
    
23.        
    
24.         AfxOleInit();///初始化COM库
    
25.         ////////////连接数据库//////////////
    
26.         HRESULT hr;
    
27.         try{
    
28.                 hr = m_pConnection.CreateInstance("ADODB.Connection");///创建Connection对象
    
29.                 if(SUCCEEDED(hr))
    
30.                 {
    
31.                         strConn.Format("FILE NAME=%s",fn);
    
32.                         bstrCONN=strConn.AllocSysString();
    
33.                         hr = m_pConnection->Open(bstrCONN,"","",adModeUnknown);///连接数据库
    
34.                         SysFreeString(bstrCONN);//感谢 msaterHer
    
35.                 }
    
36.         }
    
37.         catch(_com_error e){
    
38.                 CString errormessage;
    
39.                 errormessage.Format("连接数据库失败!\r\n错误信息:%s",e.ErrorMessage());
    
40.                 AfxMessageBox(errormessage);///显示错误信息
    
41.                 return FALSE;
    
42.         }
    
43.         return TRUE;
    
44. }
    
45. 
    
46. void DisConnectDB(){
    
47.         if(m_pConnection->State)
    
48.                 m_pConnection->Close();
    
49.         m_pConnection=NULL;
    
50. }
    
51. 
    
52. BOOL FoundRec(int MapType,int RecordID)
    
53. {
    
54.         _RecordsetPtr m_pRecordset=NULL;
    
55.         CString strSQL,strTable,strKey;
    
56.         BSTR bstrSQL;
    
57.         int nCount;
    
58.         _variant_t TheValue;
    
59.        
    
60.         if (MapType==0){
    
61.                 strTable="LayerTp";
    
62.                 strKey="CXH";
    
63.         }else{
    
64.                 strTable="RoomTp";
    
65.                 strKey="HXH";
    
66.         }
    
67.        
    
68.         strSQL.Format("select count(*) as CNT from %s where %s = %d",strTable,strKey,RecordID);
    
69.         bstrSQL=strSQL.AllocSysString();
    
70.        
    
71.         try{
    
72.                 m_pRecordset.CreateInstance("ADODB.Recordset");
    
73.                 m_pRecordset->Open(bstrSQL,(IDispatch*)m_pConnection,adOpenDynamic,adLockOptimistic,adCmdText);
    
74.                 TheValue=m_pRecordset->GetCollect("CNT");
    
75.                 if(TheValue.vt!=VT_NULL)
    
76.                         nCount=TheValue.intVal;
    
77.                 m_pRecordset->Close();
    
78.                 m_pRecordset=NULL;
    
79.         }
    
80.         catch(_com_error e)
    
81.         {
    
82.                 AfxMessageBox(e.ErrorMessage());
    
83.                 SysFreeString(bstrSQL);
    
84.                 return FALSE;
    
85.         }
    
86.         SysFreeString(bstrSQL);
    
87.         if (nCount==1)
    
88.                 return TRUE;
    
89.         else
    
90.                 return FALSE;
    
91. }

复制代码

1. 
   
2. /////////////////////////////////////////////////////////////////////////////
   
3. // ObjectARX EntryPoint
   
4. extern "C" AcRx::AppRetCode
   
5. acrxEntryPoint(AcRx::AppMsgCode msg, void* pkt)
   
6. {
   
7.         switch (msg) {
   
8.         case AcRx::kInitAppMsg:
   
9.                 AfxSetResourceHandle (_hdllInstance) ;
   
10.                 CSplashScreen::EnableSplashScreen (TRUE) ;
    
11.                 CSplashScreen::ShowSplashScreen (acedGetAcadFrame ()) ;
    
12.                 AfxSetResourceHandle (acedGetAcadResourceInstance ()) ;
    
13.                 // Comment out the following line if your
    
14.                 // application should be locked into memory
    
15.                 acrxDynamicLinker->unlockApplication(pkt);
    
16.                 acrxDynamicLinker->registerAppMDIAware(pkt);
    
17.                 [COLOR=crimson][B]if (!ConnectDB()) return AcRx::kRetError;[/B][/COLOR]
    
18.                 InitApplication();
    
19.                 break;
    
20.         case AcRx::kUnloadAppMsg:
    
21.                 [COLOR=crimson][B]DisConnectDB();[/B][/COLOR]
    
22.                 UnloadApplication();
    
23.                 break;
    
24.         }
    
25.         return AcRx::kRetOK;
    
26. }
    

复制代码

masterhe

最初由 rave 发布
[B]

给你一段代码

[code]
// db.cpp
// 仅可用于XXXXX系统的数据库操作函数集, by XXXX [2002年九月], GIS, XX... [/B]

1、有几处内存未释放；
2、这段代码是标准ADO联接的一种方式，在ARX中AfxOleInit用不着
3、BSTR、CString、CHAR*的转换关系可以尽一步更好地处理，这也是造成内存未释放的原因，可以使用comdef.h中的_bstr_t和_variant_t或者CComBSTR和CComVariant

masterhe

提供一个ADO库的完整解决方案，是2.5的。示例见:ADOToolBoxs.h

sv300

谢谢楼上几位
这些都是ado方面的例子，有没有cao方面的呢？
我看到cao有些属性和方法，但是不知道怎么在arx 中应用

XDSoft

最初由 sv300 发布
[B]谢谢楼上几位
这些都是ado方面的例子，有没有cao方面的呢？
我看到cao有些属性和方法，但是不知道怎么在arx 中应用 [/B]

给你贴篇资料，关于CAO技术的介绍：

2. 
   
3. [FONT=courier new]
   
4. Samples and documentation for using CAO from VB and Visual LISP are included
   
5. with AutoCAD 2000, but there is no documentation for CAO from C++.  However, you
   
6. can access the CAO Object Model in C++ just as any other ActiveX interface. This
   
7. solution contains a simple code sample that illustrates how this can be done.  
   
8. 
   
9. CAO is an interface to what were formerly known as ASE links (which still works
   
10. much the same in terms of the AutoCAD drawing database), and it can be used from
    
11. various environments, including C++, VB, VBA and Visual LISP.  But it also
    
12. represents the introduction of OLEDB / ADO within AutoCAD and a new terminology
    
13. scheme, so it qualifies as "new technology".
    
14. 
    
15. In AutoCAD 2000 you can currently do more with the C++ ASE API (for instance,
    
16. create Link Templates) than you can with CAO.  
    
17. 
    
18. Here's the code sample:
    
19. #include "aced.h"
    
20. #include "migrtion.h"
    
21. 
    
22. #import "e:\\acad2000\\acad.tlb" no_namespace no_ \
    
23. implementation raw_interfaces_only named_guids
    
24. 
    
25. void arxtest()
    
26. {
    
27.         IAcadApplication* pAcadApp;
    
28. 
    
29.         HRESULT hr = NOERROR;         
    
30.         CLSID clsid;         
    
31.         LPUNKNOWN pUnk = NULL;
    
32.         LPDISPATCH pDisp = NULL;         
    
33. 
    
34.         CoInitialize(NULL);
    
35.        
    
36.         hr = ::CLSIDFromProgID(L"AutoCAD.Application", &clsid);          
    
37. 
    
38.         if (FAILED(hr))
    
39.         {
    
40.                 ads_alert("Acad.Application is not registered!");
    
41.                 CoUninitialize();
    
42.                 return;
    
43.         }
    
44. 
    
45.         hr = ::GetActiveObject(clsid, NULL, &pUnk);
    
46.         if (SUCCEEDED(hr))
    
47.         {
    
48.                 hr = pUnk->QueryInterface(IID_IDispatch, (LPVOID*)&pDisp);
    
49.                 pUnk->Release();
    
50.                 if (FAILED(hr))
    
51.                 {
    
52.                         CoUninitialize();
    
53.                         return;
    
54.                 }
    
55.                
    
56.                 hr = pDisp->QueryInterface(IID_IAcadApplication,
    
57. (void**)&pAcadApp);
    
58.                 pDisp->Release();
    
59. 
    
60.                 if (SUCCEEDED(hr))
    
61.                 {
    
62.                         LPDISPATCH pCAO = NULL;
    
63.                         hr =
    
64. pAcadApp->GetInterfaceObject(OLESTR("CAO.DbConnect"), &pCAO);
    
65.                         pAcadApp->Release();
    
66. 
    
67.                         if (FAILED(hr))
    
68.                                 ads_printf("\nFailed to get CAO.");
    
69.                         else
    
70.                         {
    
71.                                 ads_printf("\nGot CAO!");
    
72.                                 VARIANT varResult;
    
73.                                 //initialize the variant
    
74.                                 VariantInit(&varResult);
    
75. 
    
76.                                 OLECHAR *szMember = L"Version";
    
77.                                 DISPID dispid;
    
78.                                 DISPPARAMS dispparamsNoArgs = {NULL, NULL, 0,
    
79. 0};
    
80. 
    
81.                                 hr = pCAO->GetIDsOfNames(IID_NULL, &szMember, 1,
    
82.                                         LOCALE_USER_DEFAULT, &dispid);
    
83.                                 hr = pCAO->Invoke(dispid, IID_NULL,
    
84. LOCALE_USER_DEFAULT,
    
85.                                         DISPATCH_PROPERTYGET, &dispparamsNoArgs,
    
86. &varResult, NULL, NULL);
    
87. 
    
88.                                 if (SUCCEEDED(hr))
    
89.                                 {
    
90.                                         BSTR version = V_BSTR(&varResult);
    
91.                                         size_t size = SysStringByteLen(version);
    
92.                                         char* szVersion = new char[size];
    
93.                                         wcstombs(szVersion, version, size);
    
94.                                         ads_printf("\nVersion:        %s", szVersion);
    
95.                                         SysFreeString(version);
    
96.                                         free(szVersion);
    
97.                                 }
    
98.                                 pCAO->Release();
    
99.                         }
    
100.                 }
     
101.         }       
     
102.        
     
103.         CoUninitialize();
     
104. }
     
105. [/FONT]

<br /> [FONT=courier new]<br /> Samples and documentation for using CAO from VB and Visual LISP are included<br /> with AutoCAD 2000, but there is no documentation for CAO from C++.  However, you<br /> can access the CAO Object Model in C++ just as any other ActiveX interface. This<br /> solution contains a simple code sample that illustrates how this can be done.  <br /> <br /> CAO is an interface to what were formerly known as ASE links (which still works<br /> much the same in terms of the AutoCAD drawing database), and it can be used from<br /> various environments, including C++, VB, VBA and Visual LISP.  But it also<br /> represents the introduction of OLEDB / ADO within AutoCAD and a new terminology<br /> scheme, so it qualifies as "new technology".<br /> <br /> In AutoCAD 2000 you can currently do more with the C++ ASE API (for instance,<br /> create Link Templates) than you can with CAO.  <br /> <br /> Here's the code sample:<br /> #include "aced.h"<br /> #include "migrtion.h"<br /> <br /> #import "e:\\acad2000\\acad.tlb" no_namespace no_ \<br /> implementation raw_interfaces_only named_guids<br /> <br /> void arxtest()<br /> {<br />         IAcadApplication* pAcadApp;<br /> <br />         HRESULT hr = NOERROR;         <br />         CLSID clsid;         <br />         LPUNKNOWN pUnk = NULL;<br />         LPDISPATCH pDisp = NULL;         <br /> <br />         CoInitialize(NULL);<br />         <br />         hr = ::CLSIDFromProgID(L"AutoCAD.Application", &clsid);          <br /> <br />         if (FAILED(hr))<br />         {<br />                 ads_alert("Acad.Application is not registered!"); <br />                 CoUninitialize();<br />                 return;<br />         }<br /> <br />         hr = ::GetActiveObject(clsid, NULL, &pUnk);<br />         if (SUCCEEDED(hr))<br />         {<br />                 hr = pUnk->QueryInterface(IID_IDispatch, (LPVOID*)&pDisp);<br />                 pUnk->Release();<br />                 if (FAILED(hr))<br />                 {<br />                         CoUninitialize();<br />                         return;<br />                 }<br />                 <br />                 hr = pDisp->QueryInterface(IID_IAcadApplication,<br /> (void**)&pAcadApp);<br />                 pDisp->Release();<br /> <br />                 if (SUCCEEDED(hr))<br />                 {<br />                         LPDISPATCH pCAO = NULL;<br />                         hr =<br /> pAcadApp->GetInterfaceObject(OLESTR("CAO.DbConnect"), &pCAO);<br />                         pAcadApp->Release();<br /> <br />                         if (FAILED(hr))<br />                                 ads_printf("\nFailed to get CAO.");<br />                         else<br />                         {<br />                                 ads_printf("\nGot CAO!");<br />                                 VARIANT varResult; <br />                                 //initialize the variant<br />                                 VariantInit(&varResult);<br /> <br />                                 OLECHAR *szMember = L"Version";<br />                                 DISPID dispid;<br />                                 DISPPARAMS dispparamsNoArgs = {NULL, NULL, 0,<br /> 0};<br /> <br />                                 hr = pCAO->GetIDsOfNames(IID_NULL, &szMember, 1,<br />                                         LOCALE_USER_DEFAULT, &dispid);<br />                                 hr = pCAO->Invoke(dispid, IID_NULL,<br /> LOCALE_USER_DEFAULT, <br />                                         DISPATCH_PROPERTYGET, &dispparamsNoArgs,<br /> &varResult, NULL, NULL);<br /> <br />                                 if (SUCCEEDED(hr))<br />                                 {<br />                                         BSTR version = V_BSTR(&varResult);<br />                                         size_t size = SysStringByteLen(version);<br />                                         char* szVersion = new char[size];<br />                                         wcstombs(szVersion, version, size);<br />                                         ads_printf("\nVersion:        %s", szVersion);<br />                                         SysFreeString(version);<br />                                         free(szVersion);<br />                                 }<br />                                 pCAO->Release();<br />                         }<br />                 }<br />         }        <br />         <br />         CoUninitialize(); <br /> }<br /> [/FONT]

XDSoft

再贴篇ARX使用ADO COM 的资料：

在ARX程序中使用ADO / OLEDB ActiveX 数据库存取API的方法

游客，如果您要查看本帖隐藏内容请回复

EMeiMonkey

CAO好像是做协作用的组件，不知各位在ACAD中用来开发什么系统？

照猫画虎

cao是什么

masterhe

最初由 照猫画虎 发布
[B]cao是什么 [/B]

按英文发音读

照猫画虎

还是不明白

LoveArx

最初由 照猫画虎 发布
[B]还是不明白 [/B]

照猫画虎啊，“靠”

照猫画虎

不是这个意思吧