como preencher as textbox com os dados ao digitar o codigo na textbox do codigo do dado no formulario?

Question

Bom dia!

como preencher as textbox com os dados ao digitar o codigo do registro na textbox do codigo do registro no formulario usando o vb.net e linq to sql?

ou seja: eu tenho um formulario com duas TextBox, TextBoxCodigo, e textboxNome

quero que ao digitar o codigo na primeira textbox o sistema faz a consulta e se existir exibe o nome na segunda textbox.

usando o Linq to sql e vb.net 

Tabela: Cadastro de Actividades

Campos: CodigoActividade Int , NomeActividade varchar (70)

na aplicação Fiz o Mapeamento das tabelas usando o (Datacontext)

Obrigado e bom dia!

---

Daniel Rosa Iniciante de programação em vb.net, linq sql e Sql server

Answer 1

Bom dia!

como preencher as textbox com os dados ao digitar o codigo do registro na textbox do codigo do registro no formulario usando o vb.net e linq to sql?

ou seja: eu tenho um formulario com duas TextBox, TextBoxCodigo, e textboxNome

quero que ao digitar o codigo na primeira textbox e o usuario precionar a tecla ENTER, o sistema faz a consulta e se existir exibe o nome na segunda textbox ou preenche as textbox com os dados da pesquisa.

usando o Linq to sql e vb.net

Tabela: Cadastro de Actividades

Campos: CodigoActividade Int , NomeActividade varchar (70)

na aplicação Fiz o Mapeamento das tabelas usando o (Datacontext)

a pesquisa deve ser feita ao premirmos a tecla ENTER na textboxcodigo.

Obrigado e bom dia!

---

Daniel Rosa Iniciante de programação em vb.net, linq sql e Sql server

Answer 2

esta é a função que faz a pesquisa no banco de dados

   Public Function LocalizarActividadeCodigo(ByVal CodigoActividade As Integer) As DAL.ActividadeEmpresa
            'função para localizar uma actividade pelo codigo ou pelo nome
            Using ctxt As New DAL.DANIROSADataContext
                Dim actividades = (From actividad In ctxt.ActividadeEmpresas
                             Where actividad.Codigo = CodigoActividade
                             Select actividad).FirstOrDefault
                Return actividades
            End Using

aqui o codigo no formulario, para buscar a actividade pelo seu codigo

 Private Sub TxtCodigoActividade_KeyUp(sender As Object, e As KeyEventArgs) Handles TxtCodigoActividade.KeyUp
        'aqui este codigo pesquisa o artigo pelo codigo
        If e.KeyCode = Keys.Enter Then
            If TxtCodigoActividade.Text.Length > 0 Then

                Dim a As DAL.ActividadeEmpresa = (New BLL.DANIROSA.ActividadeBLL).LocalizarActividadeCodigo(TxtCodigoActividade.Text.Trim)
                If a IsNot Nothing Then
                    TxtDescriçãoActividade.Text = a.Nome.ToString
               
                End If
            End If
        End If
        End Sub

mas não esta a funcionar, sera que estou a usar o evento errado? eu coloquei o codigo da chamada n evento KeyUp da textboxCodigo.

Eu quero que depois de digitar o codigo  do registo e clicar na tecla ENTER ele faz a busca e preenche a outra textbox com o nome da actividade.

Obrigado quem poder dar um palpite.

---

Daniel Rosa Iniciante de programação em vb.net, linq sql e Sql server