Friday, February 17, 2017

Function Untuk Menghapus PRIMARY KEY dan Menghapus INDEX

www.AstroDigi.com AstroDigi.com | Jumat, 17 Feb 2017 | Dalam artikel kali ini saya akan berbagi mengenai cara untuk menghapus Primary Key yang ada pada sebuah tabel dan juga cara untuk menghapus Index yang ada pada sebuah field.

Dalam sebuah tabel Primary Key hanya boleh ada satu saja, maka bila seorang programmer ingin menambahkan sebuah field dengan Primary Key, maka Primary Key yang sudah ada harus dihapus terlebih dahulu.

Index diperlukan untuk mempercepat proses pengolahan data pada database, karena dengan adanya Index, proses penemuan data akan menjadi lebih cepat. Namun keberadaan Index membuat sebuah field tidak dapat dihapuskan lewat instruksi VBA. Programmer harus melakukan penghapusan manual bila ingin menghapus field yang masih ada Index-nya.

Nah .. bila diperlukan, maka dua buah function yang saya bagikan kali ini akan dapat digunakan untuk menghapus Primary Key dan function lainnya dapat digunakan untuk menghapus Index.


'Function untuk menghapus Primary Key:

Public Function delPK(tableKu As String)On Error Resume Next    'lanjut saja kalau ada kesalahan

Dim Db As DAO.Database
Dim Tbl As DAO.TableDef
Dim delTable As Boolean
Set Db = CurrentDb()

With Tbl
Set Tbl = Db.TableDefs(tableKu)
Db.Execute "DROP index primarykey on " & tableKu & ";"
End With

Set Tbl = Nothing
Db.Close
End Function

'------------------------------
'Function untuk menghapus Index:

Public Function delInd(tableKu As String, fieldKu As String)Dim Db As DAO.Database
Dim Tbl As DAO.TableDef
Dim delTable As Boolean
Set Db = CurrentDb()

With Tbl

Set Tbl = Db.TableDefs(tableKu)
Db.Execute "ALTER TABLE " & tableKu & " DROP CONSTRAINT " & fieldKu & ";"
End With

Set Tbl = Nothing
Db.Close
End Function

'------------------------------
Simpan kedua function ini di Module, berikan sembarang nama, misalnya: Module1
Cara penggunaannya untuk menghapus Primary Key:
'misal nama tabel adalah "Karyawan"
delPK("Karyawan")
Cara penggunaannya untuk menghapus Index:
'misal nama tabel adalah "Karyawan" dan nama field "IDKaryawan"
delInd("Karyawan", "IDKaryawan")
Singkat dan mudah bukan? Selamat mencoba .. have a nice day :-)

 www.AstroDigi.com (Nino Guevara Ruwano)

Comments :

7 comments to “Function Untuk Menghapus PRIMARY KEY dan Menghapus INDEX”

Very helpful advice in this particular post! It’s the little changes that make the largest changes. Thanks for sharing!

monkey go happy | color switch |  superfighters 2  |

alicetaylor said...
on 

coach outlet
louis vuitton outlet stores
coach outlet online
nike air force 1
toms outlet
burberry outlet
louis vuitton online
longchamp handbag
kobe shoes
ralph lauren
chanyuan2017.02.20

Unknown said...
on 

Play Online happy wheels demo happywheelsdemo.in happy wheels game
happywheelsgame.in CARD Games
card games

Game Master said...
on 

20170320 junda
polo ralph lauren
christian louboutin outlet
ugg outlet
swarovski crystal
oakley sunglasses
louis vuitton outlet
coach outlet clearance
nike outlet
coach outlet online coach factory outlet
cheap ray ban sunglasses

Unknown said...
on 

gucci borse
miami dolphins jerseys
adidas nmd r1
michael kors handbags
supra shoes
michael kors outlet store
abercrombie and fitch kids
the north face
toms outlet
tiffany and co outlet

Unknown said...
on 

rolex watches
james harden shoes
adidas outlet
nmd adidas
texas rangers jerseys
michael kors handbags
coach outlet store
ray ban sunglasses
adidas nmd
adidas nmd
20170324huazhen

Unknown said...
on 

This information is very useful. thank you for sharing. and I will also share information about health through the website

Penyebab Benjolan dileher seperti jakun
Pengobatan penyakit Meningioma
Cara Mudah Menghilangkan Keloid
Pengobatan Alami Tuntaskan Keputihan
Obat Alami Menurunkan tekanan Darah Tinggi
Obat Penyakit kulit Eksim

Obat Luka Bernanah bekas Caesar said...
on 

Post a Comment