锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net用户登陆 vb登录界面

IT技术MsgBoxStyle

VB.net 多用户登陆问题3个表中用户名和密码及权限都放到一个表如User中吧 方便些 。用户名用下拉框，选择姓名后直接弹出权限（Lable）.在下拉框SelectedIndexChanged事件中写即可 。
VB.NET用户登录，账号密码正确 ， 却提示密码错误！Private Sub BtOk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btok.Click
Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Admin.accdb;Persist Security Info=True")
Dim com As OleDbCommand = New OleDbCommand("select * from 用户名", con)
con.Open()
Dim h1 As OleDbDataReader
Dim table As New DataTable
h1 = com.ExecuteReader()
table.Load(h1)
If txtName.Text = "" Then
MsgBox("请输入用户名", MsgBoxStyle.OkCancelMsgBoxStyle.Exclamation, "错误提示")
ElseIf txtName.Text"" And txtPasswd.Text = "" Then
MsgBox("请输入密码", MsgBoxStyle.OkCancelMsgBoxStyle.Exclamation, "错误提示")
ElseIf table.Select("用户名='"txtName.Text"'").Length0 Then
If table.Select("用户名='"txtName.Text"'")(0)("密码").ToString = txtPasswd.Text Then
MsgBox("成功登陆", MsgBoxStyle.OkCancelMsgBoxStyle.Exclamation, "错误提示") Then
Form1.Show()
Me.Visible = False
Exit Sub
Else
MsgBox("密码错误", MsgBoxStyle.OkCancelMsgBoxStyle.Exclamation, "错误提示")
End If
Else
MsgBox("用户名不存在", MsgBoxStyle.OkCancelMsgBoxStyle.Exclamation, "错误提示")
Exit Sub
End If
table.Clear()
h1.Close()
con.Close()
End Sub
vb.net 用户登录哈哈简单哪
第一步：登陆网页代码
第二步：登陆以后判断是否登陆成功
有两种方法：1.获取网页代码，判断网页字符有无”登陆成功”字样
源代码：
2.就是判断网页是否跳转到了某一页
源代码：
两种方法结合起来用，可以判断网页是否无法连接
vb.net用户登陆！ 及判断用户存在！ 我是新手?。≌娴牟恢来碓谀睦锪耍?/h2>Dim conn As SqlConnection
Dim cn As New SqlConnection("Data Source=(local);Initial Catalog=用户登录;""Integrated Security=true") '链接数据库
你这里初始化了的CONNECTION其实是CN,不是CONN,
所以
Dim login As New SqlCommand(sqlstr, conn)
这里应该是
Dim login As New SqlCommand(sqlstr, cn)
vb.net 简单登录程序把异常堆栈打出来看看
补充：
在更新或提交的时候出现的错误，可能是某个控件的值，字符串等无法转换成数字 ， 你检查一下是不是不小心弄错了控件了
vb.net 用户登入相关问题首先要把Label1vb.net用户登陆的属性Visible设置为falsevb.net用户登陆，然后双击button1输入vb.net用户登陆：
Dim rs As New Data.DataView()
Dim rs As New DataView()
conn.DataFile = "users.mdb"
conn.SelectCommand = "select top 1 * from users where name='"txtUserName.Text"'and pass='"txtPassword.Text"'"
rs = conn.Select(DataSourceSelectArguments.Empty)
if rs.Count Then
Label1.Visible=true
Session("name") = Trim(txtUserName.Text)
Session("pass") = Trim( txtPassword.Text)
MsgBox("登录成功", MsgBoxStyle.SystemModal)
Response.Redirect("")
Else
MsgBox("对不起vb.net用户登陆！用户名和密码不正确vb.net用户登陆，请重新输入 。", MsgBoxStyle.SystemModal)
End If
【vb.net用户登陆 vb登录界面】vb.net用户登陆的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于vb登录界面、vb.net用户登陆的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何设置简易付的服务器？ 简易付的服务器设置怎么弄

    下一篇：机甲格斗专家游戏，机甲格斗的游戏