摘要：
实现窗体如下： 窗体代码如下： Option Explicit '声名模块级变量 Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset '是否变量空间、关闭数据库连接、关闭窗体 Private Sub btnClose_Click() cnn. 阅读全文
posted @ 2020-09-13 21:58
大黑山
阅读(4644)
评论(1)
推荐(0)
摘要：
一、实现计数求和功能 详情代码如下： 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, 阅读全文
posted @ 2020-09-09 23:15
大黑山
阅读(424)
评论(0)
推荐(0)
摘要：
1、指定单元格在工作表位置 下例：指定A10单元格位于左上角 Sub 指定单元格至左上角() ActiveWindow.ScrollColumn = Range("a10").Column ActiveWindow.ScrollRow = Range("a10").Row End Sub 阅读全文
posted @ 2020-09-06 20:52
大黑山
阅读(317)
评论(0)
推荐(0)
摘要：
关键：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 阅读全文
posted @ 2020-08-18 00:07
大黑山
阅读(1660)
评论(0)
推荐(0)
摘要：
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
大黑山
阅读(636)
评论(0)
推荐(0)
摘要：
在Sql in VBA 中实现转置表查询的语句 TRANSFORM，语法如下：TRANSFORM aggfunctionSELECT statementPIVOT pivotfield [IN(value1[,value2[,…]])] 成绩表： 姓名 学科 成绩 甲 语文 119 乙 语文 62 阅读全文
posted @ 2020-08-17 23:33
大黑山
阅读(623)
评论(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
大黑山
阅读(441)
评论(0)
推荐(0)
摘要：
分组聚合 数据如表： 班级 姓名 学科 成绩 插班生 张三 语文 136 插班生 李四 数学 62 插班生 王五 语文 66 二班 赵六 数学 62 二班 麻七 语文 104 三班 甲 语文 111 三班 乙 数学 51 插班生 丙 数学 62 二班 丁 数学 62 三班 戊 语文 111 代码如下 阅读全文
posted @ 2020-08-17 22:59
大黑山
阅读(633)
评论(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
大黑山
阅读(784)
评论(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
大黑山
阅读(491)
评论(0)
推荐(0)
浙公网安备 33010602011771号