我用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]]

w = "select  * from dbo.AdviceListView where roomcode=2000 and intime= " _
           + DTPicker1.BoundText + "order by intime desc"
SQL SERVER:
 w = "select  * from dbo.AdviceListView where roomcode=2000 and intime= '" _
           & DTPicker1.BoundText & "' order by intime desc"
ACCESS:
 w = "select  * from dbo.AdviceListView where roomcode=2000 and intime= #" _
           + DTPicker1.BoundText + "#order by intime desc"


然后在ADODC的Refresh后还要让DataGrid也reFresh

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

DataGrid有Rebind方法和Refresh方法

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

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

多条件同时查询就把多个条件写到一个SQL语句啊

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

当然错了,你用Debug输出sql的值看看是什么,你就知道哪里错了   提示:注意引号的位置

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

本来觉得让你自己调试会比较好  不浪费时间了    应该这样:
sql = "select * from dbo.AdviceListView where  roomcode=2000 and offcode= " _
           + DataCombo1.BoundText + "and medname=" & Txtmed.Text & "order by intime desc"

看出区别来了吗?
另外,要注意字段类型,字符串类型需要加单引号