Access中利用拆分后端数据库保存不同数据

• Access中利用拆分后端数据库保存不同数据

  面向:初学者。

  目的:如果一年的数据较多,希望在分年的数据库中保存数据。

  知识点:

  1.数据库拆分。

  2.文件查找技术。

  3.文件复制。

  4.链接表的刷新。

  步骤:

  1.将一些每年都要使用(修改,添加等)的表的名称前两个字母改为共同的(如:Or_业务人员名单,Or_收货人名单等),注意不要是“MS”,“SW”,“US”等系统要使用的字母。

  2.将数据库拆分(假如前端名称为:出口业务记录.mdb,后端名称为:出口业务记录_dataOrigin.mdb。

  3.在启动窗体(假如名称为:窗体1)中建立一文本框(假如名称为:所属年份)。

  4.在窗体1的Open事件和所属年份的AfterUpdate事件中调用下面的“查找文件”过程。

  Public Sub 链接() 
  
  On Error GoTo LJ_error 
  Dim TABNAME As String 
  Dim Tab1 As TableDef 
  Dim MyPath As String 
  
  MyPath = Application.CurrentProject.Path 
  CurrentDb.TableDefs.Refresh'刷新当前数据库中的表对象 
  If CurrentDb.TableDefs(15).Connect = ";
  DATABASE=" & MyPath & "\出口业务记录_data" &
   FORMs!窗体1!所属年份 & ".mdb" Then 
  
  Exit Sub 
  
  Else 
  For Each Tab1 In CurrentDb.TableDefs
  
  TABNAME = Tab1.Name 
  If Left(TABNAME, 2) <> "MS" And Left(TABNAME, 2) 
  <> "SW" And Left(TABNAME, 2) <> "Us" Then 
  If Left(TABNAME, 2) = "Or" Then 
  Tab1.Connect = ";DATABASE=" & MyPath & 
  "\出口业务记录_dataOrigin.mdb" 
  Else 
  Tab1.Connect = ";DATABASE=" & MyPath & 
  "\出口业务记录_data" & FORMs!窗体1!所属年份 & ".mdb" 
  End If 
  Tab1.RefreshLink 
  End If 
  
  Next Tab1 
  MsgBox FORMs!窗体1!所属年份 & "年的基础数据库连接成功!" 
  End If 
  Exit_LJ_error: 
  Exit Sub 
  
  LJ_error: 
  MsgBox FORMs!窗体1!所属年份 & "年的后端数据库文件不存在!" 
  Resume Exit_LJ_error 
  End Sub 
  
  Public Sub 查找文件() 
  Dim MyPath As String 
  Dim fs As Variant 
  Dim TABNAME As String 
  Dim Tab1 As TableDef 
  
  MyPath = Application.CurrentProject.Path 
  
  Set fs = Application.FileSearch 
  With fs 
  .LookIn = MyPath 
  .SearchSubFolders = True 
  .Filename = "出口业务记录_data" & FORMs!窗体1!所属年份 & ".mdb" 
  
  If .Execute() <= 0 Then 
  If MsgBox("没有" & FORMs!窗体1!所属年份 & 
  "年的数据库,是否要创建一个?", vbYesNo) = vbYes Then 
  FORMs!窗体1.FORM!版本.FORM.RecordSource = "" 
  FileCopy MyPath & "\出口业务记录_dataOrigin.mdb", 
  MyPath & "\出口业务记录_data" & FORMs!窗体1!所属年份 & ".mdb" 
  Else 
  FORMs!窗体1!所属年份 = Year(Now()) 
  MsgBox "没有" & FORMs!窗体1!所属年份 & "年的数据库!" 
  Exit Sub 
  End If 
  End If 
  End With 
  链接 
  End Sub

• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• Access中利用拆分后端数据库保存不同数据 相关文章：
• ·把网页保存为图片 换种方式收集有用资料
• ·下载：圣诞节3D屏幕保护程序
• ·电脑摄像头日常保养六招秘诀
• ·CSS初学者应该保持的一种心态
• ·巧用Syskey命令保障系统安全
• ·视频下载不求人 突破封锁保存各类视频资源
• ·保护隐私 实现网络监控的简单方法
• ·攻破Windows系统加密保护之EFS解密
• ·无需等待 一键快速启动屏幕保护
• ·保护好你的Wi-Fi网络
• Access中利用拆分后端数据库保存不同数据 相关软件
• ·《梦魇保姆》 另类的美女餐厅游戏试玩
• ·魔兽地图:保卫卢沟桥之国共合作2.9
• ·《史莱克保龄球2》搞笑运动试玩
• ·天才保姆2
• ·《四季养生保健宜忌全书》
• ·送你一个保险套
• ·保护环境随手可做的100件小事
• ·星球保卫战之遥远的世界
• ·保证你快速致富的七个步骤
• ·保卫延安

上一篇:教你如何在Perl下连接Access数据库

下一篇:用JSP实现数据库图片的存储与显示实例

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐