拜托看一下,这段代码怎么老是出问题?是关于数据库的。

KAIBate 2001-11-14 10:10:29
If Option1 = True Then
Dim strSQL As String
Dim searchstr As String
searchstr = InputBox("请输入车牌号:", "查找车牌") '有问题

strSQL = "Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号=" & " '&searchstr&'"
If Trim(strSQL) <> "" Then
Data1.RecordSource = strSQL
Data1.Refresh

Else
MsgBox ("对不起,不能输入空号。")
End If

End If

这段代码的意思是从表PKlogin2中找出相关记录后显示在MSFlexGrid1控件中。
但它始终显示:
实时错误'3011'
Microsoft Jet 数据库引擎找不到对象"Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号=" & " '&searchstr&'" 请确定对象是否存在
,并正确写出它的名称和路径。

我的MSDN竟然找不到相关内容!
我不知道错在那里,而且这种引入到程序中的SQL语言有什么格式或规范没有?
拜托各位帮忙看一下,有分送的。

...全文
52 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
foolishtiger 2001-11-15
hhdsq(笨笨)说的对,SQL语句错了,可惜我晚了好几步,遗憾!!!
回复
cgb_prince 2001-11-15
SQL语句错了,另外,如果还不行,试一下
"Select PKlogin2.[车牌号] From PKlogin2 where PKlogin2.[车牌号]='" & searchstr & "'"
回复
HowardOK 2001-11-15
应该是楼上提出的问题!!
回复
Wesely 2001-11-14
同意
回复
fraser01 2001-11-14
hhdsq(笨笨)说的对,SQL语句错了,可惜我晚了一步,遗憾!!!
回复
hhdsq 2001-11-14
"Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号=" & " '&searchstr&'"

改为:

"Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号='" & searchstr & "'"
回复
KAIBate 2001-11-14
虽然问题很菜,请大家帮个忙。
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2001-11-14 10:10
社区公告
暂无公告