噜
噜啦啦
Unregistered / Unconfirmed
GUEST, unregistred user!
[]下面这段代码,编译通过,执行通过,可是没产生压缩后的文件!
是不是因为我用的是AccessXP?
头都大了,还是pascal好。各位大侠,帮个忙看一下好吗?
AnsiString Path=ExtractFilePath(Application->ExeName);
AnsiString srcName,dstName;
srcName=Path+"数据.mdb";
dstName=Path+"temp.mdb";
wchar_t *src=new wchar_t[srcName.WideCharBufSize()];
wchar_t *dst=new wchar_t[dstName.WideCharBufSize()] ;
srcName.WideChar( src,srcName.WideCharBufSize());
dstName.WideChar(dst,dstName.WideCharBufSize());
ShowMessage(src);
TJetEngine *JetEng=new TJetEngine(this);
try
{
JetEng->CompactDatabase(src,dst);
}
__finally{
delete JetEng;
}
是不是因为我用的是AccessXP?
头都大了,还是pascal好。各位大侠,帮个忙看一下好吗?
AnsiString Path=ExtractFilePath(Application->ExeName);
AnsiString srcName,dstName;
srcName=Path+"数据.mdb";
dstName=Path+"temp.mdb";
wchar_t *src=new wchar_t[srcName.WideCharBufSize()];
wchar_t *dst=new wchar_t[dstName.WideCharBufSize()] ;
srcName.WideChar( src,srcName.WideCharBufSize());
dstName.WideChar(dst,dstName.WideCharBufSize());
ShowMessage(src);
TJetEngine *JetEng=new TJetEngine(this);
try
{
JetEng->CompactDatabase(src,dst);
}
__finally{
delete JetEng;
}