Teknik Pengurutan Kembali Record Pada Foxpro

Ada teman yang tanya “gimana yaa mas mengurut kembali no otomatis, misalkan saya punya record sebanyak 10. dengan no urut 1,2,3,4,5,6,7,8,9,10 , kemudian saya hapus no 3, maka otomatis no urut jadi 1,2,4,5,6,7,8,9,10, apakah bisa mengurut kembali,,jadi 1,2,3,4,5,6,7,8,9 (satu record dihapus)”

naa untuk mempermudah pemahaman kita buat table sederhana

create table sederhana (cid_sederhana C(2),cnamasederhana C(30))

kemudian kita isi

INSERT INTO sederhana VALUES("1","A")
INSERT INTO sederhana VALUES("2","B")
INSERT INTO sederhana VALUES("3","C")
INSERT INTO sederhana VALUES("4","D")
INSERT INTO sederhana VALUES("5","E")

OK..dari 5 data yang tersedia dalam tabel, kita hapus no 3. maka tabel otomatis terdapat 4 record dengan urutan IDnya 1, 2, 4, 5.

naa  bagaimana dengan pengurutan kembali no urutnya menjadi 1, 2, 3, 4? OK disimak yaa eh dicopas aja😀


**hapus data

lcid_sederhana=alltrim(thisform.txtcid_sederhana.value)

thisform.grid1.RecordSource=""
SELECT sederhana
DELETE FROM sederhana WHERE cid_sederhana=lcid_sederhana
thisform.grid1.RecordSourceType= 1
thisform.grid1.RecordSource="sederhana"

SELECT sederhana
GO top

urut= 1    && nilai awal no urut
DO WHILE !EOF()
SELECT sederhana
lcid_sederhana1=sederhana.cid_sederhana

**proses update no urut dengan nilai urut
UPDATE sederhana SET cid_sederhana=ALLTRIM(STR(urut)) WHERE cid_sederhana=lcid_sederhana1
urut=urut+1
SELECT sederhana
SKIP 1
ENDDO

yaa udah gitu aja deh😛
moga bermanfaat aja yaa sukses aja yaa

*saya ga paham kenapa harus gitu maunya,,bagaimana klo no urutnya pake relasi, hehe wakaka matilah dikau😛

Disimak Penomoran Otomatis Dengan Foxpro

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: