求助,关于刷新数据的设计

lbsquall

需求：1、点击刷新后，能够弱出过滤条件对话框，由查询者自己输入过滤条件，
         如按日期查询、按订单号查询、按客户查询等等。
　　　2、点击刷新后，数据能够填充到sheet2中，包含标题列。
　　　3、能够随时刷取数据库中最新数据。
      4、所有参数可以随时变更。

mNpp0hTU.rar (7.55 KB, 下载次数: 16)

2008-6-20 12:30 上传

点击文件名下载附件
求助,关于刷新数据的设计

Gemmy

给你一个例子做参考吧：

Sub GetData()
Dim SQLString
Dim StartRow As Integer
Dim conn As ADODB.Connection
Dim rsDC As ADODB.Recordset
Dim Weeknum as integer

Set conn = New ADODB.Connection
Set rsDC = New ADODB.Recordset

conn.Open "Driver={SQL Server};Server=xxxxxx;UID=IDName;PWD=Password;Database=Databasename" '设置数据连接

weeknum = inputbox("Please Key in Week Number:")

SQLString = "Select * from tablename where week="  & Weeknum  '这里根据输入的weeknum来用sql语句从数据库中得到相应的数据，可以自定义参数和sql语句以得到需要的内容
   StartRow = 2
    Set rsDC = conn.Execute(SQLString)
    Do Until rsDC.EOF
        Cells(StartRow, 1).Value = rsDC.Fields(0).Value '将查询数据填入工作表的A列
        rsDC.MoveNext
        StartRow = StartRow + 1
    Loop

End Sub