网站首页 > 文章中心 > 其它

vb.net代码系统登录

作者:小编 更新时间:2023-08-31 11:02:58 浏览量:150人看过

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代码系统登录相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!

版权声明:倡导尊重与保护知识产权。未经许可,任何人不得复制、转载、或以其他方式使用本站《原创》内容,违者将追究其法律责任。本站文章内容,部分图片来源于网络,如有侵权,请联系我们修改或者删除处理。

编辑推荐

热门文章