vb.net代码系统登录

vb.net 登录问题

你每次取出的是表中的首条记录,当然只能用首条记录登陆了！

Dim name, password As String

name = TextBox1.Text

Dim com As New OleDb.OleDbCommand("select * from denglu where name='" name "'", conn)

Dim dr As OleDb.OleDbDataReader

conn.Open()

dr = com.ExecuteReader

dr.Read()

password = dr.GetString(1)

mesbox("成功!")

Else

msgbox("失败")

End If

dr.Close()

conn.Close()

这种情况下,效率极不好！你能理解什么意思就行了！否则将你的程序改完了！

vb.net 用户登录

哈哈简单哪

第一步：登陆网页代码

第二步：登陆以后判断是否登陆成功

有两种方法：1.获取网页代码,判断网页字符有无"登陆成功"字样

源代码：

两种方法结合起来用,可以判断网页是否无法连接

VB.NET用户登录,账号密码正确,却提示密码错误！

Private?Sub?BtOk_Click(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Btok.Click

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.OkCancel?+?MsgBoxStyle.Exclamation,?"错误提示")

ElseIf?txtName.Text?""?And?txtPasswd.Text?=?""?Then

MsgBox("请输入密码",?MsgBoxStyle.OkCancel?+?MsgBoxStyle.Exclamation,?"错误提示")

ElseIf?table.Select("用户名='"?txtName.Text?"'").Length?0?Then

If?table.Select("用户名='"?txtName.Text?"'")(0)("密码").ToString?=?txtPasswd.Text?Then

MsgBox("成功登陆",?MsgBoxStyle.OkCancel?+?MsgBoxStyle.Exclamation,?"错误提示")?Then

Form1.Show()

Me.Visible?=?False

Exit?Sub

MsgBox("密码错误",?MsgBoxStyle.OkCancel?+?MsgBoxStyle.Exclamation,?"错误提示")

End?If

MsgBox("用户名不存在",?MsgBoxStyle.OkCancel?+?MsgBoxStyle.Exclamation,?"错误提示")

table.Clear()

h1.Close()

con.Close()

End?Sub

以上就是土嘎嘎小编为大家整理的vb.net代码系统登录相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！