1,216
社区成员
发帖
与我相关
我的任务
分享
...
sql = "SELECT * FROM 收支表 WHERE (年份=" & syear & ") AND (月份=" & smonth & ")"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
If Not (rs.EOF And rs.BOF) Then
Text1.Text = rs("收入")
Text2.Text = rs("支出")
Text3.Text = rs("余额")
Text4.Text = rs("历史余额")
Else
MsgBox "没有记录!"
End If
...
cn.Open Connection
sql = "SELECT * FROM 收支表"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
Do Until rs.EOF
If rs.Fields("年份") = syear And rs.Fields("月份") = smonth Then
Text1.Text = rs("收入")
Text2.Text = rs("支出")
Text3.Text = rs("余额")
Text4.Text = rs("历史余额")
Exit Do
End If
rs.MoveNext
Loop
If rs.EOF Then MsgBox "没有记录!"
rs.Close
cn.Close