[已解决]VB查询 修改

qihaizhong2013

        实例：
     Public Sub Command1_Click()
   Adodc1.ConnectionString = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\入库信息管理系统.mdbersist Security Info=False"
   Adodc1.RecordSource = "select * from 天津北特"        '连接货品入库数据表
   Adodc1.RecordSource = "select * from 天津北特 where 纳品日期 between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#"
   Adodc1.RecordSource = "select * from 天津北特 where 车种 =" & "'" & Text1.Text & "'"
   Adodc1.RecordSource = "select * from 天津北特 where LOT =" & "'" & Text2.Text & "'"
   Adodc1.Refresh
  含义：查询功能共计三项 时间段、text1、text2
问题点：当时间条件满足text1、text2为空时查找结果为空
修改：当时间条件满足text1、text2为空时 只查询符合时间条件的内容，text1、text2任意一个为空时不进行条件查询

最佳答案

月排行榜 / 总排行榜

开辆小富康

2013-6-16 11:10

1. Public Sub Command1_Click()
   
2. 
   
3. Dim strSql As String
   
4. Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\入库信息管理系统.mdb;Persist Security Info=False"
   
5. strSql = "select * from 天津北特 where 纳品日期 between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#"
   
6. 
   
7. If Text1 <> "" And Text2 <> "" Then
   
8. strSql = strSql & "and 车种='" & Text1.Text & "' and LOT ='" & Text2.Text & "'"
   
9. End If
   
10. 
    
11. Adodc1.RecordSource = strSql
    
12. Adodc1.Refresh
    
13. 
    
14. Set DataGrid1.DataSource = Adodc1
    
15. DataGrid1.Refresh
    
16. DataGrid1.Columns(0).Width = 1200
    
17. DataGrid1.Columns(1).Width = 1200
    
18. DataGrid1.Columns(2).Width = 1200
    
19. DataGrid1.Columns(3).Width = 1200
    
20. DataGrid1.Columns(4).Width = 1200
    
21. DataGrid1.Columns(5).Width = 1200
    
22. DataGrid1.Columns(6).Width = 2400
    
23. End Sub

复制代码

跳转到最佳答案楼层

qihaizhong2013

text1、text2任意一个为空时不作为条件查询

hwc2ycy

1. Public Sub Command1_Click()
   
2.     Adodc1.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\入库信息管理系统.mdb;persist Security Info=False"
   
3.     Adodc1.RecordSource = "select * from 天津北特"        '连接货品入库数据表
   
4.     Adodc1.RecordSource = "select * from 天津北特 where 纳品日期 between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#"
   
5.     If Len(text1.Text) And Len(text2.Text) Then
   
6.         Adodc1.RecordSource = "select * from 天津北特 where 车种 =" & "'" & text1.Text & "'"
   
7.         Adodc1.RecordSource = "select * from 天津北特 where LOT =" & "'" & text2.Text & "'"
   
8.         Adodc1.Refresh
   
9.     End If
   
10. End Sub

复制代码

qihaizhong2013

不行呀！这样编辑text1、2就完全没有什么意义了，text1、text2任意一个为空时不作为条件查询

qihaizhong2013

举个简单的例子，当时间条件有了Text1 Text2为空查询的结果是满足时间段的结果，如果时间段条件有了Text1条件有了Text2为空时，查询的结果应该是满足时间段和Text1的结果，如果时间段条件有了Text2条件有了Text1为空时，查询的结果应该是满足时间段和Text2的结果，如果三个条件全有那么就完全查找结果了，

hwc2ycy

你用的是ADO不？

qihaizhong2013

好像是！具体我不懂

qihaizhong2013

我窗体控件adodc

开辆小富康

1. Public Sub Command1_Click()
   
2. 
   
3. Dim strSql As String
   
4. Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\入库信息管理系统.mdb;Persist Security Info=False"
   
5. strSql = "select * from 天津北特 where 纳品日期 between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#"
   
6. 
   
7. If Text1 <> "" And Text2 <> "" Then
   
8. strSql = strSql & "and 车种='" & Text1.Text & "' and LOT ='" & Text2.Text & "'"
   
9. End If
   
10. 
    
11. Adodc1.RecordSource = strSql
    
12. Adodc1.Refresh
    
13. 
    
14. Set DataGrid1.DataSource = Adodc1
    
15. DataGrid1.Refresh
    
16. DataGrid1.Columns(0).Width = 1200
    
17. DataGrid1.Columns(1).Width = 1200
    
18. DataGrid1.Columns(2).Width = 1200
    
19. DataGrid1.Columns(3).Width = 1200
    
20. DataGrid1.Columns(4).Width = 1200
    
21. DataGrid1.Columns(5).Width = 1200
    
22. DataGrid1.Columns(6).Width = 2400
    
23. End Sub

复制代码

qihaizhong2013

这几编辑虽然可以使用，但是Text还是不能配合时间段条件单一使用，如果说text1、text2配合时间段条件进行单一查找怎么修改呀!