|
|
本人开发环境为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打开数据库时没有发现锁定文件产生，是否跟这有关？如何解决？是否数据库打开函数使用有问题？
|
|
置顶卡
