自定义菜单的另类导入导出
时 间: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交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)