enviar valor a textbox

[mrprogman]

como le puedo hacer para enviar el resultado de este codigo a un texbox..?..actualmente me lo envia a un grid..pero necesito q se vaya a un textbox..saludos..

Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim DS As DataSet
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter
Dim suborden As String

MyConnection = New SqlConnection("Data Source=DELL;Initial Catalog=compras;Persist Security Info=True;User ID=sa;Password=3845")

For i As Integer = 0 To ListBox1.Items.Count - 1

MyCommand = New SqlDataAdapter("SELECT top 1 [line] FROM [compras] where onum= '" & suborden & "' ", MyConnection)
suborden = ListBox1.Items(i).ToString

DS = New DataSet()
MyCommand.Fill(DS, "compras")

---------------------------------------aqui lo envia al grid
GridView2.DataSource = DS.Tables("compras").DefaultView
GridView2.DataBind()


Next i
MyConnection.Close()
End Sub

[Aquaventus]

Hola mrprogman, si el resultado de tu consulta va a ser 1 campo, puede usar el SQLCOMMAND, su funcion ExecuteScalar :

Código vb:

Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
'Dim DS As DataSet
Dim MyConnection As SqlConnection
'Dim MyCommand As SqlDataAdapter
Dim cmd As SqlCommand
Dim suborden As String
 
MyConnection = New SqlConnection("Data Source=DELL;Initial Catalog=compras;Persist Security Info=True;User ID=sa;Password=3845")
 
For i As Integer = 0 To ListBox1.Items.Count - 1
 
'MyCommand = New SqlDataAdapter("SELECT top 1 [line] FROM [compras] where onum= '" & suborden & "' ", MyConnection)
suborden = ListBox1.Items(i).ToString
cmd = new SqlCommand("SELECT top 1 [line] FROM [compras] where onum= '" & suborden & "' ", MyConnection)
 
TUTEXTBOX.Text = cmd.ExecuteNonQuery()
 
'DS = New DataSet()
'MyCommand.Fill(DS, "compras")
 
'---------------------------------------aqui lo envia al grid
'GridView2.DataSource = DS.Tables("compras").DefaultView
'GridView2.DataBind()
 
 
Next i
MyConnection.Close()
End Sub
 

No entiendo cual es el sentido de tu FOR... xq va a chancar los valores que pases al datagrid y solo te va a mostrar el ultimo..., pero bueno solo acomodé a lo que según querías, es tu lógica... Saludos!.

[mrprogman]

el resultado q me devuelve es -1..no sabes por que..?,,me tiene q devolver una cadena..no un entero., como lo tenia anteriormente si me devolvia la cadena..................saludos y gracias por tu respuesta

[Aquaventus]

perdon perdon me equivoque de funcion, en esta línea :

Código vb:

TUTEXTBOX.Text = cmd.ExecuteNonQuery()
 

pasalo a :

Código vb:

TUTEXTBOX.Text = cmd.ExecuteScalar()
 

Saludos!.