Pemrograman PERL Lanjutan Bagian 8: Akses Database

Pada tulisan kemarin membahas tentang operasi delete dan update pada akses database Perl. Untuk hari ini akan dibahas mengenai perintah lain untuk mengakses database seperti do, commit, rollback dan autocommit.

Menggunakan statement do

Jika anda ingin melakukan operasi update, insert atau delete namun tidak ada data dari database, anda bisa menggunakan statement do. Anda dapat menggunakan statement do untuk mengeksekusi macam-macam perintah.

$dbh->do(‘DELETE FROM TEST_TABLE WHERE age =30’);

perintah do akan mengembalikan nilai yang sebenarnya dengan sukses dan nilai yang salah dengan status gagal. Faktanya jika sukses akan menampilkan jumlah affected rows. Sedangkan ada potongan kode diatas akan menampilkan jumlah rows yang dihapus.

Operasi Commit

Operasi ini digunakan untuk mengkonfirmasi perubahan final, dan setelah operasi ini tidak ada perubahan yang dapat dikembalikan ke posisi semula.

$dbh->commit or die $dbh->errstr;

Operasi Rollback

Jika anda tidak puas dengan perubahan yang dihasilkan atau anda mendapat pesan error setelah melakukan operasi, anda bisa mengembalikan ke posisi semula sebelum operasi dengan API rollback.

$dbh->rollback or die $dbh->errstr;

Begin Transaction

Banyak database yang support transaksi. Artinya anda dapat mengkombinasi banyak query untuk memodifikasi database, namun tidak ada perubahan untuk database yang bukan termasuk transaksi. Modul Perl DBI menyediakan API begin_work, yang mampu melakukan transaksi (dengan mematikan autocommit) sampai perintah call to commit atau rollback. Setelah itu autocommit akan menyala kembali dengan otomatis.

$rc  = $dbh->begin_work  or die $dbh->errstr;

Opsi AutoCommit

Jika transaksi yang anda gunakan sederhana, ana bisa menggunakan API AutoCommit.

my $dbh = DBI->connect($dsn, $userid, $password,{AutoCommit => 1})or die $DBI::errstr;

Kode diatas menyatakan jika 1 artinya autocommit on sedangkan 0 autocommit off.

Sekian tulisan hari ini semoga bermanfaat.

Advertisements

One thought on “Pemrograman PERL Lanjutan Bagian 8: Akses Database

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s