如何用VB连接SQL数据库做登录

VB连接SQL数据库，可通过ADO数据对象和SQL结构化查询语言实现。

ADO (ActiveX 数据对象)， 这项新的数据访问技术的特性包括：更简单的对象模型；与其它 Microsoft 和非 Microsoft 
的技术更好的集成；为本地和远程数据数据提供的通用接口；可远程访问的和断开的记录集；用户可访问的数据绑定接口；以及层次结构的记录集。

结构化查询语言(Structured Query Language)简称SQL，是一种特殊目的的编程语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统。

代码示例：

Private Sub XPButton1_Click()

    On Error GoTo finish '防错代码，防止意外而导致的退出

    sql = "select * from 用户管理 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'"

    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登录数据库用户名(默认为sa);Password=登录数据库密码;Initial Catalog=数据库名;Data Source=服务器名(默认为:MERRYCHINA)" '这是连接SQL数据库的语句 

    cn.Open

    rs.CursorLocation = adUseClient

    rs.Open sql, cn, adOpenDynamic, adLockOptimistic

    '以上使用最通用的方法来查询数据库中是否有匹配的记录

    If rs.EOF = True Then '如果没有记录则说明用户或密码为错误的

        If pnum < 2 Then 'pnum就是密码验证次数，当次数超过3次，系统会自动保护退出

            pnum = pnum + 1

            MsgBox "用户名或密码错误!", vbInformation, "错误次数：" & pnum

            rs.Close

            cn.Close

            Text1.Text = ""

            Text2.Text = ""

            Text1.SetFocus

            Exit Sub

        Else

            MsgBox "用户名或密码错误超过三次,系统会自动退出", vbInformation, "提示"

            End

        End If

    Else

        loginname = rs.Fields(0)

        Form1.Show

        rs.Close

        cn.Close

    End If

    Exit Sub

finish:

    MsgBox Err.Description

    rs.Close

    cn.Close

End Sub

注意 cn.ConnectionString此句需依据实际的SQL数据库建立连接获得的字符串。