以前在网上看见一位博主写的是asp.net(vb)连接sql server由于当时作业要求的是连接access。在网上还真不好找。毕竟用access连接数据库大多是应用于教学中，实际应用中用的很少，所以就改了一下那位博主的代码。贴出代码和大家一起分享一下。
 
asp.net(vb)连接access2003
准备一个login.aspx页
两个Textbox控件:id:UserNameTextbox,UserPswdTextbox
准备一个Button控件:id:Button1
2个hyperlink:1,2
      1,显示用户姓名
      2,用户所执行的权限操作
一个linkbutton为清除Session变量退出用户登陆
一个数据库,一张用户表

<!--用户数据库验证开始-->
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Partial 
Class web_Default
    InheritsSystem.Web.UI.Page
 
    ProtectedSub Button1_Click(ByValsender
As Object,ByVal e
AsSystem.EventArgs) Handles Button1.Click
        Dimname 
As String= UserNameTextbox.Text
        DimPswd 
As String= UserPswdTextbox.Text
        Dimconn 
As NewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & Server.MapPath("..\me.mdb"))
        conn.Open()
        DimcheckUser 
As String= "select * from [user] where username='"& name &
"' and password='"& Pswd & 
"'"
        Dimcmd 
As NewOleDbCommand(checkUser, conn)
        Dimdr 
As OleDbDataReader
        dr = cmd.ExecuteReader()
        Ifdr.Read 
Then
            Ifdr.GetValue(1).ToString() = name
Then
                If dr.GetValue(2).ToString() = Pswd
Then
                    Session("user") =
"isok"
                    Session("username") = name
                    Session("userid") = dr.GetValue(0).ToString
                   Response.Redirect("Default.aspx")
                End 
If
            EndIf
        EndIf
End Sub
<!--用户验证结束-->

<!--登陆结果显示,关于操作权限的结果-->
 
 
    ProtectedSub Page_Load(ByValsender
As Object,ByVal e
AsSystem.EventArgs) Handles
Me.Load
        LinkButton2.Visible = False
        Label5.Visible = False
        HyperLink2.Visible = False
        LinkButton1.Visible = False
        IfSession("user") =
"isok" Then
            LinkButton2.Visible = True
            Label5.Visible = True
            LinkButton1.Visible = True
            Label1.Text = "欢迎您，" + Session("username")
            IfSession("username") =
"sunqinlong2008" Then
                Label5.Visible = False
                HyperLink2.Visible =True
                LinkButton2.Visible= True
                HyperLink2.Text = "欢迎您，" + Session("username")+
"点此进入网站管理中心"
            EndIf
        EndIf
 
End Sub
 
<!--退出登陆状态,需要清楚session变量-->
 
 
    ProtectedSub LinkButton1_Click(ByValsender
As Object,ByVal e
AsSystem.EventArgs) Handles LinkButton1.Click
 
        Dimconn 
As NewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & Server.MapPath("..\me.mdb"))
        conn.Close()
        Session("user") = 
"isnook"
        Session("username") = 
""
 
    EndSub
<!--普通及用户所执行的操作,点此参数传递到普通用户资料修改页-->
 
    ProtectedSub LinkButton2_Click(ByValsender
As Object,ByVal e
AsSystem.EventArgs) Handles LinkButton2.Click
        Response.Redirect(".\Talk.aspx?id=" + Session("username"))
    EndSub
End Class
 

这个过程稍微有点麻烦，还是来回答一下吧
问题的关键在于，如何实现VB与Access之间的链接，这里通过SQL语句来实现
当然了，SQL语句也有很多包括检索(select)、排序检索(order by)、过滤(where)、插入(insert)等等......
这个先不管，先来看看数据库
数据库一看感觉很像excel，我们先新建一个表
有三列，字段名分别是“ID”、“账户”、“密码”，在这里呢字段名可以是字母也可以是汉字(我是为了方便才用的汉字，不要学我)
然后可以在下边添加信息(我这里已经添加了一条了)，也可以在表名那右键进入“设计视图”去更改字段的更多信息。这些不是重点，不进行详述。
这样一个简易的数据库就搭建好了，但要注意几点：①保存的时候要另存为保存成“.mdb”文件！原因好像是VB只兼容老版本的数据库格式。②数据库文件和vb的工程要保存在同一个文件夹里
数据库搭建好后，回到VB，首先新建一个工程，接着，按顺序完成以下步骤：
①在“工程”-“引用”勾选“Mircrosoft ActiveX Data Object 2.5 Library”选项。
②在下图位置右键新建一个模块，双击模块进入代码输入窗口
③在代码窗输入以下代码(有地方需改动)
Public gsConStr As String
Public gcnCon As ADODB.Connection
Public dataPath As String
Public curDire As String
Public curFile As String
Public Const MainPassword As String = "000000"
Public sql As String
Public rstemp As ADODB.Recordset
Sub main()
Set gcnCon = New ADODB.Connection
dataPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "我的2020.mdb"  '修改相应的数据库名称
gsConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dataPath & ";Persist Security Info=False"
gcnCon.ConnectionString = gsConStr
gcnCon.CursorLocation = adUseClient
gcnCon.Open
FrmDenglu.Show  '修改相应的登陆窗体名称
End Sub
④在“工程”-“属性”修改启动对象为“Sub Main”
⑤在登陆窗体上放上相应的控件(两文本框一按钮)
⑥进入代码编辑窗，输入以下代码(有地方需改动)
Option Explicit
Dim islogin As Boolean
Private Sub Command1_Click()
Dim x%
sql = "select * from admin where 账户='" & Text1.Text & "' and 密码='" & Text2.Text & "'"   'SQL语句
Set rstemp = gcnCon.Execute(sql)        '执行SQL语句
If Not rstemp.EOF Then            '查找是否存在该账户及密码，如果存在
islogin = True
Unload Me
FrmMain.Show                  '修改成相应主窗体，即登陆后想要见到的下一个窗体
Else                              '如找不到所输入账户和密码
x = MsgBox("用户名或密码错误！", 5, "提示")
If x = 4 Then
Text2.SetFocus
Else
End
End If
End If
rstemp.Close
End Sub
⑦保存，运行启动，查看代码是否有问题
上面讲解的是一般系统登陆的方法，像题主所说的区分管理员和一般用户的方法有很多种，下面给两个解决方案：
①在数据库用户表中新建一个字段，用来存储登陆账户的身份信息，在登陆时拾取人员的身份信息，进行判断之后进入相应窗体。
②在数据库中，管理员和一般用户各一个表，在登陆界面多加两个组合的Option控件，让用户自行选择以什么身份进行登录，进行判断之后进入相应窗体。

                    

 
在窗体中加入两个txt框，两个按钮。界面设计如上图所示。
数据库中设计access表，adminuser，表中创建username、passwrod两个文本字段。access文件名称为my.mdb.其源代码如下：
Imports System.Data

Imports System.Data.OleDb
Public Class LoginFrm

    Inherits System.Windows.Forms.Form

    Public ADOcmd As OleDbDataAdapter

    Public ds As DataSet = New DataSet

    Public mytable As Data.DataTable

    Public myrow As Data.DataRow

    Public rownumber As Integer

    Public searchsql As String

    Public cmd As OleDbCommandBuilder

    Public Function ExecuteSQL(ByVal SQL As String, ByVal table As String)

        ADOcmd = New OleDbDataAdapter(SQL, "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath() & "\my.mdb")

        ADOcmd.Fill(ds, table)

        mytable = ds.Tables.Item(0)

        rownumber = 0

        myrow = mytable.Rows.Item(rownumber)

    End Function
#Region " Windows 窗体设计器生成的代码 "
    Public Sub New()

        MyBase.New()
        '该调用是 Windows 窗体设计器所必需的。

        InitializeComponent()
        '在 InitializeComponent() 调用之后添加任何初始化
    End Sub
    '窗体重写 dispose 以清理组件列表。

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

        If disposing Then

            If Not (components Is Nothing) Then

                components.Dispose()

            End If

        End If

        MyBase.Dispose(disposing)

    End Sub
    'Windows 窗体设计器所必需的

    Private components As System.ComponentModel.IContainer
    '注意: 以下过程是 Windows 窗体设计器所必需的

    '可以使用 Windows 窗体设计器修改此过程。

    '不要使用代码编辑器修改它。

    Friend WithEvents Label1 As System.Windows.Forms.Label

    Friend WithEvents Label2 As System.Windows.Forms.Label

    Friend WithEvents btn_ok As System.Windows.Forms.Button

    Friend WithEvents btn_cancel As System.Windows.Forms.Button

    Friend WithEvents Txt_Username As System.Windows.Forms.TextBox

    Friend WithEvents Txt_pwd As System.Windows.Forms.TextBox

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        Me.Label1 = New System.Windows.Forms.Label

        Me.Label2 = New System.Windows.Forms.Label

        Me.Txt_Username = New System.Windows.Forms.TextBox

        Me.Txt_pwd = New System.Windows.Forms.TextBox

        Me.btn_ok = New System.Windows.Forms.Button

        Me.btn_cancel = New System.Windows.Forms.Button

        Me.SuspendLayout()

        '

        'Label1

        '

        Me.Label1.AutoSize = True

        Me.Label1.Location = New System.Drawing.Point(48, 32)

        Me.Label1.Name = "Label1"

        Me.Label1.Size = New System.Drawing.Size(54, 17)

        Me.Label1.TabIndex = 0

        Me.Label1.Text = "用户名："

        '

        'Label2

        '

        Me.Label2.AutoSize = True

        Me.Label2.Location = New System.Drawing.Point(48, 64)

        Me.Label2.Name = "Label2"

        Me.Label2.Size = New System.Drawing.Size(54, 17)

        Me.Label2.TabIndex = 1

        Me.Label2.Text = "密  码："

        '

        'Txt_Username

        '

        Me.Txt_Username.Location = New System.Drawing.Point(112, 32)

        Me.Txt_Username.Name = "Txt_Username"

        Me.Txt_Username.Size = New System.Drawing.Size(96, 21)

        Me.Txt_Username.TabIndex = 2

        Me.Txt_Username.Text = ""

        '

        'Txt_pwd

        '

        Me.Txt_pwd.Location = New System.Drawing.Point(112, 64)

        Me.Txt_pwd.Name = "Txt_pwd"

        Me.Txt_pwd.PasswordChar = Microsoft.VisualBasic.ChrW(42)

        Me.Txt_pwd.Size = New System.Drawing.Size(96, 21)

        Me.Txt_pwd.TabIndex = 3

        Me.Txt_pwd.Text = ""

        '

        'btn_ok

        '

        Me.btn_ok.Location = New System.Drawing.Point(64, 104)

        Me.btn_ok.Name = "btn_ok"

        Me.btn_ok.Size = New System.Drawing.Size(48, 24)

        Me.btn_ok.TabIndex = 4

        Me.btn_ok.Text = "登录"

        '

        'btn_cancel

        '

        Me.btn_cancel.Location = New System.Drawing.Point(160, 104)

        Me.btn_cancel.Name = "btn_cancel"

        Me.btn_cancel.Size = New System.Drawing.Size(48, 24)

        Me.btn_cancel.TabIndex = 5

        Me.btn_cancel.Text = "关闭"

        '

        'LoginFrm

        '

        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

        Me.ClientSize = New System.Drawing.Size(296, 158)

        Me.Controls.Add(Me.btn_cancel)

        Me.Controls.Add(Me.btn_ok)

        Me.Controls.Add(Me.Txt_pwd)

        Me.Controls.Add(Me.Txt_Username)

        Me.Controls.Add(Me.Label2)

        Me.Controls.Add(Me.Label1)

        Me.MaximizeBox = False

        Me.MinimizeBox = False

        Me.Name = "LoginFrm"

        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

        Me.Text = "登录"

        Me.ResumeLayout(False)
    End Sub
#End Region
    Private Sub btn_cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_cancel.Click

        Me.Close()

    End Sub
    Private Sub btn_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ok.Click

        '定义 

        Dim tablename As String

        tablename = "adminuser"

        Dim SearchSQL As String

        SearchSQL = "select username,password from adminuser where username='" & Txt_Username.Text & "'"

        Try

            ExecuteSQL(SearchSQL, tablename)

            If myrow.Item(1) = Txt_pwd.Text Then

                MsgBox("成功登陆")

                Dim FormMain As New FormMain

                FormMain.Show()

                Me.Hide()

            Else

                MsgBox("密码不正确！", vbOKOnly + vbExclamation, "警告")

                Exit Sub

            End If

        Catch

            MsgBox("無此用戶！", vbOKOnly + vbExclamation, "警告")

        End Try
    End Sub
    Private Sub LoginFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Sub Txt_pwd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Txt_pwd.KeyDown
        If e.KeyCode = Keys.Enter Then

            btn_ok.Visible = True

            btn_ok.Focus()

        End If

    End Sub
    Private Sub Txt_Username_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Txt_Username.KeyDown

        If e.KeyCode = Keys.Enter Then

            Txt_pwd.Focus()

        End If

    End Sub

End Class



 本文转自 simeon2005 51CTO博客，原文链接:http://blog.51cto.com/simeon/94357




        
        
                
    

	

VB.NET 结合Access数据库开发的含有系统登录示例
登录界面源码:
Imports System.Data.OleDbPublic Class FRM_LOGIN    Public userpass As String    Public qqx As String    Dim yzm_m As String = "**************"    Private Sub FRM_LOGIN_Load(sender As Object, e As EventArgs) Handles MyBase.Load        ''**********************************        BT_OK.BackColor = Color.Transparent        BT_QX.BackColor = Color.Transparent        PICC1.BackColor = Color.Transparent        PICC2.BackColor = Color.Transparent        PICC3.BackColor = Color.Transparent        PICC4.BackColor = Color.Transparent        ''**********************************    End Sub#Region "返回验证码"    Sub GET_YZM()        Try            Randomize()            Dim YZM_TMP As String = ""            Do While Len(YZM_TMP) < 4                Dim YZM As String = Chr((57 - 48) * Rnd() + 48)                YZM_TMP &= YZM            Loop            ''*****************            For j As Integer = 1 To Len(YZM_TMP)                Dim STR As String = Mid(YZM_TMP, j, 1)                Dim I As Integer = Int(STR)                Dim pic As PictureBox = Controls("PICC" & j)                pic.Image = ImgList.Images.Item(I)            Next            ''******************            yzm_m = YZM_TMP            ''*******************            CN_DB(userpass, qqx)        Catch ex As Exception            MsgBox("无法创建验证码:" & ex.Message, vbCritical, "VB小源码")        End Try    End Sub#End Region#Region "验证码事件"    Dim TF_CODE As Boolean = True    Private Sub TXT_YZM_Click(sender As Object, e As EventArgs) Handles TXT_YZM.Click        If TF_CODE = True And TXT_USER.Text <> "" And TXT_PASS.Text <> "" Then            GET_YZM()            TF_CODE = False        End If    End Sub    Private Sub PICC1_Click(sender As Object, e As EventArgs) Handles PICC1.Click        If TXT_USER.Text <> "" And TXT_PASS.Text <> "" Then            GET_YZM()            TF_CODE = False        End If    End Sub    Private Sub PICC2_Click(sender As Object, e As EventArgs) Handles PICC2.Click        If TXT_USER.Text <> "" And TXT_PASS.Text <> "" Then            GET_YZM()            TF_CODE = False        End If    End Sub    Private Sub PICC3_Click(sender As Object, e As EventArgs) Handles PICC3.Click        If TXT_USER.Text <> "" And TXT_PASS.Text <> "" Then            GET_YZM()            TF_CODE = False        End If    End Sub    Private Sub PICC4_Click(sender As Object, e As EventArgs) Handles PICC4.Click        If TXT_USER.Text <> "" And TXT_PASS.Text <> "" Then            GET_YZM()            TF_CODE = False        End If    End Sub#End Region    Private Sub BT_OK_Click(sender As Object, e As EventArgs) Handles BT_OK.Click        If yzm_m = TXT_YZM.Text Then            If userpass = TXT_PASS.Text Then                FRM_MAIN.Show()                Visible = False            Else                MsgBox("密码错误!", vbCritical, "警告")            End If        Else                If TXT_YZM.Text = "" Then                MsgBox("请输入验证码!", vbCritical, "警告")            Else                MsgBox("验证码错误!", vbCritical, "警告")            End If        End If    End Sub#Region "窗体事件"    Dim mo_ok As Boolean = False    Dim sele_ok As Point    Dim mo_wz As Point    Private Sub FRM_LOGIN_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown        mo_ok = True        sele_ok = New Point(e.X, e.Y)    End Sub    Private Sub FRM_LOGIN_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove        mo_wz = New Point(e.X, e.Y)        If mo_ok = True Then            Location = PointToScreen(mo_wz) - sele_ok        End If    End Sub    Private Sub FRM_LOGIN_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp        mo_ok = False    End Sub    Private Sub BT_CL_Click(sender As Object, e As EventArgs) Handles BT_CL.Click        If MsgBox("您确定要退出吗?", vbYesNo, "退出") = vbYes Then            Close()        End If    End Sub    Private Sub BT_QX_Click(sender As Object, e As EventArgs) Handles BT_QX.Click        If MsgBox("您确定要退出吗?", vbYesNo, "退出") = vbYes Then            Close()        End If    End Sub#End Region#Region "获取用户信息"    Function CN_DB(ByRef user As String, ByRef ad_qx As String) As Boolean        Try            Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\userdata.mdb;Persist Security Info=False"            Dim CN As OleDbConnection = New OleDbConnection(cnStr)            Dim sql As String = "select `密码`,`管理员` from tb_user where 用户名='" & TXT_USER.Text & "';"            Dim DA As OleDbDataAdapter = New OleDbDataAdapter(sql, CN)            Dim DS As DataSet = New DataSet            DA.Fill(DS, "tb_user")            user = DS.Tables(0).Rows(0)(0).ToString            ad_qx = DS.Tables(0).Rows(0)(1).ToString            Return True        Catch ex As Exception            Return False        End Try    End Function#End RegionEnd Class
主页面源码:
Imports System.Data.OleDbPublic Class FRM_MAIN    Private Sub FRM_MAIN_Load(sender As Object, e As EventArgs) Handles MyBase.Load        Dim qx As String = FRM_LOGIN.qqx        Dim name As String        If qx = 1 Then            name = "管理员"        Else            name = "会员"        End If        Label1.Text = "当前用户:" & FRM_LOGIN.TXT_USER.Text & "-->" & name        Label1.BackColor = Color.Transparent        ''**********************************        Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\userdata.mdb;Persist Security Info=False"        Dim CN As OleDbConnection = New OleDbConnection(cnStr)        Dim sql As String = "select * from tb_user"        Dim DA As OleDbDataAdapter = New OleDbDataAdapter(sql, CN)        Dim DS As DataSet = New DataSet        DA.Fill(DS, "tb_user")        DataGridView1.DataSource = DS.Tables(0)    End Sub    Private Sub FRM_MAIN_Closed(sender As Object, e As EventArgs) Handles Me.Closed        If MsgBox("您确定要退出吗?", vbYesNo, "退出") = vbYes Then            FRM_LOGIN.Close()        End If    End Sub    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick    End SubEnd Class
源码下载:https://www.lanzous.com/i43y93i
更多资源请继续关注我们!