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 技术交流