查询SQL ,VB6.0.

韩小婼 2011-09-27 02:12:15
界面上两个输入框,供输入查询范围。如下图是界面:

第一个TxtPh1.Text,第二个TxtPh2.Text
其中数据库有个字段ph,也就是我按照它的范围查询的那个字段了。
它有如下一些数据080189
080190
080240
080301
080380
080401
080470
080501
080560
080601
080670
080701
080790
080801
0808100
0808101
080901
080981
081001
081204
081205
081206
081207
081208
081209
081210
100487
100490
100501
100601
100786
100801
100802
100803
100804
100805
100806
100807
100808
100809
100832
100833
100834
100835
100836
100837
100838
100839
100840
100841
101073
101085
101086
101087
101101
101102
101103
101104
101105
101106
101107
101108
101109
101110
101111
101112
101113
101199
1011100
1011101
1011102
1011105
1011106
101201
101214
101293
101294
101295
101296
101297
101298
101299
1012100
1012101
1012102
当我在输入框只输入前四位的时候能查出相应的数据,譬如1011,1012会查询出101101
101102
101103
101104
101105
101106
101107
101108
101109
101110
101111
101112
101113
101199
1011100
1011101
1011102
1011105
1011106
但是当我输入一个101201,10121114会查询到相应的(101201
101214
101293
101294
101295
101296
101297
101298
101299
1012100
1012101
1012102)
但是呢,这是在同一个相同的前四位,当我1011100,1012114会查询到(
1011100
1011101
1011102
1011105
1011106
101201
101214
101293
101294
101295
101296
101297
101298
101299
1012100
1012101
1012102

输入四位我解决了,但是因为我输入大于四位使用的select ph from ywjbxx,ywxxxx where cast(replace(ph,'-','0') as int) >=" & Trim(Replace(TxtPh1.Text, "-", "0")) & "and cast(replace(ph,'-','0') as int)<=" & Trim(Replace(TxtPh2.Text, "-", "0")) & " and ph like '" & Left(Me.TxtPh1.Text, 4) & "%'
使用了模糊查询,导致我只能在前四位必须相同的查询出来,第二个TEXTboX填写什么也是浪费,因为我这句不使用用模糊查询,在输入101201~1012114时候就会把08****的也查询出来,不知如何?
...全文
124 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
架构师糖糖 2012-04-06
  • 打赏
  • 举报
回复
这个真心的不知道该如何解决!
三断笛 2011-09-27
  • 打赏
  • 举报
回复
楼主题目太长了,看着晕...
king06 2011-09-27
  • 打赏
  • 举报
回复
n1=len(TxtPh1.Text)
n2=len(TxtPh2.Text)
select ph from ywjbxx,ywxxxx where cast(replace(left(ph,n1),'-','0') as int) >= x
and cast(replace(left(ph,n2),'-','0') as int)<= y
x,y换成自己的.
lxq19851204 2011-09-27
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 veron_04 的回复:]
好累!我发觉我的理解能力有限。。。。
[/Quote]
同感,看半天没看懂~~泪奔~~
贝隆 2011-09-27
  • 打赏
  • 举报
回复
好累!我发觉我的理解能力有限。。。。
  • 打赏
  • 举报
回复
神马数据库?
数据贴点看看

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧