PASSAR VALOR DE SELECT PARA TEXTBOX

 Tópico anterior Próximo tópico Novo tópico

PASSAR VALOR DE SELECT PARA TEXTBOX

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#474585 - 17/06/2017 19:22:41

MHDS23
TABOAO DA SERRA
Cadast. em:Março/2013


BOA NOITE A TODOS
preciso de uma ajuda

estou realizando um select e gostaria de passar o resultado para um textbox
para passar para o datagridview esta ok
segue o codigo que esta funcionando para o datagridview

   VALOR = txt_coletor.Text
            sql = "SELECT TOP 1 CODIGO FROM TB_REGISTRO_GERAL where coletor = " & VALOR & " ORDER BY CODIGO DESC"
            DataGridView1.DataSource = Consulta(sql)

gostaria de ao inves de carregar o datagrid, trazer o resultado para um campo textbox
textbox1.text = consulta(SQL)

função consulta
  Public Function Consulta(ByVal sqlX As String) As DataTable
        Dim objcon As New OleDb.OleDbConnection(conexao2)
        Dim objda As New OleDb.OleDbDataAdapter(sqlX, objcon)
        objds.Tables.Clear()
        objda.Fill(objds)
        objdt = objds.Tables(0)
        Return (objdt)

    End Function






Resposta escolhida #474587 - 18/06/2017 00:46:33

JABA
CABO FRIO
Cadast. em:Agosto/2005


Veja isso:
www.macoratti.net/14/10/vbn_wfbd.htm

_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizarem quando o corpo está em movimento?



#474590 - 18/06/2017 03:54:12

MHDS23
TABOAO DA SERRA
Cadast. em:Março/2013


jaba!!! obrigado...

consegui resolver usando o codigo

Public Sub CarregaDados()
        VALOR = txt_coletor.Text
        Dim ds As New DataSet
        Dim dr As DataRow
        Dim dt As New DataTable
        Dim adptr As New OleDbDataAdapter("SELECT TOP 1 CODIGO FROM TB_REGISTRO_GERAL where coletor = " & VALOR & " ORDER BY CODIGO DESC", con)
        adptr.Fill(ds, "TB_REGISTRO_GERAL")
        dt = ds.Tables(0)
        For Each dr In dt.Rows
            TXT_ULTIMO_REGISTRO.Text = (dr.Item("CODIGO"))
        Next
    End Sub



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MHDS23 em 18/06/2017 03:54:28