摘要: ADO连接不同数据库的字符串 1、Access数据库 1.1、没有密码保护的Access数据库 Provider=Microsoft.ACE.OLEDB.12.0;Data Source=带路径的Access数据库名称; 1.2、有密码保护的Access数据库 Provider=Microsoft. 阅读全文
posted @ 2020-08-17 23:50 大黑山 阅读(553) 评论(0) 推荐(0) 编辑
摘要: 在Sql in VBA 中实现转置表查询的语句 TRANSFORM,语法如下:TRANSFORM aggfunctionSELECT statementPIVOT pivotfield [IN(value1[,value2[,…]])] 成绩表: 姓名 学科 成绩 甲 语文 119 乙 语文 62 阅读全文
posted @ 2020-08-17 23:33 大黑山 阅读(570) 评论(0) 推荐(0) 编辑
摘要: 把重复的代码搞进类模块,也不知道对不对,反正我是没报错。 表1:一班 姓名 语文 数学 英语 天 136 140 21 地 62 90 98 玄 200 126 10 表2:二班 姓名 语文 数学 英语 子 82 97 65 丑 55 99 46 寅 54 61 60 表3:三班 姓名 语文 数学 阅读全文
posted @ 2020-08-17 23:16 大黑山 阅读(425) 评论(0) 推荐(0) 编辑
摘要: 分组聚合 数据如表: 班级 姓名 学科 成绩 插班生 张三 语文 136 插班生 李四 数学 62 插班生 王五 语文 66 二班 赵六 数学 62 二班 麻七 语文 104 三班 甲 语文 111 三班 乙 数学 51 插班生 丙 数学 62 二班 丁 数学 62 三班 戊 语文 111 代码如下 阅读全文
posted @ 2020-08-17 22:59 大黑山 阅读(612) 评论(0) 推荐(0) 编辑
摘要: 排序 数据如下表: 代码: desc:降序、asc:升序,不写则默认升序 1 Sub 排序() 2 Dim cnn As Object, rst As Object 3 Dim Mypath As String, Str_cnn As String, Sql As String 4 Dim i As 阅读全文
posted @ 2020-08-17 22:43 大黑山 阅读(722) 评论(0) 推荐(0) 编辑
摘要: 少年不知……,废话不多说,直接贴代码, 学生表: ID 姓名 性别 年龄 爱好 得分 1 张三 男 14 发呆 55 2 李四 女 15 熬夜 64 3 王五 男 10 竞走 55 4 赵六 女 16 化妆 79 5 麻七 男 10 画画 65 6 大红 女 13 养花 3 7 大红花 女 10 送 阅读全文
posted @ 2020-08-17 21:55 大黑山 阅读(480) 评论(0) 推荐(0) 编辑