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:
Ver originalDIM 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:
Ver originalDIM 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.
