代码是:
ImportsSystem.Data
ImportsSystem.Data.SqlClient
PublicClassLogin
PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click
IfTextBox1.Text=""OrTextBox2.Text=""Then
MsgBox("用户名和密码不能为空!")
Else
DimcnAsNewSqlConnection
DimpasswordAsString
DimnameAsString
DimdaAsSqlDataReader
name=TextBox1.Text
cn.ConnectionString="server=.;uid=sa;pwd=123;database=索尼手机专卖店数据库"
cn.Open()
Ifcn.State=ConnectionState.OpenThen
DimaaAsString
aa="select*from用户表where用户名='"&name&"'and密码='"&TextBox2.Text&"'"
DimcmdAsNewSqlCommand
cmd.CommandText=aa
cmd.Connection=cn
da=cmd.ExecuteReader
da.Read()
password=da.GetString(1)
IfTextBox2.Text=passwordOrpassword=""Then
MsgBox("登录成功!欢迎使用系统!",vbExclamation,"登录成功!")
Main.Show()
Else
MsgBox("登录失败!拒绝访问系统!",vbExclamation,"登录失败!")
EndIf
EndIf
EndIf
EndSub
调试时我用正确的用户名,错误的密码时在password=da.GetString(1)提示出错““在没有任何数据时进行无效的读取尝试”。为的是验证打正确的用户名时,输入错误的密码,然后提示MsgBox("登录失败!拒绝访问系统!",vbExclamation,"登录失败!")这一行。
在线求各位回答。。。
分 -->
|