PASSAR VALOR DE SELECT PARA TEXTBOX

MHDS23 17/06/2017 19:22:41
#474585
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
JABA 18/06/2017 00:46:33
#474587 Resposta escolhida
MHDS23 18/06/2017 03:54:12
#474590
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 encerrado , respostas não são mais permitidas
Voltar