Dim newdate As Data
'总是这个DateAdd("d", 30, Now（）)有错，缺少结束符号？
Adodc1.RecordSource = "select * from 库存表 where 限制日期 > now() and 限制日期 <  DateAdd("d", 30, Now)"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
  MsgBox "没有即将到期的药品!"
  End If

Private Sub Command2_Click()
 Adodc1.RecordSource = "select * from 库存表 where 限制日期 > '" & Now() & "'  and 限制日期 <  '" & DateAdd("m", 1, Now) & "'"
 Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
  MsgBox "没有即将到期的药品!"
  End If
End Sub

我窗体上有两个控件按钮-查询和退出，一个adodc,一个DataGrid（绑定到adodc1上）
代码如下：有错
Private Sub Command2_Click()
 Adodc1.RecordSource = "select * from 库存表 where 限制日期 > #" & Now() & "#  and 限制日期 <  # " & DateAdd("m", 1, Now) & "#  "
 Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
  MsgBox "没有即将到期的药品!"
  End If
End Sub
Private Sub Command1_Click()
MDIForm1.Show
Me.Hide
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\ypcaigou.mdb"

End Sub

[[it] 本帖最后由 qgyun 于 2008-5-20 01:49 编辑 [/it]]