Data1.RecordSource = "select * from ruku  where (ruku." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")"

解决方案 »

  1.   

    示例,假设
    Combo1.Text = "aaaaa"
    Text1.Text = "bbbbb"则语句等同于select * from ruku  where (ruku.aaaaa like 'bbbbb*')这是个SQL查询语句,从ruku表中返回所有字段ruku.aaaaa中包含bbbbb*的所有记录
      

  2.   

    Private Sub Command1_Click() 
    Data1.RecordSource = "select * from ruku where (ruku." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")" 
    Data1.Refresh 
    End Sub Private Sub Command2_Click() 
    On Error Resume Next 
     Data1.Recordset.Delete 
     Data1.Refresh End Sub Private Sub Command3_Click() 
    Unload Me 
    End Sub Private Sub Form_Activate() 
    Combo1.AddItem ("药品编号") 
    Combo1.AddItem ("药品名称") 
    Combo1.AddItem ("批号") 
     Combo1.ListIndex = 0 
    End Sub Private Sub Form_Load() 
    Data1.DatabaseName = App.Path & "\医院药品进销存系统.mdb" 
    End Sub 
    这是所有的查询代码,不知道为什么,药品名称和批号能用,单独药品编号不能用,一查就出错  
     
     
      

  3.   

    参数太少。所需个数 <number>。(错误 3061)
    这是错误提示信息,大家看看该怎么改呢
      

  4.   

    在Data1.RecordSource = "前设置一个断点,运行,按Command1,在代码窗口看看Data1.RecordSource的值是什么~~~~~
      

  5.   

    没得到错误的时候Data1.RecordSource的值吗?或者是错误时点“调试”,然后在立即窗口(按Ctrl+G)里输入“?Data1.RecordSource”然后回车,,看看输出结果是什么~~~
      

  6.   

    select * from ruku  where (ruku.药品编号 like "0001*")
    这是输出结果,再按回车时,提示,缺少case
      

  7.   

    ……不知道为什么会错~~你确认其他两个都可以通过吗~~~~会不会是引号的问题,改成单引号试试——Chr(39)——:)偶实在不知道错的原因~~~