Carregar dados nas textbox

Question

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

Answer 1

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.

Answer 2

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

Answer 3

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.

Answer 4

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

Answer 5

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.

Answer 6

Obrigado

Funcionou beleza :)