- Код: Выделить всё
Private Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim sqlQuery, sqlQuery2, sqlQuery3, comboText As String
Dim comboItem, comboItemReal, sqlQueryID As Integer
SqlConnection1.Open()
SqlSelectCommand1.Connection = SqlConnection1
sqlQuery3 = "select Password from tblLogin where firstName='comboItem'"
SqlSelectCommand1.CommandText = sqlQuery3
SqlSelectCommand1.ExecuteNonQuery()
SqlConnection1.Close()
If Me.txtPass.Text = sqlQuery3 Then
MessageBox.Show("Пароль верен", "Подтверждение", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("Пароль не верен", "Подтверждение", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
подскажите пожалуйста что не так???