Visual Basic - Buscar dentro de un recordset

Life is soft - evento anual de software empresarial
   
Vista:

Buscar dentro de un recordset

Publicado por Matias (135 intervenciones) el 10/09/2008 20:17:07
Hola gente como va???? Bueno tengo un problema... cargo en un recorset estos 3 campos

codservicio
precio
descripcion
le paso a un combo solo los datos de descripcion y lo que intento hacer es que una vez elegido el servicio buscar dentro del recordset que ya tengo para no volver a acceder a la DB, lo que quiero buscar el es precio y el codigo para poder mostrarlo

No se si deberia usar find ??? probe pero no entiendo como usarlo
suponiendo que el recorset es rsserv

puede que sea una burrada eso pero es lo que probe y no va

rsserv.Find Combo3.Text & "='" + Combo3.Text + "'"

bueno gracias por leer
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Esta bien pero no...

Publicado por Matias (135 intervenciones) el 11/09/2008 21:27:56
Esta bien pero mira

rsserv.Find "descripcion ='" + Combo3.Text + "'"
If rsserv.EOF And rsserv.BOF Then
If MsgBox("No se pueden encontrar los detalles de este servicio", vbInformation + vbOKOnly, "Error") = vbOK Then
End If

Else
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = rsserv!codtrabajo
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = rsserv!descripcion
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 2) = "$ " & rsserv!precio


Combo3.ListIndex = -1
Combo3.SetFocus
End If


ovbiamente el rsserv ya esta cargado bueno al hacer eso me da que EOF es verdadero es decir que es final de archivo o como se llame
En definita no puedo acceder a los datos de este servicio y como dije anteriormente no quiero volver a acceder a la base de datos...
Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Otra cosita

Publicado por Matias (135 intervenciones) el 11/09/2008 21:31:20
EOF me da verdadero pero BOF falso
solo queria agregar eso
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Esta bien pero no...

Publicado por julio (1 intervención) el 01/10/2009 16:16:22
Asi te quedariael if y con esto te quedaria funcionando.

If rsserv.EOF Then
If MsgBox("No se pueden encontrar los detalles de este servicio", vbInformation + vbOKOnly, "Error") = vbOK Then
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Buscar dentro de un recordset

Publicado por Enrique Veliz (4 intervenciones) el 12/09/2008 01:19:41
lo que puedes hacer en el evento click del combo es:
dim rsBusca as new ADODB.Recordset
rsBusca.Open "Select * from TuTabla where Codigo='"&trim(TextoDelCombo)&"'",Conexion,Opcion,Opcion
if rsBusca.Recordcount>0 then
textPrecio=rsBusca.Fields("Precio")
end if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Buscar dentro de un recordset

Publicado por Matias (135 intervenciones) el 12/09/2008 01:22:35
Pero eso consulta la va a procesar el servidor y eso no quiero, solo quiero hacerlo desde los datos que ya tengo en el recordset
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar