显示器指示灯闪烁:VB查询问题 哪位大哥帮一下忙

来源：百度文库 编辑：高考问答 时间：2024/04/29 05:15:39
Dim strsql As String
strsql = "select * from 每日药品计量 where 日期 ='" & dtptime.Value & "'"
If txtyao.Text <> "" Then
strsql = strsql & "' and 药品代码= '" & txtyao.Text
End If
Adodc1.RecordSource = strsql
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
我的代码错了，为什么它只能实现对时间的查找，而一对药品代码查找就出错啊。郁闷啊！
加上& "'" 也还是不行啊。。为什么啊？

If txtyao.Text <> "" Then
strsql = strsql & "' and 药品代码= '" & txtyao.Text
End If
前面多了个单引号,后面少了个单引号

sql语句少了一个引号了吧，

If txtyao.Text <> "" Then
strsql = strsql & "' and 药品代码= '" & txtyao.Text
End If

改为

If txtyao.Text <> "" Then
strsql = strsql & "' and 药品代码= '" & txtyao.Text & "'"
End If

strsql = strsql & "' and 药品代码= '" & txtyao.Text

很不幸 ... 最后少了个引号

strsql = strsql & "' and 药品代码= '" & txtyao.Text & "'"

VB查询问题 哪位大哥帮一下忙 哪位大哥帮一下忙？ CAD的问题，哪位大哥帮我解决一下 cad问题，哪位大哥帮我解决一下 哪位大哥大姐玩征途，帮我一下忙？ 大哥帮一下忙! 哪位大哥大姐帮我翻译一下？ 哪位大哥进来帮小弟一下 大哥大姐，哪位帮我翻译一下 大哥大姐，哪位帮我翻译一下