|
en d0nde verifico eso, lo que pasa que la base de datos no puedo tocar. yo utilizo un cursor para que me traiga y me tire en un combo box, yo nose ti tengo que cambiar mi cursor o poner en algun tipo de formato. si tnes un ejemplo para facilitar. muchas gracias desde ya.
PRIVATE result
IF conexion<= 0
= MESSAGEBOX('Conexion fallida')
ELSE
= MESSAGEBOX('Conexion existosa')
result=SQLEXEC(conexion,"Select tipo from tipos_ca_operacion order by tipo ;",'crstipos_ca_operacion')&& envía una instrucción SQL
IF result<0
= MESSAGEBOX('Conexion fallida')
ENDIF
ENDIF
thisform.cbotipos_ca_operacion.RowSource= 'crstipos_ca_operacion.tipo'
esta es la forma que hago.
|