Usuário com melhor resposta
Carregar dados nas textbox

Pergunta
-
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.- Sugerido como Resposta Paulo Henrique de Sousa quarta-feira, 11 de janeiro de 2012 11:44
- Marcado como Resposta Jonas São Paulo quarta-feira, 11 de janeiro de 2012 12:08
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. -
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
-
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. -
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
- Editado Jonas São Paulo 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.- Sugerido como Resposta Paulo Henrique de Sousa quarta-feira, 11 de janeiro de 2012 11:44
- Marcado como Resposta Jonas São Paulo quarta-feira, 11 de janeiro de 2012 12:08
-