返回首页

海,我建立多层次的访问登录页面,这个登录页面连接到数据库,并使用vb.net 2005和SQL 2005,
我的数据库中的表列的用户名,密码和部门。登录的作品,但我想加入ACCES级功能(计数器,管理,存储的访问级别,需要你diferent页),然后我得到了错误的类型sqlCeDataReader是不定义。请劝告我如何解决这个error.This是使用代码1登录按钮,2个文本框txtusername.Text和txtpassword.Text。下面是我的代码,我还强调错误

Public Class Login

Dim table = Me.StaffTableAdapter1

Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click

Dim nama1 As String

nama1 = Me.txtusername.Text

Dim table = Me.StaffTableAdapter1.user_pass(Me.txtusername.Text, Me.txtpassword.Text)

Dim reader As SqlCeDataReader = objComm.ExecuteReader

 

If reader.Read Then

If reader(0) = "Admin" Then

Me.Hide()

MsgBox("You Are Login " & nama1, MsgBoxStyle.OkOnly)

databasestatus.Show()

Admin.Show()

'*************************************************************************

ElseIf reader(0) = "Store" Then

Me.Hide()

MsgBox("You Are Login " & nama1, MsgBoxStyle.OkOnly)

DatabaseStatus2.Show()

page.Show()

'**************************************************************************

ElseIf reader(0) = "Counter" Then

Counter.Show()

Me.Hide()

 

End If

 

Else

MsgBox("Incorrect Username or Password!", msgBoxStyle.Information)

txtusername.Text = ""

txtpassword.Text = ""

Me.Close()

End If

回答

评论会员: 时间:2
p