我的程序只要使用select语句就错误
搞不懂
这个是我的查询语句
帮我看看谢了Private Sub Command3_Click()
Dim mzy As String
mzy = InputBox$("请输入坛号", "查找窗")
Adodc1.RecordSource = "select * from 酒坛信息表 where 坛号= ''" & mzy & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "无此坛号!", , "提示"
Adodc1.RecordSource = "酒坛信息表"
Adodc1.Refresh
End If
End Sub
搞不懂
这个是我的查询语句
帮我看看谢了Private Sub Command3_Click()
Dim mzy As String
mzy = InputBox$("请输入坛号", "查找窗")
Adodc1.RecordSource = "select * from 酒坛信息表 where 坛号= ''" & mzy & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "无此坛号!", , "提示"
Adodc1.RecordSource = "酒坛信息表"
Adodc1.Refresh
End If
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货