Jump to content

Passar dados SQL para TextBox's


Juvex
 Share

Recommended Posts

Dim con1 As New SqlClient.SqlConnection
        Dim cmd1 As New SqlClient.SqlCommand
        Dim rd1 As SqlClient.SqlDataReader
        Dim perfil As String

        TxtNome2.Enabled = True
        TxtContacto2.Enabled = True
        TxtUser2.Enabled = True
        TxtPass2.Enabled = True
        RdnAdmin2.Enabled = True
        RdnOutro2.Enabled = True

        con1.ConnectionString = ConStr

        con1.Open()
        cmd1.Connection = con1

        cmd1.CommandText = " SELECT nome, contacto, username, password, tipo FROM Login WHERE username = ('" & Me.TxtNome2.Text & "') "

        rd1 = cmd1.ExecuteReader
        rd1.Read()

        Try
            If rd1.HasRows Then

                If TxtNome2.Text = rd1.Item("nome") Then


                    TxtNome2.Text = rd1.Item("nome")
                    TxtContacto2.Text = rd1.Item("contacto")
                    TxtUser2.Text = rd1.Item("username")
                    TxtPass2.Text = rd1.Item("password")
                    perfil = rd1.Item("tipo")

                    Select Case perfil
                        Case "Admin"
                            RdnAdmin2.Checked = True
                        Case "Outro"
                            RdnOutro2.Checked = True
                        Case Else
                            MsgBox("ERRO - User Desconhecido", MsgBoxStyle.Critical)
                    End Select
                Else
                    MsgBox(" User inexistente! ", MsgBoxStyle.Exclamation)
                    con1.Close()
                    TxtPass2.Enabled = False
                    RdnAdmin2.Enabled = False
                    RdnOutro2.Enabled = False
                    BtnAlterar.Enabled = False
                End If
           End If
        Catch ex As Exception
            MsgBox(" User inexistente!", MsgBoxStyle.Exclamation)
            con1.Close()
            TxtPass2.Enabled = False
            RdnAdmin2.Enabled = False
            RdnOutro2.Enabled = False
            BtnAlterar.Enabled = False
        Finally
            con1.Close()
        End Try

eu com este código estou a tentar fazer a leitura dos dados de um utilizador através do nome, e caso o nome exista ele vai buscar tudo o que lhe diz respeito.

o meu problema é que ele ao entrar no "HasRows" dá falso, dizendo assim que o utilizador não existe 😛

alguém me pode ajudar?

Link to comment
Share on other sites

parece-me tudo bem... mas ainda podes fazer uma coisa... transforma tudo o que tas a comparar em minusculas ou maiusculas... não exista para aí um problema qualquer...

Outra solução.... no debug, pega na instrução e corre-a directamente no sql server...para ver se dá algum erro.

Quando te pedirem peixe.... ensina-os a Pescar!!Hum..lálálálá!!

Link to comment
Share on other sites

parece-me tudo bem... mas ainda podes fazer uma coisa... transforma tudo o que tas a comparar em minusculas ou maiusculas... não exista para aí um problema qualquer...

Outra solução.... no debug, pega na instrução e corre-a directamente no sql server...para ver se dá algum erro.

vou fazer isso 😛

o mais parvo é que ele (programa) nem o utilizador mais simples chamado "Claudia" ele vai buscar :X

Link to comment
Share on other sites

o mais parvo é que ele (programa) nem o utilizador mais simples chamado "Claudia" ele vai buscar :X

Atenção que dessa forma tens de procurar o nome exactamente igual. Se o nome na base de dados estiver como "Claudia Maria" e procurares por "Claudia" não funciona, ou como o José Lopes já disse, atenção às minusculas/maiusculas.

Se quiseres procurar por parte do nome deves fazer: " ... username = '%" & Me.TxtNome2.Text & "%'"

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.