SQLExec
Publicado por didier (3 intervenciones) el 07/11/2006 20:45:06
Estoy en visual Fox Pro 9 y estoy utilizandolo con My SQL pero hay un problema al ejecutar una sentencia como la siguiente es mas les mando un fragmento de codigo que es el que me esta dando problemas para ver si alguien lo puede revisar u me pueden ayudar a ver cual es el problema:
num = thisform.op1.page1.text1.Value
t = thisform.op1.page1.text13.value
SQLSetProp(lnHandle,'Transactions',2)
resultado = SQLExec (lnHandle, 'DELETE FROM catalogo_de_socios WHERE numero = num and tipo = t')
*WAIT WINDOW resultado
*RETURN 0
IF resultado <>1
SQLRollback(lnHandle)
Messagebox('Error el registro no fue borrado')
Return
ENDIF
SQLCommit(lnHandle)
? SQLSetProp(lnHandle,'Transactions',1)
Messagebox('Se ha borrado correctamente')
num = thisform.op1.page1.text1.Value
t = thisform.op1.page1.text13.value
SQLSetProp(lnHandle,'Transactions',2)
resultado = SQLExec (lnHandle, 'DELETE FROM catalogo_de_socios WHERE numero = num and tipo = t')
*WAIT WINDOW resultado
*RETURN 0
IF resultado <>1
SQLRollback(lnHandle)
Messagebox('Error el registro no fue borrado')
Return
ENDIF
SQLCommit(lnHandle)
? SQLSetProp(lnHandle,'Transactions',1)
Messagebox('Se ha borrado correctamente')
Valora esta pregunta


0