Thursday, October 9, 2014

Operasi ADODB Recordset Pada MS Access

www.AstroDigi.com AstroDigi.com | Kamis, 9 Okt 2014 | Dalam melakukan manipulasi data pada tabel pada MS Access, user bisa melakukan dengan 2 cara yaitu secara langsung ataupun tidak langsung.

Secara langsung berarti tinggal membuka tabel, dan lanjutkan dengan manipulasi data (Add, Edit, Delete). Secara tidak langsung biasanya menggunakan query atau recordset untuk mengisi data hasil penghitungan atau operasi logika kedalam tabel.

Khusus untuk manipulasi data yang "unbound" (tidak terikat dengan tabel), akan lebih fleksibel bila dilakukan dengan operasi recordset (buka tabel dan manipulasi dengan menggunakan coding).

Berikut ini adalah contoh operasi recordset pada tabel bernama "tabel_contoh" :

'-----------------------------
Dim isiData As ADODB.Recordset
Set isiData = New ADODB.Recordset
isiData.CursorLocation = adUseClient
isiData.Open "select * from tabel_contoh;", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'-----------------------------
    With isiData
    .AddNew
    .Fields("IDcontoh") = dataID01
    .Fields("dataContoh") = data01
    .Update
    End With
'-----------------------------            
isiData.Close
Set isiData = Nothing
'-----------------------------

Contoh coding VBA diatas saya bagi dalam 3 blok, blok pertama untuk membuka tabel, blok kedua memanipulasi tabel, blok ketiga untuk menutup tabel.

Untuk operasi update dan delete, menurut saya masih lebih enak menggunakan query. Operasi recordset akan lebih cocok digunakan untuk penambahan data.

Akhir kata, semoga tips dan tutorial singkat diatas bermanfaat, selamat mencoba, have a nice day :-)

 www.AstroDigi.com (Nino Guevara Ruwano)

Comments :

6 comments to “Operasi ADODB Recordset Pada MS Access”

longchamp handbags, http://www.longchamphandbag.us.com/
nike air max shoes, http://www.nikeairmaxshoess.co.uk/
michael kors outlet store, http://www.michaelkorsoutlet-store.us.com/
toms outlet, http://www.tomsoutlet-stores.com/
cheap wedding dresses, http://www.cheap-weddingdresses.net/
soccer jerseys,cheap soccer jerseys,cheap soccer jerseys for sale,soccer jersey,usa soccer jersey,football jerseys
lululemon outlet, http://www.lululemonoutletstore.in.net/
beats headphones, http://www.beats-headphones.in.net/
mont blanc, http://www.montblancpensoutlets.com/
fred perry polo, http://www.fredperrypoloshirts.com/
nike mercurial, http://www.nikemercurial.org/
cheap michael kors handbags, http://www.cheapmichaelkorshandbag.in.net/
louis vuitton outlet online, http://www.louisvuitton.in.net/
ysl outlet store, http://www.ysloutletonline.com/
kobe bryant store, http://www.kobebryantshoes.in.net/
longchamp bags, http://www.longchamphandbag.us.com/
bottega veneta outlet, http://www.bottegaveneta-outlet.net/
washington redskins jerseys, http://www.washingtonredskinsjersey.com/
rolex watches, http://www.rolexwatches.in.net/
giuseppe zanotti sale, http://www.giuseppe-zanotti-outlet.org/
mm0917

mmjiaxin said...
on 

20151116xiaodaige
oakley canada
toms outlet store
canada goose coats
michael kors outlet online
canada goose jackets
mont blanc pens
coach outlet store
winter coats
air jordan 11
abercrombie and fitch
mac cosmetics
denver broncos
christian louboutin shoes
coach outlet store
louis vuitton handbags
rolex watches,rolex watches,swiss watches,watches for men,watches for women,omega watches,replica watches,rolex watches for sale,rolex replica,rolex watch,cartier watches,rolex submariner,fake rolex,rolex replica watches,replica rolex
air jordan 13
golden state warriors
snow boots
nike roshe
michael kors factory store
los angeles clippers
michael kors handbags sale
pandora outlet
michael kors handbags clearance
prada outlet
louis vuitton outlet store
mlb jerseys
nike mercurial
puma outlet
ray ban outlet
camisetas futbol baratas
moncler outlet
lacoste pas cher
designer handbags,handbags outlet,cheap handbags,purses and handbags,wholesale handbags,designer bags,bags outlet,handbags wholesale,cheap purses,discount handbags,handbags sale,wholesale purses,handbags and purses,designer purses
michael kors outlet online

Unknown said...
on 

2016-05-30keyun
michael kors outlet online
michael kors outlet online
michael kors outlet clearance
louis vuitton handbags
toms shoes
louis vuitton bags
louis vuitton purses
michael kors handbags
louis vuitton bags
coach outlet clearance
michael kors outlet
michael kors bags
louis vuitton outlet online
giuseppe zanotti outlet
michael kors outlet online
michael kors handbags
gucci handbags
coach outlet
supra footwear
louis vuitton purses
supra shoes
oakley sunglasses
coach factory outlet
hollister clothing store
timberland boots
coach outlet store online clearances
louis vuitton bags
nfl jerseys wholesale
louboutin shoes
nike store
nike free 5.0
louis vuitton outlet
cheap ray ban sunglasses
air jordan 4
michael kors purses
polo ralph lauren outlet
michael kors handbags
nike sb dunks
cheap ray ban sunglasses

柯云 said...
on 

kobe sneakers
air jordan shoes
coach outlet online
cheap oakley sunglasses
ralph lauren uk
yeezy boost 350
kobe byrant shoes
air jordan retro
michael kors outlet online
http://www.oakley-sunglass.in.net
nike huarache
adidas nmd
michael kors handbags outlet
louis vuitton handbags
tiffany and co
toms outlet
christian louboutin shoes

Anonymous said...
on 

michael kors outlet
michael kors handbags
cheap michael kors handbags
michael kors handbags clearance
nike outlet store
nike store
jordan shoes
nike trainers
michael kors outlet
michael kors handbags

raybanoutlet001 said...
on 

kate spade
michael kors outlet online
tory burch sale
birkenstock sale
ysl outlet store
cheap oakley sunglasses
pandora charms sale clearanc
uggs
canada goose parka
polo ralph lauren outlet
20161114yuanyuan

John said...
on 

Post a Comment