vb是如何连接数据库的

vb是如何连接数据库的

        刚开始学习数据库时 ，对数据库很不了解，尤其是模块中的代码。照着抄都有很多错的，每一句到底是什么意思呢，根本不懂。于是我就花费了大量的时间去查每一句代码的具体作用，直到我师傅说让我带着问题前进的时候。

        不过我还是稍微有点成果的——我弄懂了模块中的连接数据库的代码。先写出来一些我自己的理解，如果错了，请大家不惜赐教。

  

1. Sub Main()                              '从sub main启动工程  
2.    Dim flogin As New frmlogin          '登陆窗体的模版 ，其中flogin 是一个窗体，不过为什么不直接登录就不懂了。。。  
3.    flogin.Show vbModal                 '把登陆窗体实例化  
4.    If Not flogin.OK Then               'ok是加载在flogin窗体的一个开关，用来确定是否登陆成功  
5.        End  
6.    End If  
7.    Unload flogin  
8.      
9.    Set fMainForm = New frmMain         '窗体实例化，类似flogin  
10.    fMainForm.Show  
11. nd Sub  

进入登陆界面

            

点击确定后的代码运行方式

          

1.  Private Sub cmdok_Click()  
2.   Dim txtSQL As String                      '定义一个字符串，存放sql的语句。  
3.   Dim mrc As ADODB.Recordset               ’定义一个结果集（或者说是临时的表格）存放从数据库中调出的数据  
4.   Dim MsgText As String                     ’定义一个字符串，存放连接数据库的结果。一般不再用户界面体现  
5.   
6.   If Trim(txtUserName.Text) = "" Then        '验证用户名栏是否为空  
7. MsgBox "请输入用户名", vbOKOnly, "警告"      '如果是空的话，直接警告并退出  
8. exit sub  
9.   Else  
10.         txtSQL = "select * from user_info where user_ID='" & Trim(txtUserName.Text) & "'"              'sql语句，这句话的意思是从                                                                            'user_info 的表格中取出来所有user_id =用户名中 字符的行。  
11.         Set mrc = Executesql(txtSQL, MsgText)       '通过Executesql()这个函数将sql 语句送入，并将操作结束后得到的结果集赋值给 mrc <span style="white-space:pre">                  </span>' 括号中的txtsql存放的就是sql字符串，关于executesql()函数的运行方式，下面有详细的描述。  
12.   
13.       If mrc.EOF Then                ’.eof是mrc的一个属性，如果从数据库中进行了sql语句的操作,数据库将从第一句开始查找符合条件的项<span style="white-space:pre">                   </span>'进行操作，如果查到了最后一句，并且没有发现任何符合条件的项，就会返回. eof= true  否则返回的<span style="white-space:pre">                  </span>'则是 .eof=flase   如果他报错的话，说明连接失败  详情参见：<a target=_blank href="http://blog.csdn.net/liyasong666888/article/details/37931469">mrcc.eof</a>  
14.       MsgBox "没有该用户，请重新输入！", vbOKOnly, "警告"  
15.              txtUserName.SetFocus  
16.       Else                                         '如果从数据库中找到了所要找的项的话进行如下操作（此时数据存入mrc)  
17.            If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then        '调出数据中的第一列，看其值是否等于用户输入的密码。  
18.                  OK = True  
19.                  Me.Hide  
20.                  UserName = txtUserName.Text  
21.           Else  
22.               MsgBox "密码错误，请重新输入密码"  
23.               txtPassword.Text = ""  
24.               txtPassword.SetFocus  
25.           End If  
26.   
27.      End If  
28.   
29.   End If  
30.   
31. d sub