拜托看一下，这段代码怎么老是出问题？！是关于数据库查询的。(二)

Question

data1.databasename="c:\1.mdb"   '数据库路径和数据库名
strSQL = "Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号='" &  searchstr & "'"
data1.recordsource=strsql
data1.refresh
msflexgrid1.refresh

Answer 1

"Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号='" &searchstr&"'"
        

Answer 2

strSQL = "Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号=" & " '&searchstr&'"改为：
strSQL = "Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号= '" & searchstr & "'"
        

Answer 3

你的 字段 PKlogin2.车牌号  -- 的类型是什么? 文本? 数字?

Answer 4

strSQL = "Select [车牌号] From PKlogin2 where [车牌号]= '" & searchstr & "'"

Answer 5

拜托，ACCESS？SQL语句错了，照cgb_prince()的吧

Answer 6

data1是数据控件啊。
我按大家的方法改过了，没有用，错误依旧。哪位大侠帮我运行试试，OK？

Answer 7

还有就是说缺少语句结束！！ 
hehe,那说明你的 searchstr 中含有单引号 ' 啊。

Answer 8

Private Sub command1_Click()
      Dim strSQL As String
      Dim searchstr As String
      searchstr = InputBox("请输入车牌号：", "查找车牌")  '有问题
        
        strSQL = "Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号=" & " '&searchstr&'"
        msgbox strsql   '  <-----  add here 
        If Trim(strSQL) <> "" Then
          Data1.RecordSource = strSQL
          Data1.Refresh
          
        Else
          MsgBox ("对不起，不能输入空号。")
        End If
    End sub

Answer 9

能不能msgbox strsql  ,然后把strsql贴出来看看,也许就能知道了!
        

Answer 10

用adodc不行吗？
data控件不太好用

Answer 11

"Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号='" &searchstr&"'"

Answer 12

Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号="&searchstr

Answer 13

你自己建立一个数据环境（Data Environment）在环境中建立一个连接（到Data1中），测试一下连接情况，再建立一个Command1（一段SQL语句）,将Data1.recordsource设为Command1。试试看。应该可以了。

Answer 14

明明是sql语句错了，别的没有什么可讨论的。
cqq_chen(我是谁）
810303(航海)  
说的都对。可能有部分符号显示不清楚。我改为中文标点如下
strSQL = “Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号=‘“ & searchstr & ”’”