实例分析access中数据表的自动重新联接

《实例分析access中数据表的自动重新联接》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、实例分析Access中数据表的自动重新联接>>教育资源库　　用Access做应用程序，往往做成数据和程序两个数据库，数据数据库中只存放数据表，程序数据库中存放所有的form，query,report,module等，通过表联接程序数据库可以访问所有数据数据库中的表。　　当我们的应用程序更换存储位置的时候往往失去正确的表联接，造成运行错误。下面的一段程序可以自动找回表联接。在我的应用中程序数据库名字是stockMgr.mdb,数据数据库名字是stock-Data.mdb。　　注意：该程序仅限于程序和数据存放在同一个目录而且是对应单个数据文件的情况。以下为Functi

2、onReAttachTable()DimMyDBAsDatabase,MyTblAsTableDefDimcpathAsStringDimdatafilesAsString,iAsIntegerOnErrorResumeNextSetMyDB=CurrentDbcpath=trimFileName(CurrentDb.Name)datafiles=stock-data.mdbDoCmd.HourglassTrueFori=0ToMyDB.TableDefs.Count-1SetMyTbl=MyDB.TableDefs(i)IfMyTbl.Attributes=DB

3、_ATTACHEDTABLEAndLeft(MyTbl.Connect,1)=;ThenMyTbl.Connect=;DATABASE=cpathdatafilesMyTbl.RefreshLinkIfErrThenIfvbNo=MsgBox(Err.description，继续吗？,vbYesNo)ThenExitForEndIfEndIfNextiDoCmd.HourglassFalsemsgboxTablesrelinkfinish.EndFunction'绝对路径中去掉文件名，返回路径FunctiontrimFileName(fullnameAsS

4、tring)AsStringDimslenAsLong,iAsLongslen=Len(fullname)Fori=slenTo1Step-1IfMid(fullname,i,1)=ThenExitForEndIfNexttrimFileName=Left(fullname,i)EndFunction　　在程序启动或者按钮动作中调用即可。>>>>这篇文章来自..，。