vb6.0 和 SQL 条件查询问题

显示全部楼层 · 2011-4-29 12:02:24

Setadors=adoCon.Execute(sql)
Ifadors.EOFThen
Callqingkong
MsgBox\"没有符合您查询车辆的条件！\",,\"系统提示\"
Else
Adodc1.RecordSource=sql
Adodc1.Refresh
EndIf
adors.Close

我这个是条件查询~~运行时不可以查询系统提示Setadors=adoCon.Execute(sql)有问题

千问 · 2011-4-29 12:02:24

HI我我教你

千问 · 2011-4-29 12:02:24

sql=\"select*fromcldawhere\"defds123scpdefds123\"and\"defds123slxdefds123\"and\"defds123sjsydefds123\"and\"defds123sbxdefds123\"and\"defds123syddefds123\"and\"defds123sbf
Ifsql=\"select*fromcldawhereCARNOlike\'%\'andCARTYPElike\'%\'andDRINOlike\'%\'andCINSURANCElike\'%\'andCHANGElike\'%\'andCUSELESSlike\'%\'\"Then
MsgBox\"请选择查询条件\",,\"系统提示\"
ExitSub
EndIf
实时错误424

千问 · 2011-4-29 12:02:24

select*from表whereAandBandC
没这样的写法

千问 · 2011-4-29 12:02:24

不可以吗~~可是我之前这个
IfText2.Text=\"\"Then
Adodc1.RecordSource=\"selectdistinct*fromcldawhereCARNO=\'\"defds123Text1.Textdefds123\"\'\"
Adodc1.Refresh
EndIf可以运行吖
那我怎么改呢

千问 · 2011-4-29 12:02:24

--select*from表whereAandBandC
上面的A怎么？B怎么？C怎么？你起码加个判断啊
例如：
select*from表whereA=1andB=2andC=3
之类的
你下面的selectdistinct*fromcldawhereCARNO=\'\"defds123Text1.Textdefds123是指定的
你改为selectdistinct*fromcldawhereCARNO你试试行么？