procedure TManageFrm.Button3Click(Sender: TObject);
var
I_copy2:string;
I_copy1:string;
begin
dm.ADOConn.Connected:=false;
I_copy2:=extractfilepath(application.exename)+'Databases\Tx_Athlete.mdb';
OpenDialog1.Execute;
if OpenDialog1.FileName<>'' then
begin
if fileexists(OpenDialog1.FileName)=true then
begin
I_copy1:=OpenDialog1.FileName;
OpenDialog1.Free;
showmessage(I_copy1);
showmessage(I_copy2);
deletefile(extractfilepath(application.exename)+'Databases\Tx_Athlete.mdb');
copyfile(Pchar(OpenDialog1.FileName), Pchar(I_copy2) ,true);showmessage('完成恢复!');
showmessage('请从新启动程序!');
mainFrm.Close;
end
else
begin
showmessage('请选择正确的路径!');
end;
end;
为什么在数据库还原以后,数据库的连接路径就改变了,没法连接到数据库啊???