TEXT TO CSQL TEXTMERGE NOSHOW
SELECT ID_registro FROM mitabla
ENDTEXT
cmd = SQLEXEC(nHandle, CSQL, "cur_mitabla", aLineasResultado) && el últ.parámetro es el nº de reg. del SELECT
m.NumRegistros = aLineasResultado[1,2] && en esta variable tenemos el Nº de registros de la tabla
IF cmd > 0
** ok
ELSE
AERROR(laErr)
MESSAGEBOX("Error de conectividad a la base de datos MySQL. Error " + CHR(13) + laErr[2], 0+16+0,;
'Información al usuario.')
RETURN
ENDIF
Luis Martínez.