我用DTPicker控件与DataGrid加Adodc控件，如何使选中时间后数据能同时变；如Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
Dim w As String  '声明变量，用来保存SQL语句字符串
  '如果没有选择部分信息，则退出
  If DTPicker1.Text = "" Then
    Exit Sub
  End If
  'DTPicker1.BoundText是当前的时间，
  '以此编号设置SQL语句，读取此时间内的所有病人药品信息
  w = "select  * from dbo.AdviceListView where roomcode=2000 and intime= " _
           + DTPicker1.BoundText + "order by intime desc"
  With Adodc1
  .RecordSource = w
  .Refresh
  End With
End Sub
请各位帮我查一下

我按三断笛的改正后然不能用时间查询，现急用，请各位抽出点时间看一下

[[it] 本帖最后由 jxawgyl 于 2008-6-4 11:34 编辑 [/it]]

如何设置：然后在ADODC的Refresh后还要让DataGrid也reFresh，请指教

能在说详细点吗？我试了，不成功，我发附件上来，请看一看，另外请问如何将多个条件同时查询。

[[it] 本帖最后由 jxawgyl 于 2008-6-3 16:21 编辑 [/it]]

是不是这样写
sql = "select * from dbo.AdviceListView where  roomcode=2000 and offcode= " _
           + DataCombo1.BoundText + "and medname=(Txtmed.Text)" + "order by intime desc"
但出现错误信息：列前缀‘txtmed’与查询中所用的表名或别名不匹配
请指出

Debug输出sql的值？不明白，请说详细，谢了

谢了，真的太感谢，能否帮我再将时间的查询看一下，非常感谢