UC知道VB中SQL查询语句的问题
来源：百度知道 编辑：UC知道 时间：2024/06/20 17:23:22
我想用sql语句做一个数据库的查询，效果是输入某人的编号，然后他所有的信息出现在当前用户界面，数据控件与数据库的连接在属性中已经设置，我写的代码如下，本人初学，没有成功，请高手帮忙改正一下。
Private Sub Command1_Click()
Dim mzy As Integer
mzy = InputBox$("输入编号", "查找窗")
Data1.RecordSource = "Select * From 春雷1队,Where 编号 = '" & mzy & "'"
Data1.Refresh
If Data1.Recordset.EOF Then
MsgBox "编号输入有误!", , "提示"
Data1.RecordSource = "春雷1队"
Data1.Refresh
End If
End Sub
我现在的问题是，运行没有出错，但是并没有查询效果，无论输入什么都显示原界面。
Private Sub Command1_Click()
Dim mzy As Integer
mzy = InputBox$("输入编号", "查找窗")
Data1.RecordSource = "Select * From 春雷1队,Where 编号 = '" & mzy & "'"
Data1.Refresh
If Data1.Recordset.EOF Then
MsgBox "编号输入有误!", , "提示"
Data1.RecordSource = "春雷1队"
Data1.Refresh
End If
End Sub
我现在的问题是，运行没有出错，但是并没有查询效果，无论输入什么都显示原界面。
"Select * From 春雷1队 Where 编号 = '" & mzy & "'"
where前面不要,的
编号 = '" & mzy & "'"
你看看你的数据库的编号是什么类型的？
如果是数字类型的，则改成
编号 = " & mzy
施主请注意细节:Where前多个逗号!