SQL 如何写Between "" and ""

旺彩童子　发表于：2009-02-15 19:02:20 　

复制

有一表(Table1)一字段（Month)设为文本例如200705,200706,200708..... 现将Table1作为子窗体数据源。根据主窗体控件的值进行查找。。。

Combo1 设为开始月份 Combo2 设为结束月份。查询按钮Cmd10. 问题：如何将字段MONTH 的值赋值给变量　？　例如

Sub Cmd10_click ()

Dim StrSQL as string

StrSQL ="Select * from Table1 where 1=1"

If ISNULL(Me.Combo1) = False Then

StrSQL = StrSQL & "And Month ???? 如何写？因为。　MONTH 为文本。。　

End If

Me.subform.Form.RecordSource = StrSQL

mE.SUBFORM.FORM.REFRESH

eND sub

在选择查询中　我只要将Month 设条件为　Between "xxxxxx" AND "XXXXXX"

Top

ACMAIN.CHM 发表于：2009-02-15 19:36:16

StrSQL = StrSQL & "And Month between '" & Me.Combo1.value & "' and '" & Me.Combo2.value & "'"

**************
* 一切皆有可能 *
**************

QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase
http://www.accessbbs.cn/bbs/index.php
http://www.accessoft.com/bbs/index.asp
http://www.office-cn.net/vvb/?fromuid=141646
http://www.access-programmers.co.uk/forums

http://www.office-cn.net/home/space.php?uid=141646

Top

旺彩童子发表于：2009-02-15 20:11:42

Private Sub Command2_Click()
Dim StrSQL As String
StrSQL = "Select * from tTable where 1=1"
If IsNull(Me.CombAct) = False Then
StrSQL = StrSQL & "And EGAIT1 like '*" & Me.CombAct & "*'"
End If
If IsNull(Me.CombGen) = False Then
StrSQL = StrSQL & "And Nature_ID Like '*" & Me.CombGen & "*'"
End If
If IsNull(Me.Combo10) = False Then
StrSQL = StrSQL & "And Month Between " & Me.Combo10.Value & " And " & Me.Combo12.Value
End If
MsgBox StrSQL
Me.Child37.Form.RecordSource = StrSQL　　　错误提示后**标记在此处
Me.Child37.Form.Refresh

End Sub

运行后提示　Run-tIME ERROR 2002.

you canceled the previous operation

不晓得那你出错

Top

ACMAIN.CHM 发表于：2009-02-15 20:23:36

你的语句是直接从 1 楼，抄下来的吗？！

请练习一下找不同。

Top

旺彩童子发表于：2009-02-15 20:30:16

StrSQL = StrSQL & "And Month Between " & Me.Combo10.Value & " And " & Me.Combo12.Value

这局是模仿你一楼的提示写的。。　请直接提示我错在哪。。我试了N遍。　还是不晓得错在哪。。　晕啊！