在文本框输入12这个值,保存到数据库里
从数据库读出12这个值 再跟文本框12这个值比较是否等同 从而得知12这个值是否已经保存了 
我用来检测数据是否已经保存 谢谢了 ^_^ 有你的帮助 我才能更精彩'这样好想不行吧
rs.Filter = "部门代码 like '" & Text1.Text & "'"
      If rs.RecordCoun > 0 Then
      Label5.Caption = "当前记录已保存" '提示
      End If 帮忙的老大 写详细点好吗 谢谢...........

解决方案 »

  1.   

    '修改报警点名称
            sql1 = "select * from fenji where pointname='" & Text1(2).Text & "'" '查找是否已有同名的报警点名称
            Set adorst = gcnLeaguers.Execute(sql1)        If adorst.BOF Then
              sql = "update fenji set pointname='" & Trim(Text1(2).Text & "") & "',fjinum='" & Trim(Text1(1).Text & "") & "' where phynum=" & Text1(0).Text & ""
              gcnLeaguers.Execute (sql)        Else
                MsgBox "该名称已被使用,请重新输入!", vbInformation + vbOKOnly, "系统提示"
                Exit Sub
            End If
      

  2.   

    利用存储过程返回参数@@Rowcount反映修改影响的行数
    如果是0,肯定没有修改成功