Perintah SQL dibagi menjadi 2 Kelompok :
1. Data Manipulation Language : Biasanya digunakan untuk proses Select, Insert, Update dan Delete data label.
2. Data Definition Language : Biasanya digunakan untuk proses Create, Alter dan Drop suatu object.
Insert, Update, Delete
Untuk melakukan manipulasi data pada database pada aplikasi kita dapat menggunakan object dari recordset.
Contoh :
Dim con as new adodb.connection
Dim rs as new adodb.recordset
sub Connect()
con.Open "provider=microsoft.jet.oledb.4.0;datasource="c:\mhs.mdb"
rs.Open "select*from mahasiswa",con,adOpenKeyset,adLockOptimistic
end sub
sub Insert()
rs.addnew 'menambahkan data baru pada recordset (1 baris)
rs(0)=text1.text 'mengisi kolom pertama pada recordset dengan text1
rs(1)=text2.text 'mengisi kolom pertama pada recordset dengan text2
rs(2)=text3.text 'mengisi kolom pertama pada recordset dengan text3
rs.update 'mengupdate isi database
end sub
sub Update()
rs.movefirst 'memindahkan kursor recordset ke awal data
rs(0)=text1.text 'mengisi kolom pertama pada recordset dengan text1
rs(1)=text2.text 'mengisi kolom pertama pada recordset dengan text2
rs(2)=text3.text 'mengisi kolom pertama pada recordset dengan text3
rs.update 'mengupdate isi database
end sub
sub Delete()
rs.movefirst 'memindahkan kursor recordset ke awal data
rs.delete 'menghapus isi recordset (1 baris)
end sub
Dim rs as new adodb.recordset
sub Connect()
con.Open "provider=microsoft.jet.oledb.4.0;datasource="c:\mhs.mdb"
rs.Open "select*from mahasiswa",con,adOpenKeyset,adLockOptimistic
end sub
sub Insert()
rs.addnew 'menambahkan data baru pada recordset (1 baris)
rs(0)=text1.text 'mengisi kolom pertama pada recordset dengan text1
rs(1)=text2.text 'mengisi kolom pertama pada recordset dengan text2
rs(2)=text3.text 'mengisi kolom pertama pada recordset dengan text3
rs.update 'mengupdate isi database
end sub
sub Update()
rs.movefirst 'memindahkan kursor recordset ke awal data
rs(0)=text1.text 'mengisi kolom pertama pada recordset dengan text1
rs(1)=text2.text 'mengisi kolom pertama pada recordset dengan text2
rs(2)=text3.text 'mengisi kolom pertama pada recordset dengan text3
rs.update 'mengupdate isi database
end sub
sub Delete()
rs.movefirst 'memindahkan kursor recordset ke awal data
rs.delete 'menghapus isi recordset (1 baris)
end sub
Bila kita menjalankan perintah [INSERT] pada contoh kode program diatas, maka recordset bertambah 1 record baru. Kemudian record baru tersebut diisi setiap kolomnya, yang diakhiri dengan perintah update agar database ikut berubah. Pada perintah [UPDATE] diatas yang diubah adalah record pertama dari tabel mahasiswa karena sebelum dilakukan perubahan terdapat perintah untuk menunjuk kepada baris pertama yaitu rs.movefirst, yang kemudian dilakukan perubahan yang diakhiri oleh perintah update sehingga database ikut berubah. Pada perintah delete record yang dihapus pada database adalah baris yang sedang aktif dan tidak perlu perintah update untuk mengeksekusinya. Sehingga pada perintah delete di atas, Record yang dihapus adalah record pertama pada tabel mahasiswa, karena sebelum dilakukan perintah delete terdapat perintah movefirst yang membuat record pertama aktif.
Semoga dapat membantu anda.
No comments:
Post a Comment
Berkomentarlah dengan sopan dan jangan membuat hal yang merugikan siapapun, terima kasih.