respuesta secreta VB 6.0

[Juny18]

Hola a todos, tengo un problema con VB 6.0 tengo un formulario de cambiar contraseña mediante preguna secreta. Esta pregunta ya la ha introducido el usuario en el registro, mediante un combobox. ¿Cómo podría hacer para volver a mostrarla pero esta vez en un campo de texto? es que la necesito recuperar para que el usuario pueda leerla y escribir la respuesta secreta para cambiar la clave.

mi formulario de cambiar clave tiene:

1 cuadro de texto llamado "cambiousuario", aqui pongo el usuario al que quiero cambiar la clave.
1 cuadro de texto llamado "cambiopregunta", aquí es donde se debe de mostrar la pregunta secreta previamente introducida. Este campo será no modificable, solo lectura
1 campo de texto llamado "cambiarespuesta", aquí es donde pongo la respuesta secreta.

Entonces si todos los datos estan bien validados se accederá a otro formulario donde podré cambiar la contraseña para ese usuario en concreto.

Lo que no sé es recuperar mediante código de VB la respuesta secreta.

¿Alguién podría ayudar?.

Gracias

[lokoman]

Hola!
Si al guardar la respuesta que el usuario elije desde el combobox, lo que guardas es el texto (la pregunta), entonces, simplemente usa un control LABEL para mostrarla mediante un Recordset, algo asi:

Código vb:

DIM RST AS ADODB.RECORDSET
SET RST = NEW ADODB.RECORDSET
 
RST.SOURCE="SELECT PREGUNTA_EN_TEXTO FROM TABLA_RESUESTA WHERE ID_USUARIO='" & EL_ID_DEL_USUARIO & "'"
RST.OPEN , CONEXION
 
IF RST.EOF=FALSE THEN 
LABEL.CAPTION=RST!PREGUNTA_EN_TEXTO
ELSE
LABEL.CAMPTION=EMPTY
ENDIF
 
IF RST.STATE=1 THEN RST.CLOSE
SET RST=NOTHING
 

Pero si lo que guardas es el indice del combobox, entonces:

Código vb:

DIM RST AS ADODB.RECORDSET
SET RST = NEW ADODB.RECORDSET
 
RST.SOURCE="SELECT ID_PREGUNTA_DEL_COMBOBOX FROM TABLA_RESUESTA WHERE ID_USUARIO='" & EL_ID_DEL_USUARIO & "'"
RST.OPEN , CONEXION
 
IF RST.EOF=FALSE THEN 
IF RST!ID_PREGUNTA_DEL_COMBOBOX = 1 THEN LABEL.CAPTION="ESTA ES LA PREGUNTA #1"
IF RST!ID_PREGUNTA_DEL_COMBOBOX = 2 THEN LABEL.CAPTION="ESTA ES LA PREGUNTA #2"
IF RST!ID_PREGUNTA_DEL_COMBOBOX = 3 THEN LABEL.CAPTION="ESTA ES LA PREGUNTA #3"
IF RST!ID_PREGUNTA_DEL_COMBOBOX = 4 THEN LABEL.CAPTION="ESTA ES LA PREGUNTA #4"
'... ETC
'... ETC
'... ETC
ELSE
LABEL.CAMPTION=EMPTY
ENDIF
 
IF RST.STATE=1 THEN RST.CLOSE
SET RST=NOTHING
 

Espero darte una idea de como hacerlo.