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

  您的代码系统提示未找到方法或数据成员!指出错误在     combo2  
  combo2是字符型，我将程序改为：  
  adodc1.recordset.findfirst("类别="   "&   combo2   &"   "   and   起始号<="   &   text   &"   and   终止号>="   &   text2.text)  
  系统又提示：未找到方法或数据成员!  
  指出错误在：findfirst  
   
  帮帮忙！  
  再想想办法 问题点数：54、回复次数：8Top

1 楼LiuJunjiang（蓝精灵）回复于 2001-06-16 20:46:00 得分 5

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

2 楼huanggx（大侠）回复于 2001-06-16 21:02:00 得分 5

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

3 楼fishboyok（fish）回复于 2001-06-16 21:04:00 得分 5

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

4 楼liu_feng_fly（笑看风云 搏击苍穹 衔日月）回复于 2001-06-16 21:06:00 得分 0

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

5 楼jxliyong（无言）回复于 2001-06-16 21:22:00 得分 0

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

6 楼liu_feng_fly（笑看风云 搏击苍穹 衔日月）回复于 2001-06-16 21:27:00 得分 39

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

7 楼jxliyong（无言）回复于 2001-06-16 21:35:00 得分 0

依然如故！  
  我把它改成下面这样还不行，会不会与前面的语句有关，而问题并不出有这一句上？  
  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   Sub  
   
   
   
  Private   Sub   Command2_Click()  
  Adodc1.Recordset.FindFirst   ("起始号='1111111111111'")  
   
  End   Sub  
   
  Private   Sub   Command3_Click()  
  Adodc1.Recordset.Update  
  End   Sub  
   
  Private   Sub   Command4_Click()  
  Adodc1.Recordset.CancelUpdate  
  End   Sub  
   
  Private   Sub   Command5_Click()  
  End  
  End   Sub  
   
  Top

8 楼liu_feng_fly（笑看风云 搏击苍穹 衔日月）回复于 2001-06-17 12:58:00 得分 0

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

相关问题

• 数据库
• adodc1
• findfirst
• 单引号
• combo
• subprivate
• recordset
• 字符串
• 类别
• sub command

• 帖主：jxliyong
• LiuJunjiang
• huanggx
• fishboyok
• liu_feng_fly

• Visual Basic类图书
• Visual Basic类源码下载