[求助][ARX]DAO数据库在ARX中使用的问题
本人开发环境为WIN2000AS，CAD2004中文版，VC.NET，ObjectARX2004，在开发市政软件中使用Access数据库，发生如下问题：请各位高手、斑竹测试程序，赐教，万分感谢！
数据库“纵横断面测量数据表”表格的格式为：
编号 原地面桩号 原地面高程
程序如下：
#include "StdAfx.h"<BR>#include "arxHeaders.h"<BR>#include "afxdao.h"
//-----------------------------------------------------------------------------<BR>#define szRDS _RXST("CHEN")
//-----------------------------------------------------------------------------<BR>CDaoDatabase DB;
// ----- CHENArxProject19._C191 command (do not rename)<BR> static void CHENArxProject19_C191(void)<BR> {<BR> // Add your code for command CHENArxProject19._C191 here<BR> if (DB.IsOpen())<BR> {<BR> DB.Close();<BR> acutPrintf("\nDB was closed!");<BR> }else<BR> {<BR> acutPrintf("\nDB was already closed!");<BR> }<BR> }
// ----- CHENArxProject19._C192 command (do not rename)<BR> static void CHENArxProject19_C192(void)<BR> {<BR> // Add your code for command CHENArxProject19._C192 here<BR> double XS = 1000.00;<BR> double YS = 100.00;
if (!DB.IsOpen())<BR> {<BR> CFileDialog Dg(TRUE,NULL,NULL,NULL,"道路工程数据库(*.MDB)|*.MDB|");<BR> if (Dg.DoModal() != IDOK)<BR> {<BR> acutPrintf("\nC192 was cancelled!");<BR> return;<BR> }
CString DBname;<BR> DBname = Dg.GetPathName();
try<BR> {<BR> DB.Open(DBname,TRUE,FALSE,"");<BR> }<BR> catch (CDaoException* e)<BR> {<BR> e->ReportError();<BR> e->Delete();<BR> acutPrintf("\n DB open error!");<BR> return;<BR> }
acutPrintf("\nDB was open!");<BR> }
CDaoTableDef ydm(&DB);<BR> try<BR> {<BR> ydm.Open("纵横断面测量数据表");<BR> }<BR> catch (CDaoException* e)<BR> {<BR> e->ReportError();<BR> e->Delete();<BR> DB.Close();<BR> acutPrintf("\n纵横断面测量数据表打开错误\n数据库已经关闭!");<BR> return;<BR> }
CDaoRecordset rdydm(&DB);<BR> rdydm.Open(&ydm,dbOpenTable,dbDenyRead);
long num = rdydm.GetRecordCount();<BR> if (num = 0)<BR> {<BR> acutPrintf("\n(纵横断面测量数据表)中没有数据!");<BR> }
rdydm.MoveFirst();
AcDbPolyline* retLightPoly = new AcDbPolyline();<BR> AcGePoint2d pt;<BR> double ptx, pty;<BR> int i = 0;
while (!rdydm.IsEOF())<BR> {<BR> COleVariant txt0 = rdydm.GetFieldValue(0);<BR> COleVariant txt1 = rdydm.GetFieldValue(1);<BR> COleVariant txt2 = rdydm.GetFieldValue(2);
ptx = (double)txt1.dblVal * (1000.00/XS);<BR> pty = (double)txt2.dblVal * (1000.00/YS);<BR> pt.set(ptx, pty);
retLightPoly->addVertexAt(i, pt);<BR> i++;
rdydm.MoveNext();<BR> }
retLightPoly->minimizeMemory();
AcDbObjectId id;<BR> retLightPoly->setColorIndex(1);<BR> AddEntToDB(retLightPoly, id);
}<BR>} ;
<BR>ACED_ARXCOMMAND_ENTRY_AUTO(CArxProject19App, CHENArxProject19, _C191, C191, ACRX_CMD_TRANSPARENT, NULL)<BR>ACED_ARXCOMMAND_ENTRY_AUTO(CArxProject19App, CHENArxProject19, _C192, C192, ACRX_CMD_TRANSPARENT, NULL)
其中C192画出原地面线，C191关闭数据库。
在CAD中可以画出地面线，关闭数据库显示正常，但是在关闭CAD时，CAD崩溃，提示如下：
FATAL ERROR:Unhandled Access Violation Reading 0x5f52527 Exception at 5f52527h
我试过在当前CAD中绘制一个填充图案之后再关闭CAD，CAD就不会发生任何问题正常退出，划线或其他图元CAD同样崩溃退出。
我以前用VBA开发CAD中的Access数据库程序时发现在打开数据库时可以看到同时产生一个Access数据库锁定文件，但是用ARX打开数据库时没有发现锁定文件产生，是否跟这有关？如何解决？是否数据库打开函数使用有问题？<BR> 我想这样的错误编程的见的比较多，主要在内存上 如何解决? CDaoTableDef ydm(&DB);<BR>CDaoRecordset rdydm(&DB);
二个不能同时打开!<BR>
页:
[1]