sql server 身份验证sa登录密码是 sql身份验证登录名和密码

转载

mob64ca1405d568 2023-11-01 16:50:40

文章标签 sql 数据库服务器用户名 SQL 文章分类 SQL Server 数据库

文章目录

1.定义ConnectString方法
2.定义ExecuteSQL方法
3.查询用户名是否存在（1）
4.查询用户名是否存在（2）
5.查询输入的密码是否正确

总结

1.定义ConnectString方法

学生信息管理系这个项目首先要与SQL server进行连接，语句如下：

Public Function ConnectString() As String
    ConnectString = "fileDSN=studentinfo.dsn;UID=sa;PWD=123456"
    '一个SQL语句，目的在于建立与SQL的连接'
End Function

vb与数据库的连接时，需要建立一个文件的DSN，建立流程看我之前的博文：学生信息管理系统问题调试。
studentinfo.dsn就是建立连接时设置的数据源名称。

sql server 身份验证sa登录密码是 sql身份验证登录名和密码_用户名

UID=sa;PWD=123456是用户登录连接SQL server的账号和密码。

sql server 身份验证sa登录密码是 sql身份验证登录名和密码_数据库_02

2.定义ExecuteSQL方法

建立连接后，要想向数据库查询想要的数据，需要先定义一个执行方法：ExecuteSQL

'方法ExecuteSQL定义为ADODB.Recordset类型，SQL和MsgString是它的两个参数，'
'使用方法为：ExecuteSQL(SQL,MsgString)'
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String
    
    '如果遇到错误就跳转到错误处理代码'
    On Error GoTo ExecuteSQL_Error
    
    'Split把SQL分割成一个一个的字符串，并按序排号'
    sTokens = Split(SQL)
    Set cnn = New ADODB.Connection'实例化cnn为一个ADODB.Connection对象'
    cnn.Open ConnectString	'使用ConnectString方法'
    
    'instr函数为字符查找函数，其功能是查找一个字符串在另一个字符串中首次出现的位置'
    'Ucase$(sTokens(0)) 将所有的英文字符转换成大写字母,方便查找是否包含"INSERT,DELETE,UPDATE"'
    If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then 
        cnn.Execute SQL 
        MsgString = sTokens(0) & " query successful"
        '虽然MsgString不是返回值，但传递方式是ByRef，实参地址和这个地址相同
    Else                                                               
        Set rst = New ADODB.Recordset	'实例化rst为一个ADODB.Recordset对象'
        '得到含有用户名和密码的临时表，游标指向第一条记录'
        rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
        
        Set ExecuteSQL = rst
        MsgString = "查询到" & rst.RecordCount & " 条记录 "
   End If
   
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
   MsgString = "查询错误: " & Err.Description
   Resume ExecuteSQL_Exit
      
End Function

3.查询用户名是否存在（1）

方法定义完了，开始在user数据库的info表中查找所有满足user_ID=txtUserName.Text条件的值，并赋给txtSQL，没有则显示NULL。

txtUserName.Text：登陆时用户输入的用户名
user_ID：是数据库中记录用户名那一列的名字

txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"

1.单引号是干啥使的？
答：单引号和双引号的作用几乎是一样的，起引用作用，只不过一个运用在数据库，一个运用在VB。比如：

text1.text=“你好” [VB中]
text1.text=‘你好’ [数据库中]
2.首先把txtSQL看作是A

A="select * from student_Info where student_ID = '" & txtUserName.Text & "'"

然后把双引号中的内容分作两个部分，用a，b代替

a=select * from student_Info where student_ID = '
b='

那么，A = "a" & txtUserName.Text & "b"

4.查询用户名是否存在（2）

mrc已经实例化，包含了ExecuteSQL内的参数，可以用来查询用户名和密码是否正确。

Dim mrc As ADODB.Recordset
Set mrc = ExecuteSQL(txtSQL, MsgText)	'在第3步，txtSQL已经被赋予了值'

If mrc.EOF Then ……
'mrc.EOF=False，说明记录集游标不在结尾，用户名存在，下一步查询密码是否正确'
'mrc.EOF=True，说明记录集游标已经在结尾了，用户名不存在，无法登陆，提示用户"用户名不存在"'

5.查询输入的密码是否正确

txtPassword.Text：登陆时用户输入的用户名密码

Trim(mrc.Fields(1)) = Trim(txtPassword.Text)
'mrc记录集的字段（0）是用户名，字段（1）就是这个用户名的密码'
'OK = True,说明密码正确，可以成功登陆跳转下一个窗体'
'OK = False,说明密码不正确，无法登陆，提示用户"密码不正确"'