Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub comUsername_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles comUsername.TextChanged If comUsername.Text <> "" Then txtPassword.Enabled = True Dim user_full_name As String user_full_name = comUsername.Text SQL2 = "SELECT user_id FROM users WHERE 'user_last_name, user_name' = @user_full_name" myCommand.Connection = conn myCommand.CommandText = SQL2 myAdapter.SelectCommand = myCommand myAdapter.Fill(myData) oReader = myCommand.ExecuteReader selected_user_id = oReader("user_id") MsgBox(selected_user_id) oReader.Close() Else txtPassword.Text = "" txtPassword.Enabled = False End If End Sub
Join the community of 500,000 technology professionals and ask your questions.