none
Carregar dados nas textbox RRS feed

  • Pergunta

  • Boas

    Como carrego dados para as textbox no vb? Preciso que as textbox sejam carregadas com info de um banco de dados em sql.

    Obrigado

    terça-feira, 10 de janeiro de 2012 20:43

Respostas

  • Bacana. Vou te passar a ideia.

    'seuComboBox.SelectedValue: caso você tenha setado o DataValueMember para conter um identificador
    'seuComboBox.SelectedText recupera o Text selecionado
    Dim nome As String = seuComboBox.SelectedText
    
    Dim strConexao As String = "sua string de conexao"
    Dim strSQL As String = "SELECT TELEFONE,LOCALIDADE FROM SUA_TABELA WHERE NOME= @NOME_SELECIONADO"
    
    Dim conexao As New SqlConnection(strConexao)
    Dim command As New SqlCommand(strSQL, conexao)
    command.Parameters.Add("@NOME_SELECIONADO", SqlDbType.VarChar).Value = nome
    Dim reader As SqlDataReader = Nothing
    
    Try
    	conexao.Open()
    
    	reader = command.ExecuteReader()
    
    	'Imagino que somente 1 registro foi retornado.                 
    	While reader.Read()
    		TextboxTelefone.Text = reader("TELEFONE").ToString()
    		TextboxLocalidade.Text = reader("LOCALIDADE").ToString()
    	End While
    Catch generatedExceptionName As Exception
    	Throw
    Finally
    	If conexao IsNot Nothing Then
    		If conexao.State = ConnectionState.Open Then
    			conexao.Close()
    		End If
    	End If
    End Try
    
    



    --
    Marque as respostas e ajude a melhorar a busca do fórum.
    quarta-feira, 11 de janeiro de 2012 11:35

Todas as Respostas

  • Sabe aquele seu código para carregar o combo (Carregar banco de dados para combobox)? Então, vou usar  ele como exemplo.

    Você usou um DataTable como DataSource (fonte de dados) para o combobox, certo?

    Uma opção é pegar as linhas do DataTable e inserir em uma StringBuilder. Depois setar no TextBox (carregar os valores no textBox???)

    Dim sb As New StringBuilder()
    For Each linha As DataRow In tabela.Rows
    	sb.AppendLine(linha("numero").ToString())
    Next
    
    SeuTextBox.Text = sb.ToString()
    

    Existe outras formas.... e melhores.

     


    --
    Marque as respostas e ajude a melhorar a busca do fórum.
    quarta-feira, 11 de janeiro de 2012 11:00
  • Quando diz pegar as linhas refere-se a encher varias textbox?

    Só preciso de encher uma textbox pois o select que vou fazer só reverte um valor.

    Pode-me dizer quais são as melhores? O código  que usei para encher a combobox esta bom ou posso melhora.lo?

    Obrigado

    quarta-feira, 11 de janeiro de 2012 11:07
  • 1 - Eu faria de outra forma o código.
    2 - Quantos campos são retornados no seu select? Para que carregar informações de váriso campos em um TextBox (se for mais de um campo no select)?
    3 - Gosto muito de usar DataTable, mas não em todos os casos. Neste ai prefiro retornar uma coleção de dados (classe List)
    --
    Marque as respostas e ajude a melhorar a busca do fórum.
    quarta-feira, 11 de janeiro de 2012 11:11
  • Funciona da seguinte form:

    1º Escolher o nome na combobox 

    Ao escolher o nome na combobox é carregado o numero de telefone e a localidade correspondentes para as textbox1 e textbox2.

    Apenas é carregado um campo para cada textbox.

     

    Obrigado


    quarta-feira, 11 de janeiro de 2012 11:15
  • Bacana. Vou te passar a ideia.

    'seuComboBox.SelectedValue: caso você tenha setado o DataValueMember para conter um identificador
    'seuComboBox.SelectedText recupera o Text selecionado
    Dim nome As String = seuComboBox.SelectedText
    
    Dim strConexao As String = "sua string de conexao"
    Dim strSQL As String = "SELECT TELEFONE,LOCALIDADE FROM SUA_TABELA WHERE NOME= @NOME_SELECIONADO"
    
    Dim conexao As New SqlConnection(strConexao)
    Dim command As New SqlCommand(strSQL, conexao)
    command.Parameters.Add("@NOME_SELECIONADO", SqlDbType.VarChar).Value = nome
    Dim reader As SqlDataReader = Nothing
    
    Try
    	conexao.Open()
    
    	reader = command.ExecuteReader()
    
    	'Imagino que somente 1 registro foi retornado.                 
    	While reader.Read()
    		TextboxTelefone.Text = reader("TELEFONE").ToString()
    		TextboxLocalidade.Text = reader("LOCALIDADE").ToString()
    	End While
    Catch generatedExceptionName As Exception
    	Throw
    Finally
    	If conexao IsNot Nothing Then
    		If conexao.State = ConnectionState.Open Then
    			conexao.Close()
    		End If
    	End If
    End Try
    
    



    --
    Marque as respostas e ajude a melhorar a busca do fórum.
    quarta-feira, 11 de janeiro de 2012 11:35
  • Obrigado

    Funcionou beleza :)

    quarta-feira, 11 de janeiro de 2012 12:08