to liu_feng_fly(一只菜鸟，忽忽悠悠的就飞来了！！)

Question

这位仁兄，VB的字符串里要用引号的话，应该用两个连续的引号，语句应该这么写：
adodc1.recordset.findfirst("类别="""& combo2 &""" and 起始号<=" & text &" and 终止号>=" & text2.text)

Answer 1

不同意楼上的说法。因为findfirst需要的参数是给数据库的，而access数据库要求字符串用单引号。

Answer 2

根据我的经验，＝，<=,>=的前后都要有一个空格。

Answer 3

("类别=" "& combo2 &" " and 起始号<=" & text &" and 终止号>=" & text2.text)
改成
("类别="'"& combo2 &"'" and 起始号<=" & text &" and 终止号>=" & text2.text)
       &not;&not;&not;         &not;&not;&not;  不是空格，是单引号
其他的如果是字符串也要相应的用单引号括起来

Answer 4

("类别="'"& combo2 &"'" and 起始号<=" & text &" and 终止号>=" & text2.text)
      
也不行提示缺少分隔符， 篮色错误标记就在 '上

Answer 5

那你就先写
("类别=‘类别1’and 起始号<=100 and 终止号>=10“)
再试一下
      

Answer 6

依然如故！
我把它改成下面这样还不行，会不会与前面的语句有关，而问题并不出有这一句上？
Adodc1.Recordset.FindFirst ("起始号='1111111111111'")
我的代码：Private Sub Command1_Click(Index As Integer)
Dim i As Integer
'Dim o As Integer
Adodc1.Recordset.AddNew
For i = 0 To 2
'For o = 0 To 0
Text1(i).Text = ""
'Text2.Text = ""
'Next
Next
End SubPrivate Sub Command2_Click()
Adodc1.Recordset.FindFirst ("起始号='1111111111111'")End SubPrivate Sub Command3_Click()
Adodc1.Recordset.Update
End SubPrivate Sub Command4_Click()
Adodc1.Recordset.CancelUpdate
End SubPrivate Sub Command5_Click()
End
End Sub

Answer 7

在Adodc1.Recordset.AddNew后你好象并没有给数据库中的字段付值呀
还有，你用什么显示记录，datagrid吗？