Visual Basic - Como vuelco un Select en una variable comun?

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Como vuelco un Select en una variable comun?

Publicado por HugoS (15 intervenciones) el 17/08/2006 22:47:50
Hola! Estoy necesitando una ayudita simple pero importante!!
Estoy aprendiendo a programar en VBasic 6 y no logro pasar el resultado de una consulta SQL en una variable comun para compararla con otra en un if.
O sea:

Set TBL = DBASE.OpenRecordset("select clave from usuarios where usuario = 'miguel')

Sé q me esta trayendo un registro con el TBL.RecordCount. Ahora, no sé como volcar esto en una variable tipo Integer para poder hacer lo siguiente y no me dé error de tipos:

IF sPassword = resultado_consulta_TBL THEN
.........
end if

Muchas gracias y salu2
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

RE:Como vuelco un Select en una variable comun?

Publicado por - (18 intervenciones) el 17/08/2006 23:41:33
Accedes a los valores de los campos del registro actual de la siguiente manera:

recordset!campo

en tu caso: TBL!clave

Set TBL = DBASE.OpenRecordset("select clave from usuarios where usuario = 'miguel')

if sPassword = TBL!clave then
'clave correcta
endif
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
sin imagen de perfil

RE:Como vuelco un Select en una variable comun?

Publicado por HugoS (15 intervenciones) el 19/08/2006 03:37:23
Muchas gracias, me sirvió para guiarme. Estoy usando ADO para el Select y ahora quisiera saber como hago para volcar cada campo de la consulta en varias variables????
O sea, yo hice ahora:

SQL = "SELECT Id_actor, Apellido FROM Actores WHERE Id_actor = 10
Set QUERY = DBASE.Execute(SQL)

Cdo me interesa un solo campo hago asi: CodActor = QUERY(0). Pero yo ahora quiero volcar el resultado en 2 variables: CodActor y ApeActor y no me sale.
Intenté con:

CodActor = QUERY(actores.Id_actor)
ApeActor = QUERY(actores.Apellido)

pero me dice como error que "falta un objeto".
Que me faltará?
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