VB6.0数据库函数封装.检测是否有重复的数据-来自VB拉链厂销售生成管理系统

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public cnn As New ADODB.Connection
Public gblServer      As String
Public gblDataBase    As String
Public gblServerLogID As String
Public gblServerPwd   As String
Public gblRemoteServerIP As String '远程服务器地址

Public SQL2008 As String
  
Public 客户姓名查询标记   As Long
'1 是销售清单里面的 按钮触发    '2 是来款清单 里面的 按钮触发

Public Sub 连接数据库SQL2008() 'cnn

  
   gblServerLogID = "sa"
   gblServerPwd = "11111111"
   gblDataBase = "kkjd"
   gblServer = "127.0.0.1,1433"   '还要打开本地端口1433
  
  SQL2008 = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & gblServerLogID & _
                                                                         ";pwd=" & gblServerPwd & _
                                                                         ";Initial Catalog=" & gblDataBase & _
                                                                         ";Data Source=" & gblServer

   cnn.Open SQL2008
End Sub


'检测是否有重复的数据
Public Function 检测是否有重复的数据(ByVal 表名 As String, ByVal 字段 As Long, ByVal 值 As String) As Boolean
     Dim 数据集对象Tem  As New ADODB.Recordset
     Dim sSQL    As String
     sSQL = "Select * from " & 表名 & " where " & 字段 & " = '" & 值 & "'"
     数据集对象Tem.Open sSQL, cnn, adOpenKeyset, adLockPessimistic
     If 数据集对象Tem.RecordCount > 0 Then
         检测是否有重复的数据 = True
     End If
      数据集对象Tem.Close
End Function

调用方法如下：

If 检测是否有重复的数据("用户表", "用户名", "老侠客") = True Then
    MsgBox "检测到 [用户表] 中已经有用户名  " & 设置用户账号密码.Text1.Text & "  ,  请不要重复添加！"
    Exit Sub
End If

 Q1016058890 技术交流