Change primary key

krithika

How to change primary key for a set of records without deleting the records and without using temp table ](*,)

mohana_cse06

Where do you need?
Did you try with RENAME?

ClausHamann

Loop though the records and use the RENAME function to rename the individual records.

Regards

krithika

Thanks for the response. I have a table which has three fields as primary key. In that i am trying to modify a field which is of integer data type. When i loop it and modify the first record it goes and saves in the table as last record hence the loop terminates abruptly. Can u give me a solution for this?

mohana_cse06

Temporarily you can create a field like PKChanged and Set it immediatly after changing and Put filter on PMChanged False..

krithika

Is there any other options apart from the above provided scenario/solution

vijay_g

Why don't you use above solution even it's simple?

if you are not able to add a field then you can use any other field that is not being used in your table.

ajageavi

yes u can use like

rec.setrang(fields);
re. findfirst then
repeat
rec1.get(rec);
rec1.renbame(fields);
unitl rec.next=0

like above

ClausHamann

Hi

To get this to work you need to use another sorting key than the Primary Key. It is also good practice to use another variable to do the changes in.

E.g. like this

MyVar.SETCURRENTKEY(NotPK);
REPEAT
  MyVar2 := MyVar;
  MyVar2.RENAME(Value1 [, Value2] ,...);
UNTIL MyVar.next = 0;

Regards

krithika

Thanks for ur replies,i have changed the primary key,but the system provides default message As do u want to change the primary key. Yes/No.. for each record Rather than providing YES for each key can i be able change as YES by default for only once which changes entire set of PK to be changed.

Any soultions ..

mohana_cse06

May I know how are you doing?

kriki

ajageavi wrote:

yes u can use like

rec.setrang(fields);
re. findfirst then
repeat
rec1.get(rec);
rec1.renbame(fields);
unitl rec.next=0

like above

NEVER use FINDFIRST in a loop! you need to use the FINDSET-statement. But the idea is correct. The correct code to rename is this:

rec.RESET;
rec.SETCURRENTKEY(...);
rec.SETRANGE(...);
IF rec.FINDSET(TRUE,TRUE) THEN // check the help for info on the parameters of FINDSET
  REPEAT
    rec2 := rec;
    rec2.RENAME(new key fields);
  UNTIL rec.NEXT = 0;