oVFPCOM = Createobject('vfpcom.comutil') oRecordSet = Createobject('ADODB.RECORDSET') oRecordSet.CursorType = 3 && adOpenStatic oRecordSet.LockType = 1 && adLockReadOnly oRecordSet.Open(cadena,conexion) orecordset.movefirst If !oRecordSet.Eof() If oVFPCOM.RSToCursor(oRecordSet, 'workcursor')<> 0 Messagebox(Message()) Endif aseclect = 'SELECT * FROM workcursor INTO TABLE '+nombcurosr &aseclect Select workcursor Use Endif oRecordSet.Closebien con esta pequena rutina envio cualquier consulta a una table temporal un solo metodo para todas las consultas, hasta aqui bien.
select d.nombre,d.pfin,d.pffn,d.monto,d.codigo,i.nombre from pvprodeptos d, pvproimp i where d.nimpuesto = i.ninternoesta es la consulta que realiza el programa, alguna idea.