SQL编辑怎么用VB实现

scleeb

select T2.[区域] as [地市],Count(T2.[区域]) as [小区数],Sum(T2.[|≥-105dBm采样点]) as [|≥-105dBm采样点_Sum],Sum(T2.[|≥-110dBm采样点]) as [|≥-110dBm采样点_Sum],Sum(T2.[|≥-115dBm采样点]) as [|≥-115dBm采样点_Sum],Sum(T2.[|≥-120dBm采样点]) as [|≥-120dBm采样点_Sum],Sum(T2.[|≥负无穷采样点]) as [|≥负无穷采样点_Sum],[|≥-105dBm采样点_Sum]+[|≥-110dBm采样点_Sum] as [大于-110采样点],[|≥-105dBm采样点_Sum]+[|≥-110dBm采样点_Sum]+[|≥-115dBm采样点_Sum]+[|≥-120dBm采样点_Sum]+[|≥负无穷采样点_Sum] as [总采样点],[大于-110采样点]/[总采样点] as [覆盖率] from [Sheet1$] as T2 group by T2.[区域]

怎么用VB实现

魂断蓝桥

VB 与vba ado 的用法差不多，表名称 直接是 table即可。

opiona

http://club.excelhome.net/thread-859194-1-1.html

scleeb

opiona 发表于 2019-1-23 15:56
http://club.excelhome.net/thread-859194-1-1.html

大神，能帮忙转换一下嘛。 我学习学习、

opiona

VB代码实例： QQ14885553.rar (206.71 KB, 下载次数: 12)

2019-1-23 22:06 上传

点击文件名下载附件

scleeb

opiona 发表于 2019-1-23 22:06
VB代码实例：

大佬，求助一下。
Sub 计算MR覆盖率()
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
    Sql = "select 区域,Count(区域) As 小区数,Sum([|≥-105dBm采样点]) as [|≥-105dBm采样点_Sum],Sum([|≥-110dBm采样点]) as [|≥-110dBm采样点_Sum],Sum([|≥-115dBm采样点]) as [|≥-115dBm采样点_Sum],Sum([|≥-120dBm采样点]) as [|≥-120dBm采样点_Sum],Sum([|≥负无穷采样点]) as [|≥负无穷采样点_Sum],[|≥-105dBm采样点_Sum]+[|≥-110dBm采样点_Sum] as [大于-110采样点],[|≥-105dBm采样点_Sum]+[|≥-110dBm采样点_Sum]+[|≥-115dBm采样点_Sum]+[|≥-120dBm采样点_Sum]+[|≥负无穷采样点_Sum] as [总采样点],[大于-110采样点]/[总采样点] as [覆盖率] from [sheet1$A1:K" & [A1048576].End(3).Row & "] group by 区域 order by 区域"
    [N2].CopyFromRecordset cnn.Execute(Sql)
    cnn.Close: Set cnn = Nothing
End Sub


我的超过65535行就报错，应该怎么解决呢、

魂断蓝桥

scleeb 发表于 2019-1-28 11:10
大佬，求助一下。
Sub 计算MR覆盖率()
    Set cnn = CreateObject("adodb.connection")

cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName

SQL = SELECT * from [sheet1$]

scleeb

魂断蓝桥 发表于 2019-1-28 11:15
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source= ...

执行还是错误，我的是1431112行

scleeb

scleeb 发表于 2019-1-28 11:35
执行还是错误，我的是1431112行

能帮我把这句修改一下吗？

scleeb

魂断蓝桥 发表于 2019-1-28 11:15
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source= ...

大神，我算出来。 但还有个问题。
聚合函数他提示我有错误。
[大于-110采样点]/[总采样点] as [覆盖率]
这块我应该怎么调整