如何断开与access的连接啊

如何断开与access的连接啊  
   
    我作个数据库还原啊  
   
    可是与access有连接，还原不成功啊  
   
  procedure   TFrameDbBuckup.Image3Click(Sender:   TObject);  
  var  
      i:   integer;  
    datafile:string;  
   
  begin  
   
        datafile:=getcurrentdir+'\data\bai.mdb'   ;  
   
          if   not   opendialog1.Execute   then   exit;  
          if   Messagebox(handle,'警告：现有数据有可能丢失，确定还原？','确定还原',mb_iconquestion+mb_yesno)=IDNo   then   Exit;  
          try  
            //   form1.Adoquery1.destroy;  
            //   form1.Adoquery2.destroy;  
            //   form1.Adoquery3.destroy;  
              finally  
              screen.Cursor:=crdefault;  
              end;  
          try  
          for   i:=Gauge1.MinValue   to   Gauge1.MaxValue   do  
              Gauge1.Progress   :=   i;  
              if   pos('.mdb',OpenDialog1.FileName)=0   then  
                    CopyFile(PChar(OpenDialog1.FileName+'.mdb'),PChar(datafile),True)  
                    else  
                      CopyFile(PChar(OpenDialog1.FileName),PChar(datafile),True)   ;  
              Messagebox(handle,'数据库还原成功！','还原数据',mb_iconinformation+mb_ok);  
      except  
              Messagebox(handle,'警告：数据库还原失败！','读取错误',mb_iconwarning+mb_ok);  
      end;  
  end;  
  问题点数：0、回复次数：2Top

1 楼zhangfeng1133（）回复于 2004-07-04 18:05:31 得分 0

还有就是   为什么form1.Adoquery1出错呢，form1,是隐藏的窗体啊，form2是父窗体啊  
   
  这个是form3.  
   
  请高手指点啊！！！！！！！！！！！！！！Top

2 楼zhangfeng1133（）回复于 2004-07-04 22:25:18 得分 0

Top

相关问题

• 连接
• 数据库
• access
• 还原
• opendialog
• adoquery
• datafile
• gauge
• pchar
• mb

• 帖主：zhangfeng1133

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载