怎么用VB.NET和ACCESS做个登陆界面??
想用VB.NET和ACCESS连接做个登录界面,总是连接不上,请高手指点下.
[解决办法]
Dim Conn As OleDbConnection
Dim Cmd As OleDbCommand
Dim Rd As OleDbDataReader, SQL As String
Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0 "
Dim Database = "Data Source= " & Application.StartupPath() & "\login.mdb "
Conn = New OleDbConnection(Provider & "; " & Database)
Conn.Open()
SQL = "Select * From admin Where 用户名= ' " & user.Text & " ' And 密码= ' " & pass.Text & " ' "
Cmd = New OleDbCommand(SQL, Conn)
Rd = Cmd.ExecuteReader()
If Rd.Read() Then ' 表示有找到通过验证
MessageBox.Show( "成功 ", "ok! ")
Else
MessageBox.Show( "密码或用户名错误! ", "错误提示! ", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Rd.Close()
Conn.Close()