Cómo mostrar el resultado de un select en un textbox

[wolfxmen]

Bien ahora tengo un problema de programación, resulta que ejecuto un query en mysql y si me funciona lo que no se es como mostrar el resultado de mi query en un txtbox, estoy desarrolando con visual basic 6 y mi motor de base de datos es mysql 5, mi query es asi:

select idpago, detallepago.idrubros, sum (monto) as total from detallepago, rubros where detallepago.idpago = ' " & frmpagos.txtidpago.text &"' and detallepagos.idrubros = rubros.idrubros group by idpago.

solo deseo mostrar en el textbox el resultado de la suma del campo monto.

Gracias por sus comentarios y ayuda.........

[Avellaneda]

Iniciado por wolfxmen

Bien ahora tengo un problema de programación, resulta que ejecuto un query en mysql y si me funciona lo que no se es como mostrar el resultado de mi query en un txtbox, estoy desarrolando con visual basic 6 y mi motor de base de datos es mysql 5, mi query es asi:

select idpago, detallepago.idrubros, sum (monto) as total from detallepago, rubros where detallepago.idpago = ' " & frmpagos.txtidpago.text &"' and detallepagos.idrubros = rubros.idrubros group by idpago.

solo deseo mostrar en el textbox el resultado de la suma del campo monto.

Gracias por sus comentarios y ayuda.........

¿El query se lo aplicas a un recordset, no?, pues solamente tienes que poner a continuación esta instrucción:

TxtTotal.Text = recordset!total

[wolfxmen]

Gracias por tu apoyo Avellaneda, te voy a colocar todo el código que he escrito para que te des una idea de como esta:

Private Sub cmdpago_Click()
Set rssuma = New ADODB.Recordset

With rssuma
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open ("select idpago, detallepago.idrubros, sum(monto)as total from detallepago, rubros where detallepago.idpago= '" & frmpagos.txtidpago.Text & "' and detallepago.idrubros = rubros.idrubros group by idpago")
If Not rssuma.EOF Then rssuma.MoveFirst
While Not rssuma.EOF
' aqui accedes al recordset y sacas los campos q te interesen
monto = rssuma!total
frmpagos.txttotal.Text = rssuma!total
Wend

End With

End Sub

si coloco solo el frmpagos.txttotal.text = rssuma!total sin el codigo de If Not rssuma.EOF Then rssuma.MoveFirst
While Not rssuma.EOF
, me da un mesaje de error el cual dice: Error 3021 en tiempo de ejecución:
el valor de BOF o de EOF es true, o el actual registro se eliminó, la operación solicitada requiere un registro actual.

Cabe mencionar que total no es un campo de mi tabla no se si eso este dando problema?

El evento que mostrará el contenido del select en el textbox es un boton al que el usuario hará click, pero por el momento si hago click en el boton no realiza ninguna acción, ni siquiera me da un mensaje de error.....

Gracias por tu ayuda en este caso.

[Avellaneda]

Iniciado por wolfxmen

Gracias por tu apoyo Avellaneda, te voy a colocar todo el código que he escrito para que te des una idea de como esta:

Private Sub cmdpago_Click()
Set rssuma = New ADODB.Recordset

With rssuma
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open ("select idpago, detallepago.idrubros, sum(monto)as total from detallepago, rubros where detallepago.idpago= '" & frmpagos.txtidpago.Text & "' and detallepago.idrubros = rubros.idrubros group by idpago")
If Not rssuma.EOF Then rssuma.MoveFirst
While Not rssuma.EOF
' aqui accedes al recordset y sacas los campos q te interesen
monto = rssuma!total
frmpagos.txttotal.Text = rssuma!total
Wend

End With

End Sub

si coloco solo el frmpagos.txttotal.text = rssuma!total sin el codigo de If Not rssuma.EOF Then rssuma.MoveFirst
While Not rssuma.EOF
, me da un mesaje de error el cual dice: Error 3021 en tiempo de ejecución:
el valor de BOF o de EOF es true, o el actual registro se eliminó, la operación solicitada requiere un registro actual.

Cabe mencionar que total no es un campo de mi tabla no se si eso este dando problema?

El evento que mostrará el contenido del select en el textbox es un boton al que el usuario hará click, pero por el momento si hago click en el boton no realiza ninguna acción, ni siquiera me da un mensaje de error.....

Gracias por tu ayuda en este caso.

Hola, comprueba que la propiedad RecordCount del recordset esté devolviendo algún valor, porque quizá la consulta no esté bien estructurada (pienso que deberías hacer un INNER JOIN).

"total" pasa a ser como un campo de la tabla, ya que se lo estás asignando a la suma del campo "monto"

[wolfxmen]

De acuerdo revisaré de acuerdo a tu sugerencia, Gracias por la ayuda.