这句SQL语句怎么写成代码呀

twinkle210022

If Val(Combo_Al.Text) > 0.81624 And Val(Combo_Al.Text) < 0.90216 Then
Select Al from 土壤化学信息表 where Al=0.8592End If

twinkle210022

自己上网查了发现原来不能用RunSQL 操作，需要用OpenQuery操作
好像比较复杂，要引用DAO

roych

Access里默认会引用DAO的。如果需要修改数据源的话，可以用sql来确定（前提是必须有这个查询，否则就需要用DAO来创建一个查询），大体语句如下：
Dim qry As QureyDef
set qry=DAO.QueryDefs("查询1")
If Combo_A> 0.81624 And Combo_Al < 0.90216 Then
qry.SQL="Select Al from 土壤化学信息表 where Al=0.8592"
End If

twinkle210022

roych 发表于 2011-12-24 10:22
Access里默认会引用DAO的。如果需要修改数据源的话，可以用sql来确定（前提是必须有这个查询，否则就需要用 ...

这个查询是有的，表中的数据都是文本型的，所以比较时用了val（）转换成数字，但是在select语句中Al=0.8592是数字，不知道用怎样的语句转成文本型
Dim qry As QueryDef
Set qry = CurrentDb.QueryDefs("信息查询")
If val(Combo_Al.text) > 0.81624 And val(Combo_Al.text) < 0.90216 Then
qry.SQL = "select Al from 土壤化学信息特性表 where Al=0.8592"
DoCmd.OpenQuery "信息查询"
End If
所有的表里面的数据都是文本型的，一操作就说数据类型不匹配，我想应该是select语句中的那个Al=0.8592的类型不匹配的原因吧，但是不知道该怎么修改啊，还有就是用select语句的时候用不用那个openquery呀

roych

twinkle210022 发表于 2011-12-24 16:34
这个查询是有的，表中的数据都是文本型的，所以比较时用了val（）转换成数字，但是在select语句中Al=0.85 ...

0.8592前后分别加上单引号。