你每次取出的是表中的首条记录,当然只能用首条记录登陆了!
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()
这种情况下,效率极不好!你能理解什么意思就行了!否则将你的程序改完了!
哈哈简单哪
第一步:登陆网页代码
第二步:登陆以后判断是否登陆成功
有两种方法:1.获取网页代码,判断网页字符有无"登陆成功"字样
源代码:
两种方法结合起来用,可以判断网页是否无法连接
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代码系统登录相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!