EXCEL版本2010,

引用

Private Sub CommandButton1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set Cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Dim connstr
Dim sql
Dim bt
Dim et
Dim bno
Dim sht As Worksheet

connstr = "Provider=sqloledb;Server=172.16.10.20\wincc;Database=KMTC;Uid=sa;Pwd=0000;" 'This Connection String must be remembered for a long period.
conn.Open connstr
bt = Range("B1").Value
et = Range("D1").Value
bno = Range("G1").Value
sql = "SELECT '" & bt & "到" & et & "' as savedate ,[Materials_Name]" & vbNewLine & _
"    ,sum([Save_Weight]) as settedWeight" & vbNewLine & _
"      ,sum([PV_Weight]) as realWeight" & vbNewLine & _
"  FROM [KMTC].[dbo].[Save_Weight]" & vbNewLine & _
"where save_date between '" & bt & "' and '" & et & "'"
If bno <> Empty Then
sql = sql & " and [Batch_Number] = '" & bno & "'"
End If
sql = sql & "group by [Materials_Name]"
rs.Open sql, conn
i = 4
Set sht = ThisWorkbook.Worksheets("sheet3")
For j = 4 To 30
    sht.Cells(j, 1) = Empty
    sht.Cells(j, 2) = Empty
    sht.Cells(j, 3) = Empty
    sht.Cells(j, 4) = Empty
    sht.Cells(j, 8) = Empty
    sht.Cells(j, 9) = Empty
    sht.Cells(j, 10) = Empty
Next

Do While Not rs.EOF
    sht.Cells(i, 1) = rs("savedate")
    sht.Cells(i, 2) = rs("Materials_Name")
    sht.Cells(i, 3) = rs("settedWeight")
    sht.Cells(i, 4) = rs("realWeight")
    rs.MoveNext
    i = i + 1
Loop
rs.Close

sql = "SELECT [Batch_Number]" & vbNewLine & _
"      ,sum([Save_Weight]) as settedWeight" & vbNewLine & _
"      ,sum([PV_Weight]) as realWeight" & vbNewLine & _
"  FROM [KMTC].[dbo].[Save_Weight]" & vbNewLine & _
"where save_date between '" & bt & "' and '" & et & "'" & vbNewLine & _
"group by [Batch_Number]"
rs.Open sql, conn
i = 4
Do While Not rs.EOF
    sht.Cells(i, 8) = rs("Batch_Number")
    sht.Cells(i, 9) = rs("settedWeight")
    sht.Cells(i, 10) = rs("realWeight")
    rs.MoveNext
    i = i + 1
Loop
rs.Close
conn.Close
End Sub

好吧,还有一些excel的数据有效性的设定。

先记什么多。

VBA访问SQLSERVER2005筛选数据库的更多相关文章

  1. Sqlserver2005附加数据库时出错提示操作系统错误5(拒绝访问)错误5120的解决办法

    Sqlserver2005附加数据库时出错提示操作系统错误5(拒绝访问)错误5120的解决办法 最近几天从网上找了几个asp.net的登录案例想要研究研究代码,结果在用 Sql Server2005附 ...

  2. SQLServer2005+附加数据库时出错提示操作系统错误5(拒绝访问)错误5120的解决办法

    SQLServer2005+ 附加数据库时出错提示操作系统错误5(拒绝访问)错误5120的解决办法 我们在用Sql SQLServer2005+附加数据库文件时弹出错误信息如下图的处理办法: 方案一: ...

  3. [经使用有效]Sqlserver2005附加数据库时出错提示操作系统错误5(拒绝访问)错误5120的解决办法

    sqlserver2005附加数据库时出错提示操作系统错误5(拒绝访问)错误5120的解决办法 最近几天从网上找了几个asp.net的登录案例想要研究研究代码,结果在用 Sql Server2005附 ...

  4. Excel中使用VBA访问Access数据库

    VBA访问Access数据库 1. 通用自动化语言VBA VBA(Visual Basic For Application)是一种通用自动化语言,它可以使Excel中的常用操作自动化,还可以创建自定义 ...

  5. .NET跨平台之旅:升级至ASP.NET 5 RC1,Linux上访问SQL Server数据库

    今天微软正式发布了ASP.NET 5 RC1(详见Announcing ASP.NET 5 Release Candidate 1),.NET跨平台迈出了关键一步. 紧跟这次RC1的发布,我们成功地将 ...

  6. 如何让用户只能访问特定的数据库(MSSQL)

    背景 客户的SQL Server实例上有多个厂商的数据库,每个数据库由各自的进行厂进行商维护, 为了限定不同厂商的维护人员只能访问自己的数据库,现需要给各个厂商限定权限,让他们登录SQL Server ...

  7. 11月7日下午PHP----PDO访问方式操作数据库

    MySQLI是专门访问MySQL数据库的,不能访问其它数据库.PDO可以访问多种的数据库,它把操作类合并在一起,做成一个数据访问抽象层,这个抽象层就是PDO,根据类操作对应的数据库.mysqli是一个 ...

  8. 通过 SQL Server 视图访问另一个数据库服务器表的方法

    今天项目经理跑过来对我大吼大叫说什么之前安排让我做一大堆接口为什么没做,我直接火了,之前明明没有这个事情…… 不过事情还要解决,好在两个项目都是用的sqlserver,可以通过跨数据库视图来快速解决问 ...

  9. Sliverlight linq中的数组筛选数据库中的数据

    首先 什么是linq呢 ? LINQ即Language Integrated Query(语言集成查询),LINQ是集成到C#和Visual Basic.NET这些语言中用于提供查询数据能力的一个新特 ...

随机推荐

  1. javascript代码解释执行过程

    javascript是由浏览器解释执行的脚本语言,不同于java c,需要先编译后运行,javascript 由浏览器js解释器进行解释执行,总的过程分为两大块,预编译期和执行期 下面的几个demo解 ...

  2. VS2012无法安装cocos2d-x-2.1.4 解决方法及VS2012新建coco2d-x项目(一)

    转自:http://www.cnblogs.com/wangpei/admin/EditPosts.aspx?opt=1 (注:此方法是可行,仅供参考,建议大家直接看我的 一见命令解决vs安装并创建c ...

  3. 项目源码--Android视频MV类网站客户端

    下载源码 技术要点: 1.视频MV类网站客户端框架 2.底部TAB功能模块 3.用户管理模块 4.结合优质动画技术,良好的用户体验 5.用户设置模块 6.sqlite数据库灵活的应用 7.源码带有非常 ...

  4. 工作随笔记 点击除div自身之外的地方,关闭自己

    <div id="showSelectOptions" style="width:100px;height:100px;background-color:red;b ...

  5. C# 数据的加密解密

    /// <summary> /// 加密数据 /// </summary> /// <param name="Text"></param& ...

  6. Linux分区有损坏修复

    如果Linux分区有损坏情况,启动有问题,不能正常进入文本或图形界面.那么一般会出现提示,需要输入Root密码登录后采用fsck -t ext3 -r /usr/local 修复 , /usr/loc ...

  7. Windows配置端口转发

    windows命令行下用netsh实现端口转发 微软Windows的netsh是一个命令行脚本实用工具.使用netsh工具 ,可以查看或更改本地计算机或远程计算机的网络配置.不仅可以在本地计算机上运行 ...

  8. TFS 2010 使用手册(三)权限管理

    本文参考了 蔚蓝的宁静 http://www.cnblogs.com/tymo/archive/2011/03/21/1990550.html 等文章. 1.权限说明 1.1 权限关联 TFS的权限与 ...

  9. remove all .git files and directories use one command

    find . -type d -name ".git" | xargs rm -rf

  10. centos下 rpm包sphinx安装成功提示

    sphinx: /etc/sphinx /usr/share/sphinx Sphinx installed! Now create a full-text index, start the sear ...