lizz
21 de Diciembre del 2004

bueno, lo que pasa es que estoy haciendo un peque帽o sistema, y quiero consultar algunos datos de un socio pero no todos, este es mi codigo
If rsDatos.State <> 0 Then
rsDatos.Close
End If

rsDatos.Open "SELECT clave_socio, horas, horas_usadas from socio WHERE nombre = " & Combo1.Text, oConn, adOpenStatic, adLockReadOnly
If rsDatos.EOF Then 'La consulta no devolvio informaci贸n
MsgBox "La consulta no devolvi贸 informaci贸n", vbCritical
Else
txtno.Text = rsDatos("clave_socio")
txths.Text = rsDatos("horas")
txthu.Text = rsDatos("horas_usadas")

End If

y me manda error de que faltan parametros y no se por que
de antemano gracias

locke
21 de Diciembre del 2004

faltaba el ultimo parametro en la funcion Open, tienes que decirle que tipo de consulta haces
rsDatos.Open "SELECT clave_socio, horas, horas_usadas from socio WHERE nombre =' " & Combo1.Text & "'" , oConn, adOpenStatic, adLockReadOnly,adCmdText

yayita1502
21 de Diciembre del 2004

Te falt贸 cerrar la consulta.
rsDatos.Open "SELECT clave_socio, horas, horas_usadas from socio WHERE nombre = " & Combo1.Text &" , oConn, adOpenStatic, adLockReadOnly

lizz
21 de Diciembre del 2004

si gracias, ya lo hice pero ahora me manda el siguiente error

error de sintaxis(coma) en la expresion de consulta 'nombre=Daniel, oConn, adOpenStatic, adLockReadOnly'

ya le habia quitado la coma entre el combo y oConn pero marca error y dice que falta un operador

CLAMARTELL
21 de Diciembre del 2004

Hola prueba con esto...

rsDatos.Open "SELECT clave_socio, horas, horas_usadas from socio WHERE nombre =' " & Combo1.Text & "'" , oConn, adOpenStatic, adLockReadOnly

Salu2

el hijo de la gonorrea
21 de Diciembre del 2004

pinchi huevona de seguro te dejaron ese trabajo y
conseguiste ese codigo de algun otro we que te lo
paso y ahora quieres cambiarle una shingaderilla
para pasar la materia pinche huevona cabrona agarra
los putos libros, de perdida quedateles viendo como
mensa, a ver si te hablan.