vb2010+access数据库连接

VB2010+Access用户登陆验证(精简)

Public Class login

'管理员登陆

Private Sub Button1_Click(ByVal sender As System.Object, ByVa l e As System.EventArgs) Handles Button1.Click

Dim ObjConn As New OleDb.OleDbConnection("Provider=Micros oft.Jet.OLEDB.4.0;Data Source=cardbs.mdb")

Dim ObjCom As New OleDb.OleDbCommand("select * from admin ", ObjConn)

Dim ObjDap As New OleDb.OleDbDataAdapter

Dim ObjDar As OleDb.OleDbDataReader

Dim pd As Boolean = False

Dim i As Integer

ObjCom = New OleDb.OleDbCommand("select * from admin", Ob jConn)

'与数据库建立连接

ObjConn.Open()

ObjDar = ObjCom.ExecuteReader

'循环判断与数据库中数据是否相同

Do While ObjDar.Read()

If ComboBox1.Text = "" Then

MsgBox("请输入用户名！")

ElseIf Trim(ComboBox1.Text) <> (ObjDar.Item("admin_na me")) Then

MsgBox("用户名不存在！")

ComboBox1.Focus()

ElseIf TextBox2.Text = "" Then

MsgBox("请输入密码！")

'End If

ElseIf Trim(TextBox2.Text) <> (ObjDar.Item("admin_psw ")) Then

MsgBox("密码输入不正确！")

'TextBox2.Focus()

Else

For i = 0 To ObjDar.FieldCount - 1

If Trim(ComboBox1.Text) = (ObjDar.Item("admin _name")) And Trim(TextBox2.Text) = (ObjDar.Item("admin_psw")) Then 'MsgBox("成功登陆")

Me.Hide()

Form_main.Show()

pd = True

Exit Sub

End If

Next

End If

Loop

ObjDar.Close()

ObjConn.Close()

End Sub

Private Sub LoginForm1_Load(ByVal sender As System.Object, By Val e As System.EventArgs) Handles MyBase.Load

Dim X0 As Long

Dim Y0 As Long

'让窗体居中

X0 = Screen.PrimaryScreen.Bounds.Width

Y0 = Screen.PrimaryScreen.Bounds.Height

X0 = (X0 - Me.Width) / 2

Y0 = (Y0 - Me.Height) / 2

Me.Location = New Point(X0, Y0)

ComboBox1.Text = "admin"

TextBox2.Text = "admin"

End Sub

End Class