注册 登录
编程论坛 VB6论坛

rs.eof 为什么始终默认为false

qgh603 发布于 2012-12-13 13:13, 418 次点击
  Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\新建文件夹 (2)\销售记录.mdb"
  SQL = "select * from 型号表"
  Rs.Open SQL, Cn, 3, 3

  If Text2.Text = "" Then
   c = MsgBox("请输入你要添加的型号", vbYesNo, "信息提示")
    If c = vbYes Then
      Text2.SetFocus
      Exit Sub
    Else
      Exit Sub
    End If
  End If

   If Rs.EOF = False Then
    c = MsgBox("此型号已经存在,请查证后再输入", vbYesNo, "信息提示")
       If c = vbYes Then
         Text2.Text = ""
         Text2.SetFocus
         Rs.Close
         Exit Sub
       Else
         Rs.Close
         参数添加.Hide
         Exit Sub
       End If
  End If
    Rs.AddNew
    Rs.Fields("型号") = Trim(Text2.Text)
    Rs.Update
    Rs.Close
    MsgBox "该型号保存成功"

无论数据库中该数据存在与否,都报该数据存在?为什么?希望老师们能回答,谢谢啦!
2 回复
#2
风吹过b2012-12-13 13:23
SQL = "select * from 型号表"
  Rs.Open SQL, Cn, 3, 3

你查找了这个型号吗?????

你是打开整个表,没有把 所需要 查找的 型号 代进去进行查找。
#3
qgh6032012-12-13 14:01
谢谢老师指导,已经正确了。
1