<<< 返回 access911.net 编程静态资料库索引页

自定义菜单的另类导入导出

 

作者:雪山飞狸  摘自:OFFICE-CN.NET  录入:cg1  时间:2004-9-24  浏览人次:1122


专题地址:http://access911.net/fixhtm/72FAB21E1BDCE9F3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:自定义菜单的另类导入导出

 


非原创!未验证!

自定义菜单的另类导入导出     
 

一、自定义菜单的存放位置:

所有自定义菜单都存放在系统表: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.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FAB21E1BDCE9F3.htm

 


上一篇:如何比对两个表中,列出两个表中不同的项目?

下一篇:一个常用的组合多条件查询 WHERE 子句的函数

2017年2月22日生成静态资料