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就是建立连接时设置的数据源名称。
UID=sa;PWD=123456是用户登录连接SQL server的账号和密码。
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,说明密码不正确，无法登陆，提示用户"密码不正确"'
