Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Whiteangel

Login - Utilizadores

Mensagens Recomendadas

Whiteangel

Boas pessoal,

Estou a fazer um login, e nesse login só já me falta verificar se o nome do utilizador (user name), ja existe na base de dados, eu sei que tem de ser através de uma consulta --> "Select * From Login " & "Where Nome= '" & nome & "'"

Mas não sei como faça no meu codigo, deixo aqui o meu codigo a ver se alguém de pode dar umas dicas :)

If TxtPassword.Text = TxtConfPassword.Text Then

		If TxtNome.Text = "" And TxtPassword.Text = "" And TxtConfPassword.Text = "" And TxtNomeComp.Text = "" And TxtMorada.Text = "" And MTBTelemovel.Text = "" And ComboSexo.Text = "" And ComboEstado.Text = "" And TxtEmail.Text = "" And TxtCodigo.Text = "" And MTBData.Text = "" And TxtLocalidade.Text = "" Then

			LbNome.ForeColor = Color.Red
			Lbpassword.ForeColor = Color.Red
			LbConfpassword.ForeColor = Color.Red
			LbNomeComp.ForeColor = Color.Red
			Lbmorada.ForeColor = Color.Red
			Lbtelemovel.ForeColor = Color.Red
			Lbestado.ForeColor = Color.Red
			Lbsexo.ForeColor = Color.Red
			Lbemail.ForeColor = Color.Red
			Lbcodigo.ForeColor = Color.Red
			Lbdata.ForeColor = Color.Red
			LbLocalidade.ForeColor = Color.Red
			LbCampos.Visible = True

		ElseIf TxtNome.Text = "" Then
			LbCampos.Visible = True
		ElseIf TxtPassword.Text = "" Then
			LbCampos.Visible = True
		ElseIf TxtConfPassword.Text = "" Then
			LbCampos.Visible = True
		ElseIf TxtNomeComp.Text = "" Then
			LbCampos.Visible = True
		ElseIf TxtMorada.Text = "" Then
			LbCampos.Visible = True
		ElseIf MTBTelemovel.Text = "" Then
			LbCampos.Visible = True
		ElseIf ComboSexo.Text = "" Then
			LbCampos.Visible = True
		ElseIf ComboEstado.Text = "" Then
			LbCampos.Visible = True
		ElseIf TxtEmail.Text = "" Then
			LbCampos.Visible = True
		ElseIf TxtCodigo.Text = "" Then
			LbCampos.Visible = True
		ElseIf MTBData.Text = "" Then
			LbCampos.Visible = True
		ElseIf TxtLocalidade.Text = "" Then
			LbLocalidade.Visible = True

		Else
			Dim myConnectionString As String = _
			"Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Acer\Documents\Visual Studio 2010\Projects\PAP\BaseDados\SS.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"

			Dim Sql As String = "INSERT INTO Login (Nome, Password, NomeCompleto, Morada, sexo, EstadoCivil, Telemovel, Email, DataNascimento, CodigoPostal, Localidade ) VALUES( @Nome, @Password, @NomeCompleto, @Morada, @sexo, @EstadoCivil, @Telemovel, @Email, @DataNascimento, @CodigoPostal, @Localidade)"

			Dim connection As New SqlConnection(myConnectionString)

			connection.Open()

			Try


				Dim command As New SqlCommand(Sql, connection)
				command.Parameters.Add(New SqlParameter("@Nome", TxtNome.Text))
				command.Parameters.Add(New SqlParameter("@password", TxtPassword.Text))
				command.Parameters.Add(New SqlParameter("@NomeCompleto", TxtNomeComp.Text))
				command.Parameters.Add(New SqlParameter("@Morada", TxtMorada.Text))
				command.Parameters.Add(New SqlParameter("@Sexo", ComboSexo.Text))
				command.Parameters.Add(New SqlParameter("@EstadoCivil", ComboEstado.Text))
				command.Parameters.Add(New SqlParameter("@Telemovel", MTBTelemovel.Text))
				command.Parameters.Add(New SqlParameter("@Email", TxtEmail.Text))
				command.Parameters.Add(New SqlParameter("@CodigoPostal", TxtCodigo.Text))
				command.Parameters.Add(New SqlParameter("@DataNascimento", MTBData.Text))
				command.Parameters.Add(New SqlParameter("@Localidade", TxtLocalidade.Text))

				command.ExecuteNonQuery()
				command.Dispose()


			Catch ex As Exception

			Finally
				connection = Nothing

			End Try

			MsgBox("Registo Efectuado com sucesso", MsgBoxStyle.Information, "Mensagem de Confirmação")
			Login.Show()
			Me.Hide()
		End If

	Else
		MsgBox("Password incorrecta", MsgBoxStyle.Critical, "Mensagem de Erro")
		TxtPassword.ResetText()
		TxtConfPassword.ResetText()
	End If

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.