[求助][ARX]DAO数据库在ARX中使用的问题

WIN171

本人开发环境为WIN2000AS，CAD2004中文版，VC.NET，ObjectARX2004，在开发市政软件中使用Access数据库，发生如下问题： 请各位高手、斑竹测试程序，赐教，万分感谢！ 数据库“纵横断面测量数据表”表格的格式为： 编号 原地面桩号 原地面高程 程序如下： #include "StdAfx.h"
#include "arxHeaders.h"
#include "afxdao.h" //-----------------------------------------------------------------------------
#define szRDS _RXST("CHEN") //-----------------------------------------------------------------------------
CDaoDatabase DB; // ----- CHENArxProject19._C191 command (do not rename)
static void CHENArxProject19_C191(void)
{
// Add your code for command CHENArxProject19._C191 here
if (DB.IsOpen())
{
DB.Close();
acutPrintf("\nDB was closed!");
}else
{
acutPrintf("\nDB was already closed!");
}
} // ----- CHENArxProject19._C192 command (do not rename)
static void CHENArxProject19_C192(void)
{
// Add your code for command CHENArxProject19._C192 here
double XS = 1000.00;
double YS = 100.00; if (!DB.IsOpen())
{
CFileDialog Dg(TRUE,NULL,NULL,NULL,"道路工程数据库(*.MDB)|*.MDB|");
if (Dg.DoModal() != IDOK)
{
acutPrintf("\nC192 was cancelled!");
return;
} CString DBname;
DBname = Dg.GetPathName(); try
{
DB.Open(DBname,TRUE,FALSE,"");
}
catch (CDaoException* e)
{
e->ReportError();
e->Delete();
acutPrintf("\n DB open error!");
return;
} acutPrintf("\nDB was open!");
} CDaoTableDef ydm(&DB);
try
{
ydm.Open("纵横断面测量数据表");
}
catch (CDaoException* e)
{
e->ReportError();
e->Delete();
DB.Close();
acutPrintf("\n纵横断面测量数据表打开错误\n数据库已经关闭!");
return;
} CDaoRecordset rdydm(&DB);
rdydm.Open(&ydm,dbOpenTable,dbDenyRead); long num = rdydm.GetRecordCount();
if (num = 0)
{
acutPrintf("\n(纵横断面测量数据表)中没有数据!");
} rdydm.MoveFirst(); AcDbPolyline* retLightPoly = new AcDbPolyline();
AcGePoint2d pt;
double ptx, pty;
int i = 0; while (!rdydm.IsEOF())
{
COleVariant txt0 = rdydm.GetFieldValue(0);
COleVariant txt1 = rdydm.GetFieldValue(1);
COleVariant txt2 = rdydm.GetFieldValue(2); ptx = (double)txt1.dblVal * (1000.00/XS);
pty = (double)txt2.dblVal * (1000.00/YS);
pt.set(ptx, pty); retLightPoly->addVertexAt(i, pt);
i++; rdydm.MoveNext();
} retLightPoly->minimizeMemory(); AcDbObjectId id;
retLightPoly->setColorIndex(1);
AddEntToDB(retLightPoly, id); }
} ;
ACED_ARXCOMMAND_ENTRY_AUTO(CArxProject19App, CHENArxProject19, _C191, C191, ACRX_CMD_TRANSPARENT, NULL)
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打开数据库时没有发现锁定文件产生，是否跟这有关？如何解决？是否数据库打开函数使用有问题？

realcolor

我想这样的错误编程的见的比较多，主要在内存上

WIN171

如何解决?

zxb888

CDaoTableDef ydm(&DB);
CDaoRecordset rdydm(&DB); 二个不能同时打开!