Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim sqldr As SqlClient.SqlDataReader
Dim selectcmd As SqlClient.SqlCommand
selectcmd.CommandText = "select pcode from party where " & TextBox1.Text & "=pno"
selectcmd.CommandType = CommandType.Text SqlConnection1.Open() '打开连接
sqldr = selectcmd.ExecuteReader(CommandBehavior.SingleResult)
If (sqldr.Read) Then
If (TextBox2.Text = selectcmd.CommandText) Then
DataGridView1.Show()
Button1.Show()
Button2.Show()
Else
MsgBox("密码错误", , "提示")
End If
End If
SqlConnection1.Close()
每次都提示变量”selectcmd “在赋值前被使用 是怎么回事?
Dim sqldr As SqlClient.SqlDataReader
Dim selectcmd As SqlClient.SqlCommand
selectcmd.CommandText = "select pcode from party where " & TextBox1.Text & "=pno"
selectcmd.CommandType = CommandType.Text SqlConnection1.Open() '打开连接
sqldr = selectcmd.ExecuteReader(CommandBehavior.SingleResult)
If (sqldr.Read) Then
If (TextBox2.Text = selectcmd.CommandText) Then
DataGridView1.Show()
Button1.Show()
Button2.Show()
Else
MsgBox("密码错误", , "提示")
End If
End If
SqlConnection1.Close()
每次都提示变量”selectcmd “在赋值前被使用 是怎么回事?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货