用Vb.NET 2010 试着写一个简单的登录窗口,出现以下错误

zxjnmc 2016-07-28 08:04:51
真不知道怎么回事,这个问题困扰我四五天了,请大神来帮忙!
代码如下:
Imports System.Configuration
Imports System.Data.SqlClient

Public Class Login

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim nameStr As String = txtName.Text
Dim pwdStr As String = txtPwd.Text
If nameStr = "" Then
MsgBox("用户名不能为空!")
txtName.Focus()
Return
End If
If pwdStr = "" Then
MsgBox("密码不能为空!")
txtPwd.Focus()
Return
End If
Dim connStr As String = ConfigurationManager.ConnectionStrings("MyConnectionString").ConnectionString
Dim conn As SqlConnection = New SqlConnection(connStr)
Dim cmd As SqlCommand = New SqlCommand()
cmd.CommandText = "Select*from UserDetails where username = '" & nameStr & "'"
Dim reader As SqlDataReader
Try
conn.Open()
reader = cmd.ExecuteReader()
If reader.Read() Then
If pwdStr = reader("Pwd") Then
MsgBox("正确的用户和密码")
Else
MsgBox("错误的密码")
End If
Else
MsgBox("没有此用户,请注册后再登陆")
End If
Catch ex As Exception
Throw New ApplicationException(ex.ToString())
Finally
reader.Close()
conn.Close()
End Try
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
txtName.Text = ""
txtPwd.Text = ""
End Sub
End Class


另外还出现这个问题:

我是初学者,对于这样的问题很困惑,大神一定要帮忙啊!
...全文
1299 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
hpygzhx520 2016-07-28
  • 打赏
  • 举报
回复
cmd.Connection=conn,大致如此。

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧