table1.DatabaseName:=filepath; if FileExists(ExtractFilePath(filepath)+'temptab.db') then//ExtractFilePath保证所得路径以'\'结尾,Temptab.db是数据库的文件名,请根据具体情况修改. begin table1.TableName:='temptab';
to li_zhifu(东北人) 我用的是Access数据库,而且在: if FileExists...... 这一步调试通过了,就是到了: if Table1.Exists then 这一步的时候发生错误了,是不是因为使用Access数据库的原因? 或者是要使用别名?
if FileExists(ExtractFilePath(filepath)+'temptab.db') then//ExtractFilePath保证所得路径以'\'结尾,Temptab.db是数据库的文件名,请根据具体情况修改.
begin
table1.TableName:='temptab';
我用的是Access数据库,而且在:
if FileExists......
这一步调试通过了,就是到了:
if Table1.Exists then
这一步的时候发生错误了,是不是因为使用Access数据库的原因?
或者是要使用别名?
如果不是,有个笨办法就是动态设定别名,不过我想你的应该没有问题。
建议用ado,要容易得多。
还有,不知道有没有用过下述方法试过:
FindDabaseID('');
根据它的返回值来调用:
FindTableID(DatabaseID,false);
然后根据返回的TableID来判断是否存在。
但是,问题来了,我用
FindDatabaseID函数的时候就出现问题了,不知道这是为什么?
我昨天才开始用Delphi,不知道是不是要像c/c++中那样:#include <>什么的?
如果你的filepath是路径的话,应该用if directoryexists() 而不是fileexists,fileexists的单元FileCtrl