Access数据库模块 纯源码 mdb数据库

斗战胜猴

Access数据库模块 mdb数据库 已测试正常几乎常用的功能都有。
记录集
创建 删除 变更 cha询 执行SQL 取SQL语句 应有尽有

唯一遗憾的是无法遍历表名，暂时未找到方法，使用MDB Viewer Plus.exe工具能遍历表名。

怎么说呢论坛上的有很多数据库但都不全面 有的调用支撑库，有的云里雾里。

记录集使用的如下
集Connection.方法 (“Open”, ADODB语句) ‘连接数据库’
集ActiveConnection ＝ 集Connection.对象型方法 (“OpenSchema”, 20).读属性 (“ActiveConnection”, )

PS:【20是table 这里参数可多了。遍历表名在哪个参数里，望广大易友给点提示。或者搞出来遍历表名】
' 方法调用格式： 〈对象(_Recordset)〉 对象．对象型方法 （"OpenSchema"，Schema，Restrictions，SchemaID）
' 参数<1>的名称为“Schema”，类型为“整数型”，参数值为以下值之一： -1、adSchemaProviderSpecific； 0、adSchemaAsserts； 1、adSchemaCatalogs； 2、adSchemaCharacterSets； 3、adSchemaCollations； 4、adSchemaColumns； 5、adSchemaCheckConstraints； 6、adSchemaConstraintColumnUsage； 7、adSchemaConstraintTableUsage； 8、adSchemaKeyColumnUsage； 9、adSchemaReferentialContraints； 9、adSchemaReferentialConstraints； 10、adSchemaTableConstraints； 11、adSchemaColumnsDomainUsage； 12、adSchemaIndexes； 13、adSchemaColumnPrivileges； 14、adSchemaTablePrivileges； 15、adSchemaUsagePrivileges； 16、adSchemaProcedures； 17、adSchemaSchemata； 18、adSchemaSQLLanguages； 19、adSchemaStatistics； 20、adSchemaTables； 21、adSchemaTranslations； 22、adSchemaProviderTypes； 23、adSchemaViews； 24、adSchemaViewColumnUsage； 25、adSchemaViewTableUsage； 26、adSchemaProcedureParameters； 27、adSchemaForeignKeys； 28、adSchemaPrimaryKeys； 29、adSchemaProcedureColumns； 30、adSchemaDBInfoKeywords； 31、adSchemaDBInfoLiterals； 32、adSchemaCubes； 33、adSchemaDimensions； 34、adSchemaHierarchies； 35、adSchemaLevels； 36、adSchemaMeasures； 37、adSchemaProperties； 38、adSchemaMembers； 39、adSchemaTrustees； 40、adSchemaFunctions； 41、adSchemaActions； 42、adSchemaCommands； 43、adSchemaSets。
' 参数<2>的名称为“Restrictions”，类型为“变体型”，可以被省略。
' 参数<3>的名称为“SchemaID”，类型为“变体型”，可以被省略。







补充内容 (2025-8-25 19:48):
mdb枚举表名已实现，发楼下了

斗战胜猴

枚举表名

  

子程序名	返回值类型	公开	备 注
枚举表名	整数型		过滤前4个表 “MSysACEs”,“MSysObjects”,“MSysQueries”,“MSysRelationships”
参数名	类 型	参考	可空	数组	备 注
表名数组	文本型

变量名	类 型	静态	数组	备 注
表名	文本型
i	整数型
对象	对象
rsSchema	对象

rsSchema ＝ 集Connection.对象型方法 (“OpenSchema”, 20)
rsSchema.方法 (“MoveFirst”, )
rsSchema.方法 (“Move”, 4, )
清除数组 (表名数组)
变量循环首 (0, rsSchema.读对象型属性 (“Fields”, ).读数值属性 (“Count”, ) － 1, 1, i)
对象 ＝ rsSchema.读对象型属性 (“Fields”, ).读对象型属性 (“Item”, i)
如果真 (对象.读文本属性 (“Name”, ) ＝ “TABLE_NAME”)
判断循环首 (rsSchema.读逻辑属性 (“EOF”, ) ＝ 假)
表名 ＝ 对象.读文本属性 (“Value”, )
加入成员 (表名数组, 表名)
rsSchema.方法 (“movenext”, )
判断循环尾 ()

变量循环尾 ()
rsSchema.方法 (“Close”, )
rsSchema.清除 ()
返回 (取数组成员数 (表名数组))

.版本 2<br /> <br /> .子程序 枚举表名, 整数型, 公开, 过滤前4个表 “MSysACEs”,“MSysObjects”,“MSysQueries”,“MSysRelationships”<br /> .参数 表名数组, 文本型, 参考 可空 数组<br /> .局部变量 表名, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 对象, 对象<br /> .局部变量 rsSchema, 对象<br /> <br /> rsSchema ＝ 集Connection.对象型方法 (“OpenSchema”, 20)<br /> rsSchema.方法 (“MoveFirst”, )<br /> rsSchema.方法 (“Move”, 4, )<br /> 清除数组 (表名数组)<br /> .变量循环首 (0, rsSchema.读对象型属性 (“Fields”, ).读数值属性 (“Count”, ) － 1, 1, i)<br />     对象 ＝ rsSchema.读对象型属性 (“Fields”, ).读对象型属性 (“Item”, i)<br />     .如果真 (对象.读文本属性 (“Name”, ) ＝ “TABLE_NAME”)<br />         .判断循环首 (rsSchema.读逻辑属性 (“EOF”, ) ＝ 假)<br />             表名 ＝ 对象.读文本属性 (“Value”, )<br />             加入成员 (表名数组, 表名)<br />             rsSchema.方法 (“movenext”, )<br />         .判断循环尾 ()<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> rsSchema.方法 (“Close”, )<br /> rsSchema.清除 ()<br /> 返回 (取数组成员数 (表名数组))

  

子程序名	返回值类型	公开	备 注
置连接
参数名	类 型	参考	可空	数组	备 注
数据库mdb	类_数据库mdb

rsSchema ＝ 数据库mdb.Get_Connection ().对象型方法 (“OpenSchema”, 20)
ActiveConnection集 ＝ 数据库mdb.Get_Connection ().对象型方法 (“OpenSchema”, 20).读属性 (“ActiveConnection”, )
Recordset记录集.写属性 (“ActiveConnection”, ActiveConnection集)

子程序名	返回值类型	公开	备 注
枚举表名

变量名	类 型	静态	数组	备 注
文本	文本型
EOF	逻辑型
i	整数型
对象	对象

rsSchema.方法 (“MoveFirst”, )
判断循环首 (rsSchema.读逻辑属性 (“EOF”, ) ＝ 假)
变量循环首 (0, rsSchema.读对象型属性 (“Fields”, ).读数值属性 (“Count”, ) － 1, 1, i)
对象 ＝ rsSchema.读对象型属性 (“Fields”, ).读对象型属性 (“Item”, i)
如果真 (对象.读文本属性 (“Name”, ) ＝ “TABLE_NAME”)
文本 ＝ 对象.读文本属性 (“Value”, )
' 调试输出 (i, 文本)

变量循环尾 ()
rsSchema.方法 (“movenext”, )
判断循环尾 ()

.版本 2<br /> <br /> .子程序 置连接, , 公开<br /> .参数 数据库mdb, 类_数据库mdb<br /> <br /> rsSchema ＝ 数据库mdb.Get_Connection ().对象型方法 (“OpenSchema”, 20)<br /> ActiveConnection集 ＝ 数据库mdb.Get_Connection ().对象型方法 (“OpenSchema”, 20).读属性 (“ActiveConnection”, )<br /> Recordset记录集.写属性 (“ActiveConnection”, ActiveConnection集)<br /> <br /> .版本 2<br /> <br /> .子程序 枚举表名, , 公开<br /> .局部变量 文本, 文本型<br /> .局部变量 EOF, 逻辑型<br /> .局部变量 i, 整数型<br /> .局部变量 对象, 对象<br /> <br /> rsSchema.方法 (“MoveFirst”, )<br /> .判断循环首 (rsSchema.读逻辑属性 (“EOF”, ) ＝ 假)<br />     .变量循环首 (0, rsSchema.读对象型属性 (“Fields”, ).读数值属性 (“Count”, ) － 1, 1, i)<br />         对象 ＝ rsSchema.读对象型属性 (“Fields”, ).读对象型属性 (“Item”, i)<br />         .如果真 (对象.读文本属性 (“Name”, ) ＝ “TABLE_NAME”)<br />             文本 ＝ 对象.读文本属性 (“Value”, )<br />             ' 调试输出 (i, 文本)<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br />     rsSchema.方法 (“movenext”, )<br /> .判断循环尾 ()

yjihss

谢谢分享

lijunfa

学习学习。。。。。。

孤帆远矣影

        支持开源~！感谢分享

我很低调

11111111111111111111

xmdian

谢谢分享

kito

希望能用。。。。

opq123

谢谢分享

huangabin123

66666666666666666666666666

你若平凡

access数据库连接不需要库名吗？直接连接

xcxc168

封装一个完整的啊,老大 ,给几个简单的实例,精币收高点