Ayuda por favor con vb6 un textbox no me refleja la consulta

[ismael825]

Hola quien me puede ayudar. estoy realizando una consulta con los sig. campos

Proveedor      descripcion       entrada                stock
(text)                (text)             (numero             (numero)

la base de datos esta en acces y uso vb6.

tengo 2 combobox y un texbox y boton guardar

cuando tecleo la opcion de combo2 envio una consulta asi:

Private Sub Combo2_CLICK()
  Dim rST As ADODB.Recordset
    Set rST = New ADODB.Recordset
    With rST
        .ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
           "C:\almacen\almacen.mdb"
     .CursorType = adOpenStatic
   .CursorLocation = adUseClient
  .Open "select entrada from stock where PROVEEDOR='" & Combo1 & " and DESCRIPCION=" & Combo4 & "'"
Text2.Text = rST!entrada

End With
End Sub

y deseo que el textbox me muestre el valor de la consulta que realizo es decir un valor del campo "entrada", eso para que con ese valor  despues lo sume a mi stock, pero me marca error "la operaciones solicitada requiere un registro actual. porque me marca eso, algui que pueda ayudarme, los combobox solo jalan campos en lectura de mi BD. y me muestran todo los registros que tengo. pero mi textbox no muestra nada.

de ante mano le agradezco al que me pueda ayuda. muchas gracias

[HdM]

Hola.

Igual ya has encontrado la solución en otro foro y ya no te pasas en tu vida por aquí. Si vuelves, sería interesante que eches un vistazo a las normas y al uso de las etiquetas GeSHi.

El problema lo tienes en el uso incorrecto de las comillas simples a la hora de delimitar los valores de los campos en la query.

Saludos.

[ismael825]

Ya he intentado pero no logro que me envie la consulta a mi textbox, puedes ayudarme con el codigo si no es mucha molestia. Realmente apenas me inscribi en elhacker pero desde hace vario tiempo entro y leo cosas cuando necesito algo.

Saludos.

Código (vb) [Seleccionar] Expandir

[seba123neo]

creo que te falta el .MoveFirst despues de abrir el recordset, antes de mostrar el campo.

[MCKSys Argentina]

Me parece que no funciona porque estas dentro del WITH.

Prueba colocando la asignacion afuera del bloque.

Saludos!

[Yoghurt]

coincido y alerto aunque no soy un experto que hay algo malo cerca de

Código (vb) [Seleccionar] Expandir

Text2.Text = rST!entrada

[Yoghurt]

coincido y alerto aunque no soy un experto que hay algo malo cerca de

Código (vb) [Seleccionar] Expandir

Text2.Text = rST!entrada

[HdM]

Hola.

El problema lo tienes en el uso incorrecto de las comillas simples a la hora de delimitar los valores de los campos en la query.

.Open "select entrada from stock where PROVEEDOR='" & Combo1 & " and DESCRIPCION=" & Combo4 & "'"

Esa consulta me da a mi que nunca va a devolverle ningún registro 

Saludos.

[MCKSys Argentina]

Hola.

Esa consulta me da a mi que nunca va a devolverle ningún registro 

Saludos.

+1. Le faltan las comillas simples para identificar el valor del campo como texto...