Cursores - deixar registro igual

[edspicer]

ola pessoal.

eu tenho no fox dois cursores gerados apartir de um append from de um txt.
os cursores tem os mesmos campos, porem, em um deles há mais registros que o outro.

queria saber como faço para verificar e, se existir o mesmo registro nos dois cursores, deixar ele ou caso contrario deletar.

desde ja agradeco a ajuda de todos

[Marcos Guedes]

Tente isto:
[Você precisa estar registrado e conectado para ver este link.]

Resolve?

[edspicer]

Marcos, nao serviu.
o que preciso e deixar os cursores com o mesmo registro.
ex.:

cursor 1
campo 1 campo 2 campo 3
reg 1.....
reg 2.......
reg 3......
reg 4......

cursor 2
campo 1 campo 2 campo 3
reg 1.......
reg 2........
reg 3..........

o que acontece: os dois cursores tem o mesmo numero de campos, mas por exemplo o cursor 1 tem mais registros que o cursor 2, entao eu queria deletar o registro que esta no cursor 1 e que nao esta no cursor 2.
os dois tem um campo comum que e o codigo.
abraco

[Marcos Guedes]

Isto dependerá de quais registros irás comparar, veja este exemplo:

Código:

SET DELETED ON

CREATE CURSOR cursor1 (campo1 c(10), campo2 c(10), campo3 c(10), sequencia i(4) AUTOINC NEXTVALUE 1 STEP 1)
CREATE CURSOR cursor2 (campo1 c(10), campo2 c(10), campo3 c(10), sequencia i(4) AUTOINC NEXTVALUE 1 STEP 1)

INSERT INTO cursor1(campo1) VALUES ("registro1")
INSERT INTO cursor1(campo1) VALUES ("registro2")
INSERT INTO cursor1(campo1) VALUES ("registro3")
INSERT INTO cursor1(campo1) VALUES ("registro4")

INSERT INTO cursor2(campo1) VALUES ("registro1")
INSERT INTO cursor2(campo1) VALUES ("registro2")
INSERT INTO cursor2(campo1) VALUES ("registro3")

DELETE FROM cursor1 WHERE !exists (SELECT * FROM cursor2 WHERE cursor1.campo1==cursor2.campo1)

SELECT CURSOR1
BROWSE

USE IN SELECT("cursor1")
USE IN SELECT("cursor2")

[edspicer]

Marcos,


usei e funcionou...

Mais uma vez obrigado.