|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
任何规模的组织都可能受益于外包服务,并在一个标准化和优化的平台上统一其数据库管理任务。基于其本身的特性,DBaaS提供了敏捷和高效的数据库服务,它可以支持多变的需求。一向以来,ACCESS数据库中的申报数据在分公司与总公司之间传送,用EXCEL或DBASE、TXT乃至ACCESS等格局,我总以为不太幻想。比来看了一本书,不经意间发明了一个办法,利用ACCESS数据库天生申报数据与读进数据仿佛复杂了很多,特拿出来与人人分享。同时,也但愿能失掉更多的指导。附上示例:
SubMwrite()
OnErrorGoTothiserr
DimrsAsNewADODB.Recordset
rs.Open"dlmd",CurrentProject.Connection,adOpenDynamic,adLockOptimistic,acTable
rs.Save"a:dlmd.adtg",adPersistADTG
rs.Close
Setrs=Nothing
thisexit:
ExitSub
thiserr:
MsgBoxErr.Description
Resumethisexit
EndSub
SubMread()
OnErrorGoToMerr
DimiAsInteger
DimrsDeAsNewADODB.Recordset
DimrsSoAsNewADODB.Recordset
rsSo.Open"a:dlmd.adtg","provider=mspersist"
rsDe.Open"dlmd",CurrentProject.Connection,adOpenKeyset,adLockOptimistic,acTable
DoUntilrsSo.EOF
rsDe.AddNew
Fori=0TorsSo.Fields.Count-1
rsDe.Fields(i)=rsSo.Fields(rsDe.Fields(i).Name)
Nexti
rsDe.Update
rsSo.MoveNext
Loop
rsSo.Close
rsDe.Close
SetrsSo=Nothing
SetrsDe=Nothing
Mexit:
ExitSub
Merr:
MsgBoxErr.Description
ResumeMexit
EndSub
首先我们要知道,或许有一项技术存在很多理由让我们可以选择使用MySQL学习教程,但是让我们不使用它往往只要有一个理由就足够了。 |
|