自定义菜单的另类导入导出
时 间:2008-10-07 21:09:08
作 者:雪山飞狸 ID:17 城市:秦皇岛
摘 要:在网上搜索,搜到此文,可解决以下问题:当你想把某数据库的自定义菜单加入到自己开发的数据系统中时,可用此方法,迅速解决。
正 文:
一、自定义菜单的存放位置:
所有自定义菜单都存放在系统表:MsysCmdbars 当中,类型为二进制
如果没有MsysCmdbars或表中没有记录, 说明没有自定义菜单
二、MsysCmdbars的结构
所有自定义菜单的资料都存放在[Grptbcd]二进制字段中,包括名称、图标、引用代码。。。
字段[TBNAME]仅作参考用
三、MsysCmdbars的导入和导出
不可以在打MsysCmdbars表的状态下,对数据进行删除或增加,系统会提示:本表不可删除,
数据为读。
但经本人研究发现通过以下方法可对MsysCmdbars表中的数据进行修改或增加:
Dim obj As ADODB.Stream
导出数据:
Function OutMenu()
Dim rs As Recordset, I As Integer, ret
Set rs = CurrentDb.OpenRecordset("Select * from MsysCmdbars")
rs.MoveFirst
Dim obj As New ADODB.Stream
With obj
.Type = adTypeBinary
.Open
.Write rs.Fields(0)
.SaveToFile "N:\Ben.txt", adSaveCreateOverWrite
End With
Set obj = Nothing
Set rs = Nothing
End Function
导入菜单:
Function InMenu()
Dim rs As Recordset, I As Integer, ret
Set rs = CurrentDb.OpenRecordset("Select * from MsysCmdbars")
Dim obj As New ADODB.Stream
With obj
.Type = adTypeBinary
.Open
.LoadFromFile "N:\Ben.txt"
rs.AddNew
rs.Fields(0) = .Read
rs.Fields(1) = "SHIPMenu"
rs.Update
End With
Set obj = Nothing
Set rs = Nothing
End Function
用以上的方法就可以很容易保存自己精心设计的菜单为TXT 或其他文件, 使用时再导入就可以了
至于二进制数据结构就没进行深入研究,如哪位有更深入的研究心得,希望能给我发个MAIL
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)