Foro de elhacker.net

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

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.

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.

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

Me parece que no funciona porque estas dentro del WITH.

Prueba colocando la asignacion afuera del bloque.

Saludos!

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

 Text2.Text = rST!entrada 

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

 Text2.Text = rST!entrada 

Hola.



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

Saludos.

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