说明一下,我的pic.mdb库现在正在使用,现在我想将外部的数据库导入,从而替换掉正在用的pic.mdb库,为什么在2000下能正常执行,而在98下确不能导入呢?请大家看看我的代码,并指点一下。
先定义 oldfile,newfile: array[0..100] of Char;
if openDialog1.Execute then
begin
StrPCopy(oldfile,opendialog1.FileName);
StrPCopy(newfile,extractfilepath(application.ExeName)+'pic.mdb');
DataSource.Enabled:=false;
if not copyfile(oldfile,newfile,false) then MessageBox (handle,'数据库导入失败','导入失败',mb_ok+MB_ICONERROR)
else
MessageBox(handle,'数据库成功导入!','导入成功!',MB_OK+MB_ICONINFORMATION);
end;
先定义 oldfile,newfile: array[0..100] of Char;
if openDialog1.Execute then
begin
StrPCopy(oldfile,opendialog1.FileName);
StrPCopy(newfile,extractfilepath(application.ExeName)+'pic.mdb');
DataSource.Enabled:=false;
if not copyfile(oldfile,newfile,false) then MessageBox (handle,'数据库导入失败','导入失败',mb_ok+MB_ICONERROR)
else
MessageBox(handle,'数据库成功导入!','导入成功!',MB_OK+MB_ICONINFORMATION);
end;
解决方案 »
- 讨论: 如何在 delphi7 + devExpress bar 6 制作的: ribbon 风格程序,体积小一些?
- delphi中如何使不同的代码块或代码用不同的颜色、字体区分?
- Delphi2009使用VCSKIN的朋友进来下
- 字滚动和图像功能的提问
- 我的第一次......
- 帮我调试代码!很简单的!!!怎么不行呢???
- 这里有没有北京的DELPHI程序员或DELPHI高手,爱好者?
- 怎样得到textout里的各参数?
- 有没有专门讲Delphi中控件用法的书籍或者那边有下载的?
- 代码错误检测工具Sleuth QA
- Dxsound如何播放wma?
- batchmove的问题!!!!急用,我在这方面用了2天了?!!
各位能不能说的清楚点啊?
我现在试一下删除后再copyfile行不行。