摘要：
实现窗体如下： 窗体代码如下： Option Explicit '声名模块级变量 Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset '是否变量空间、关闭数据库连接、关闭窗体 Private Sub btnClose_Click() cnn. 阅读全文
摘要：
一、实现计数求和功能 详情代码如下： Sub 多列汇总() Dim arr, brr, dic Dim i&, j&, k& arr = Range("a1:c" & Range("a" & Rows.Count).End(xlUp).Row) ReDim brr(1 To UBound(arr, 阅读全文
摘要：
1、指定单元格在工作表位置 下例：指定A10单元格位于左上角 Sub 指定单元格至左上角() ActiveWindow.ScrollColumn = Range("a10").Column ActiveWindow.ScrollRow = Range("a10").Row End Sub 阅读全文
摘要：
关键：arr=rst.Getrows 数据表如下： 姓名 成绩 甲 134 乙 84 丙 56 丁 142 戊 94 己 65 庚 79 辛 126 壬 53 癸 87 子 135 丑 85 寅 68 卯 90 辰 119 巳 41 午 118 未 141 申 82 酉 101 戌 107 亥 57 阅读全文
摘要：
ADO连接不同数据库的字符串 1、Access数据库 1.1、没有密码保护的Access数据库 Provider=Microsoft.ACE.OLEDB.12.0;Data Source=带路径的Access数据库名称; 1.2、有密码保护的Access数据库 Provider=Microsoft. 阅读全文
摘要：
在Sql in VBA 中实现转置表查询的语句 TRANSFORM，语法如下：TRANSFORM aggfunctionSELECT statementPIVOT pivotfield [IN(value1[,value2[,…]])] 成绩表： 姓名 学科 成绩 甲 语文 119 乙 语文 62 阅读全文
摘要：
把重复的代码搞进类模块，也不知道对不对，反正我是没报错。 表1：一班 姓名 语文 数学 英语 天 136 140 21 地 62 90 98 玄 200 126 10 表2：二班 姓名 语文 数学 英语 子 82 97 65 丑 55 99 46 寅 54 61 60 表3：三班 姓名 语文 数学 阅读全文
摘要：
分组聚合 数据如表： 班级 姓名 学科 成绩 插班生 张三 语文 136 插班生 李四 数学 62 插班生 王五 语文 66 二班 赵六 数学 62 二班 麻七 语文 104 三班 甲 语文 111 三班 乙 数学 51 插班生 丙 数学 62 二班 丁 数学 62 三班 戊 语文 111 代码如下 阅读全文
摘要：
排序 数据如下表： 代码： 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 阅读全文
摘要：
少年不知……，废话不多说，直接贴代码， 学生表： ID 姓名 性别 年龄 爱好 得分 1 张三 男 14 发呆 55 2 李四 女 15 熬夜 64 3 王五 男 10 竞走 55 4 赵六 女 16 化妆 79 5 麻七 男 10 画画 65 6 大红 女 13 养花 3 7 大红花 女 10 送 阅读全文