Jump to content
williamjda

[Resolvido] Visualizar dados de uma linha selecionada no DataGrid em um Textbox

Recommended Posts

williamjda

Amigos bom dia.

Tenho uma datagrid que é carregado a partir de informações de um banco. Porem quero saber como faço para fazer as informações do datagrid da linha selecionada preencher os campos textbox.

O código que carrega o datagrid é:

Private Sub BT_pesquisar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_pesquisar.Click
	'ATUALIZA DATAGRID1 - VISUALIÇÃO DE USUARIOS POR EQUIPE
	conexao.ConnectionString = "Data Source=172.20.6.000,0000;Initial Catalog=NOME_USUARIO;User ID=BANCO_DADOS;Password=*******"
	'Select para consultar
	Dim da As New SqlDataAdapter("Select A.cdchamado 'Nº Chamado', E.nmsituacao 'Situação', D.nmcategoria 'Categoria', B.nmusuario 'Responsavel', A.dtchamado 'DT. de abertura', A.dtprevisaoresposta 'Previsão de resposta' ,A.dtprevisaotermino 'Previsão de Termino' , C.nmlocalidade 'Localidade', A.dschamado 'Descrição do chamado'" & _
								 "FROM hd_chamado A " & _
								 " INNER JOIN ad_usuario B " & _
								 " ON A.cdresponsavel = B.cdusuario" & _
								 " INNER JOIN hd_localidade C" & _
								 " ON A.cdlocalidade = C.cdlocalidade" & _
								 " INNER JOIN hd_categoria D" & _
								 " ON A.cdcategoria = D.cdcategoria" & _
								 " INNER JOIN hd_situacao E" & _
								 " ON A.cdsituacao = E.cdsituacao" & _
								 " where E.nmsituacao = '" + ComboSituacao.Text + "'" & _
								 " and B.nmusuario = '" + ComboResponsavel.Text + "'", conexao)
	'Salva arquivos em uma tabela temporaria Dataset
	Dim ds As New DataSet
	'Pega os dados do DataSet e joga no CadastroLoginSistemaDataGridView
	da.Fill(ds)
	Me.GridChamados.DataSource = ds.Tables(0).DefaultView
End Sub

Edited by williamjda

Share this post


Link to post
Share on other sites
williamjda

Amigos boa tarde.

Bom eu consegui resolver o problema. Ficou assim para que quiser usar um dia.

Para exibir a informação em um Label: Sendo que 2 é o índice da coluna 2 da minha tabela.

Private Sub BT_visualizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_visualizar.Click
	 lbl1.Text = GridChamados.CurrentRow.Cells(2).Value
End Sub

Para exibir a informação em uma MSGBOX: Sendo que 2 é o índice da coluna 2 da minha tabela.

Private Sub BT_visualizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_visualizar.Click
	MsgBox(GridChamados.CurrentRow.Cells(2).Value)
End Sub

Espero ter ajudado. Obrigado pela atenção de todos.

Edited by williamjda

Share this post


Link to post
Share on other sites
leoretorico

ótimo!

Gostaria só de te dar uma dica:

Utilize sua string de conexão em um APP CONFIG.

Desta forma você poderá alterá la sem compilar o aplicativo ,quando necessário.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.