MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Completar registro com textbox

    avatar
    scripitor92
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 08/06/2017

    Completar registro com textbox Empty Completar registro com textbox

    Mensagem  scripitor92 8/6/2017, 16:13

    Pessoal eu estou fazendo um programinha pra faculdade em VB.Net e estou usando o access como banco de dados.
    Neste programa eu tenho um formulário de pesquisa. Neste formulário tenho uma textbox de nome "txtNome", uma textbox de idade "txtIdade" e uma textbox de e-mail "txtEmail".
    Gostaria que quando eu escrevesse o nome da pessoa na txtNome os outros campos fossem preenchidos automaticamente. Eu tentei fazer mas só deu certo se ao em vez de eu colocar o nome da pessoa eu colocar o o código correspondente.
    Como faço para resolver isto?

    Vou postar o código q tentei fazer:

    Private Sub txtNome_SelectedIndexChanged(sender As Object, e As EventArgs) Handles txtNome.SelectedIndexChanged

     Dim dr As OleDbDataReader = Nothing
           Using con As OleDbConnection = GetConnection()
               Try
                   con.Open()
                   Dim sql As String = "SELECT * FROM usuarioBD where nomeBD=" & txtNome.Text
                   Dim cmd As OleDbCommand = New OleDbCommand(sql, con)

                   dr = cmd.ExecuteReader

                   If dr.HasRows Then
                       dr.Read()
                       txtEmail.Text = dr.Item("emailBD")
                       txtIdade.Text = dr.Item("idadeBD")
                     

                   
                   End If

               Catch ex As Exception
               Finally
                   con.Close()


               End Try
           End Using

    End Sub
    Dilson
    Dilson
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    Completar registro com textbox Empty Re: Completar registro com textbox

    Mensagem  Dilson 9/6/2017, 11:23

    Olá seja bem vindo.

    O fórum é exclusivo para tratar VBA (Visual Basic for Applications) para MSAccess e apesar de derivada existe variações na sintaxe. Pode ser que não seja atendido.

    Em todo caso vamos aguardar se algum colega que também trabalha com VB possa intervir.
    avatar
    kzeu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 10/12/2012

    Completar registro com textbox Empty Re: Completar registro com textbox

    Mensagem  kzeu 24/8/2017, 02:32

    scripitor92

    Altere essa Linha assim

    Dim sql As String = "SELECT * FROM usuarioBD where nomeBD='" & txtNome.Text & "' "
    Para cadeia de caracteres o critério fica dentro de aspas duplas e simples.

      Data/hora atual: 7/3/2021, 03:18