vba 筛选某两个日期之间的数据

gxdheero

公司里我开发了一个程序，但是这个问题始终解决不了，望高手看看吧
比如我要选9-1到9月10日间的数据，然后显示在LISTVIEW中，其中，combobox1和2的rowsource都取用了名称(名称中的日期在sheet3)
调试了很多次都失败了。。。明天要交了，哎，急啊，在线等
请查看附件

335081548

1. Private Sub CommandButton2_Click()
   
2.     ListView1.ListItems.Clear
   
3.     Dim Conn As Object, Rst As Object
   
4.     Dim strConn As String, strSQL As String
   
5.     Dim i As Integer, PathStr As String, arr
   
6.     Set Conn = CreateObject("ADODB.Connection"): Set Rst = CreateObject("ADODB.Recordset")
   
7.     PathStr = ThisWorkbook.FullName   '设置工作簿的完整路径和名称
   
8.     Select Case Application.Version * 1    '设置连接字符串,根据版本创建连接
   
9.     Case Is <= 11
   
10.         strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
    
11.     Case Is >= 12
    
12.         strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    
13.     End Select
    
14.     Conn.Open strConn    '打开数据库链接
    
15.     '设置SQL查询语句
    
16.     strSQL = "Select 发生日期,证券代码,证券名称,委托方向 from [Sheet1$] where 发生日期>=#" & ComboBox1.Text & "# And 发生日期<= #" & ComboBox2.Text & "# And 证券名称='" & ComboBox3.Text & "'"
    
17.     Set Rst = Conn.Execute(strSQL)    '执行查询，并将结果输出到记录集对象
    
18.     arr = Rst.getrows
    
19.     arr = Application.WorksheetFunction.Transpose(Application.WorksheetFunction.Transpose(arr))
    
20.     Rst.Close: Conn.Close    '关闭数据库连接
    
21.     Set Conn = Nothing: Set Rst = Nothing    '释放变量
    
22.     If UBound(arr) < 1 Then Exit Sub
    
23.     With ListView1
    
24.         For i = 1 To UBound(arr, 2)
    
25.             Set itm = .ListItems.Add()
    
26.             itm.Text = arr(1, i)
    
27.             itm.SubItems(1) = arr(2, i)
    
28.             itm.SubItems(2) = arr(3, i)
    
29.             itm.SubItems(3) = arr(4, i)
    
30.         Next
    
31.     End With
    
32. End Sub
    
33. Private Sub UserForm_Initialize()
    
34.     Dim r As Integer, c As Integer
    
35.     With ListView1
    
36.         .ColumnHeaders.Add , , "发生日期", 100, 0
    
37.         .ColumnHeaders.Add , , "证券代码", 100, 1
    
38.         .ColumnHeaders.Add , , "证券名称", 100, 1
    
39.         .ColumnHeaders.Add , , "委托方向", 100, 1
    
40.         .View = lvwReport
    
41.         .Gridlines = True
    
42.     End With
    
43. End Sub
    
44. 
    

复制代码

gxdheero

多谢，我试试看

LMY123

ADO窗体查询

gdtao8

335081548 发表于 2013-10-28 12:49

谢谢你的代码,也谢谢楼主发的这个帖,我学到东西了.

yz_zax

日期区间   筛选  mark

lhzhy1989

学习下，好洋气

lhzhy1989

看看，学习一下