vb连接远程MSSQL数据库

来源：百度知道 编辑：UC知道 时间：2024/07/12 12:24:33
vb连接远程数据库成功后
怎么判断text1.text和text2.text中的文件是否和数据库中某些表的数据一样
具体是这样的
text1.text是登陆用户名用的，怎么判断它输入的是否和MSSQL数据库中的user表中的数值是否相同
text2.text是做登陆密码用的，怎么判断它输入的是否和MSSQL数据库中的
password表中的数值是否相同？
要具体的做法
做得好的可以再加分

Public rsNew As ADODB.Recordset
Public CnNew As ADODB.Connection
Public addFlag As Boolean
'连接数据库
Public Function OpenCn() As Boolean
Dim Mag As String
On Error GoTo strErrMag
Set CnNew = New ADODB.Connection
CnNew.ConnectionTimeout = 25
CnNew.Provider = "sqloledb"
CnNew.Properties("data source").value = "" 'SQL服务器的名
CnNew.Properties("initial catalog").value = "pubs"'库名
CnNew.Properties("integrated security").value = "SSPI"'登陆类型
'con.Properties("user id").value = "sa"
'con.Properties("password").value = "wwww"

CnNew.Open
OpenCn = True
addFlag = True
Exit Function
strErrMag:
Mag = "数据库末连接"
Call MsgBox(Mag, vbOKCancel, "错误:数据库连接")
addFlag = False
End
End Function
Public Sub Clocn()
'闭关数据库
On