通过数据库中的过滤数据添加列表框 [英] add list box by filter data from the data base

问题描述

 List1.Clear 
 如果 Combo1.Text =  有氧运动 然后 
 rs.MoveFirst 
 执行   不 rs.EOF 
 如果 rs.Fields（  time）= Combo4。文本和 rs.Fields（  expdate）> 日期 然后 
n = n +  1  
 List1.AddItem n&  & rs.Fields（  id）&  & rs.Fields（  name）
 结束 如果 
 rs.MoveNext 
 循环 
 结束 如果 

我的combo4列表就像坐着1，坐着2 ......



i试过 f rs.Fields（time）= sat 1和rs.Fields（expdate）>日期然后



但我无法获得列表框..当我尝试使用相同代码的不同字段时，它正常工作..我不知道这个问题是什么。任何人都可以帮助我。

解决方案

SA - 真的吗？每个帖子抨击vb6 ???

我使用vb6，自从它发布以来，实际上从vb3开始使用，我有100的1000代码行，工作得很好，单个应用程序我我一直试着写这个花了我2天的vb6现在是在vb.net的第3个月。当.net被发布时我没有留下深刻的印象，我现在仍然没有留下深刻的印象！



zakariyaptpl394，正如其他人所说，在你的查询中设置过滤器



示例：

从{table}中选择*其中Time ='sat 1'

List1.Clear
If Combo1.Text = "Aerobics" Then
rs.MoveFirst
Do While Not rs.EOF
   If rs.Fields("time") = Combo4.Text And rs.Fields("expdate") > Date Then
      n = n + 1
      List1.AddItem n & "  " & rs.Fields("id") & "   " & rs.Fields("name")
   End If
rs.MoveNext
Loop
End If

my combo4 lists are like sat 1 , sat 2 ...

i have tried f rs.Fields("time") = " sat 1" And rs.Fields("expdate") > Date Then

but i couldn't get the list box..when i tried with different fields with same code its working properly ..i don't know whats the problem with this .any one can help me.

解决方案

SA - really? Every post bashing vb6???
I use vb6, have been since it was released, actualy started using since vb3, i have 100's of 1000's of lines of code that work just fine and a single app i've been trying to write that would have taken me 2 days in vb6 is now on month 3 in vb.net. I wasn't impressed when .net was released, i'm still not impressed with it now!

zakariyaptpl394, as others have stated, set your filter in your query

Example:

"Select * from {table} where Time='sat 1'"

这篇关于通过数据库中的过滤数据添加列表框的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！