Board logo

标题: [基础] 帮忙看看代码,哪里不对。。。 [打印本页]

作者: 哼哼    时间: 2008-7-2 19:35     标题: 帮忙看看代码,哪里不对。。。

Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
If (Text1.Text = "") Or (Combo1.Text = "") Then
  MsgBox "条件不能为空", vbQuestion, "提示信息"
  Combo1.SetFocus
  Else
         Set rs = cnn.Execute("select * from 供货商明细表 where +'" + Trim(Combo1.Text) + "' like + '%' +'" + Trim(Text1.Text) + "'+ '%'")
         If rs.RecordCount > 0 Then
         MsgBox "找到符合的记录", vbQuestion, "提示信息"
         Else
         MsgBox "没找到符合的记录", vbQuestion, "提示信息"
       End If
   rs.Close
End If
End Sub


运行时不报错,但是输入条件后怎么都查询不到记录,库中确实有符合条件的记录。请高手帮帮忙。本人菜鸟,刚长羽毛就碰到难题了,在此拜谢各位大佬!
作者: Nothing    时间: 2008-7-2 19:50

直接用cnn.Execute反回的rs没有RecordCount 信息
应当加上
rs.movelast
rs.movefirst
然后再 If rs.RecordCount > 0 Then




欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/) Powered by Discuz! 6.0.0