delphi中数据库文件复制总是出现问题。请高手帮忙看看!

来源:百度知道 编辑:UC知道 时间:2024/06/05 08:27:15
编译完了之后总会弹出:数据库引擎找不到输入表或查询表.mdb。我用的是access数据库。出错的代码: ADOTable2.TableName:=pchar(dfilename); 用的控件是ADOtable1等数据库连接是正确的。但在让程序实时复制数据库文件时就会出现上面的情况!!那位delphi高手给点提示!! 我将万分感谢!!
我改为ADOTable2.TableName := dfilename;还是弹出上面的问题!!
**********************************************
dfilename:=inttostr(lNowYear)+'年'+pmonth+'月'+K+'号设备'+'数据库'+'.mdb';

tn1 := ExePath+'zhu.mdb';
bfile := pchar(tn1);

tn2 := ExePath+dfilename;
tablefile := pchar(tn2);
if not fileexists(tablefile) then
copyfile(bfile,tablefile,false)
else
copyfile(ffile,tablefile,false);
nowtablefile := pchar(dfilename);

ADOTable2.TableName:=dfilename;
*****************************
这就是我这里的源码!!

ADOTable2.TableName是String类型
PChar(dfilename)是个PChar型的指针,明显不对
你直接ADOTable2.TableName := dfilename;

在 dfilename:=inttostr(lNowYear)+'年'+pmonth+'月'+K+'号设备'+'数据库'+'.mdb';
这句设个断点,看看dfilename到底是什么值

TableName对应的是表称,你这对应的是什么?

ADOTable2.TableName:=dfilename;
你怎么能把数据库赋给一个表哪?

ADOTable2.TableName:= 这里应该是数据库中某个表的名称,而不是数据库的路径