VB中SQL查询语句的问题
我想用sql语句做一个数据库的查询,效果是输入某人的编号,然后他所有的信息出现在当前用户界面,数据控件与数据库的连接在属性中已经设置,我写的代码如下,本人初学,没有成功,...
我想用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
我现在的问题是,运行没有出错,但是并没有查询效果,无论输入什么都显示原界面。 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询