VB 设计器下 DataEnvironment1 下 command1 属性下的SQL语句中 时间问题？

Question

VB 设计器下 DataEnvironment1 下
command1 属性下的SQL语句中SELECT ....
 .
 . 
 .
FROM....
 . 
 . 
 .
WHERE （收费。日期=‘2003-8’）
我需要将2003-8 改为当前年月的上一月

Answer 1

dim dqy as LONG
dim dqyu as LONG
dqy=Yeardate())
dqyu =Month(date())SELECT ....
 .
 . 
 .
FROM....
 . 
 . 
 .
WHERE （收费。日期='" & str(dqy) & str(dqyu) & "'）"
我需要将2003-8 改为当前年月的上一月

Answer 2

dim dqy as integer
dim dqyu as integer
dqy=Year(date)
dqyu =Month(date)if dqyu = 1 then
    dqy = dqy - 1 
    dqyu = 12
else
    dqyu = dqyu - 1
end if
SELECT ....
 .
 . 
 .
FROM....
 . 
 . 
 .
WHERE （收费.日期='" & dqy & "-" & dqyu & "'）"

Answer 3

VB 设计器下 DataEnvironment1 下
command1下 commandtext属性下的SQL语句中在那里定义
dim dqy as integer
dim dqyu as integer
dqy=Year(date)
dqyu =Month(date)  ？WHERE （收费.日期='" & dqy & "-" & dqyu & "'）"
SQL语句不认VB的写法！  " & dqy & "-" & dqyu & "？

Answer 4

在你想要调用连接VB 设计器下 DataEnvironment1 下
command1下 commandtext属性下的SQL语句的窗体或控件方法里定义啊
如：
Private Sub Command1_Click()
dim dqy as integer
dim dqyu as integer
dqy=Year(date)
dqyu =Month(date)if dqyu = 1 then
    dqy = dqy - 1 
    dqyu = 12
else
    dqyu = dqyu - 1
end if
If DataEnvironment1.rscommand1.State = 1 Then
          DataEnvironment1.rscommand1.Close
          End If
          DataEnvironment1.Commands("command1").CommandText = &_“SELECT ....FROM....WHERE （收费.日期='" & dqy & "-" & dqyu & "'）"
'如果你要传给报表的话就
报表名.show
          
End Sub

Answer 5

DataEnvironment1.rscommand1.State = 1 
可以用吗？
你试了吗？我以前的写法和这类似，但不管用
我在试一下，给你回复