Pemrograman Database dengan perintah SQL Imam Bukhari, S.Kom
[email protected] www.imambukhari.weebly.com
Lisensi Dokumen: Copyright © 2003-2007 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com. Selain menggunakan perintah dasar pemrograman database seperti addnew, edit, delete, dsb. Pada pemrograman database kita juga dapat menggunakan beberapa perintah SQL(Structured Query Language) untuk melakukan proses penambahan data, pengeditan, pencarian hingga penghapusan data dengan lebih mudah, yang dibutuhkan hanya logika anda menterjemahkan perintah ke dalam bahasa Query. Somoga artikel ini bermanfaat bagi yang mau belajar pemrograman dengan perintah SQL dan tentunya yang masih bingung dengan perintah-perintah SQL. SEMOGA
Pemrograman Database dengan SQL Structured Query Language (SQL) adalah bahasa standard untuk melakukan berbagai operasi data pada database, diantaranya mendefinisikan tabel, menampilkan data dengan kriteria tertentu, menambahkan data hingga menghapus data tertentu. Penggunaan SQL pada beberapa bahasa pemrograman secara umum relatif sama. Berikut akan dijelaskan beberapa perintah SQL yang sering digunakan dalam operasi pemrograman database.
1. SELECT Perintah SELECT digunakan untuk menampilkan data. Bentuk Umum: SELECT *|
FROM [WHERE <syarat>] [ORDER BY DESC|ASC] Klausa WHERE digunakan untuk membatasi data yang akan ditampilkan dengan Komunitas eLearning IlmuKomputer.Com Copyright © 2003-2007 IlmuKomputer.Com
1
menambahkan syarat tertentu pada data yang ingin ditampilkan. Klausa ORDER BY digunakan untuk menampilkan data dengan urutan menaik (ASC) atau urutan menurun (DESC). Contoh : ‘menampilkan seluruh data dosen SELECT * FROM Dosen
‘menampilkan kode dosen dan nama dosen dari data dosen SELECT Kode_Dos, Nama_Dos FROM Dosen
‘menampilkan data dosen diurutkan berdasarkan nama secara menaik SELECT * FROM Dosen ORDER BY Nama_Dos ASC
‘menampilkan data dosen yang namanya diawali huruf M SELECT * FROM Dosen Where Nama_Dos Like ‘M%’
2. INSERT Perintah INSERT digunakan untuk menambahkan data kedalam tabel. Bentuk Umum: INSERT INTO VALUES (,,...)
Contoh : ‘menambahkan data dosen baru INSERT INTO Dosen VALUES (‘D05’,’Fatah Adi’,’Jl.Solo 100’,’799811’)
3. UPDATE Perintah UPDATE digunakan untuk mengubah data pada suatu tabel dengan kriteria tertentu Bentuk Umum: UPDATE SET =, =,... [WHERE <syarat>]
Contoh: Komunitas eLearning IlmuKomputer.Com Copyright © 2003-2007 IlmuKomputer.Com
2
‘ mengubah data nama dosen dengan Kode Dosen ‘D05’ menjadi ‘Fatah Ali’ UPDATE Dosen SET Nama_Dos=’Fatah Ali’ WHERE Kode_Dos=’D05’
4. DELETE Perintah DELETE digunakan untuk menghapus data yang memenuhi kriteria tertentu. Bentuk Umum: DELETE FROM [WHERE <syarat>]
Contoh : ‘menghapus data dosen dengan nama ‘Fatah Ali’ DELETE FROM Dosen WHERE Nama_Dos=’Fatah Ali’
‘menghapus seluruh data dalam tabel DELETE FROM Dosen
Program VII : Program Data Dosen dengan SQL Komunitas eLearning IlmuKomputer.Com Copyright © 2003-2007 IlmuKomputer.Com
3
Buatlah sebuah project dan form baru pada Visual BASIC, desain tampilan form sehingga didapat tampilan seperti pada gambar 9.1.
Gambar 9.1. Desain Form Program VII
Pengaturan Properti : Komponen
Properti
Nilai
Form1
(Name)
frmdosen
Caption
Data Dosen
(Name)
Adodosen
Caption
Data Dosen
Label1
Caption
Kode Dosen
Label2
Caption
Nama Dosen
Label3
Caption
Alamat Dosen
Label4
Caption
No Telepon
Textbox1
(Name)
TxtKode
Text
(kosongkan)
Properti
Nilai
Adodc1 ( )
Komponen
Komunitas eLearning IlmuKomputer.Com Copyright © 2003-2007 IlmuKomputer.Com
4
Textbox2
(Name)
TxtNama
Text
(kosongkan)
(Name)
TxtAlamat
Text
(kosongkan)
(Name)
TxtTelpon
Text
(kosongkan)
Datagrid1 ( )
DataSource
Adodosen
Command1
(Name)
Cmdpertama
Caption
Pertama
(Name)
Cmdsebelum
Caption
Sebelum
(Name)
Cmdberikut
Caption
Berikut
(Name)
Cmdterakhir
Caption
Terakhir
(Name)
Cmdtambah
Caption
&Tambah
(Name)
Cmdedit
Caption
&Edit
(Name)
Cmdsimpan
Caption
&Simpan
(Name)
Cmdbatal
Caption
&Batal
(Name)
Cmdhapus
Caption
&Hapus
(Name)
Cmdkeluar
Caption
&Keluar
(Name)
CmdCari
Caption
&Cari Data
(Name)
CmdTampil
Caption
T&ilkan Semua Data
Textbox3
Textbox4
Command2
Command3
Command4
Command5
Command6
Command7
Command8
Command9
Command10
Command11
Command12
Listing Program : Komunitas eLearning IlmuKomputer.Com Copyright © 2003-2007 IlmuKomputer.Com
5
Public Baru As Boolean Private Sub cmdbatal_Click() Tombol True, True, False, False, True Adodosen.Recordset.Cancel Kosong End Sub
Private Sub cmdberikut_Click() 'Menuju ke record berikutnya Adodosen.Recordset.MoveNext 'Jika berada di record terakhir menuju ke record terakhir If Adodosen.Recordset.EOF Then Adodosen.Recordset.MoveLast End If End Sub
Private Sub cmdcari_Click() Kriteria = InputBox("Masukkan Nama Dosen yang dicari", "Mencari Data") Adodosen.RecordSource = "SELECT * FROM Dosen Where Nama_Dos Like'" & "%" & Kriteria & "%" & "'" Adodosen.Refresh If Adodosen.Recordset.EOF Then MsgBox "Data Tidak Ditemukan!", vbCritical, "Data Tidak Ada" End If End Sub
Private Sub cmdedit_Click() Tombol False, False, True, True, False With Adodosen.Recordset txtkode.Text = .Fields("Kode_Dos") txtnama.Text = .Fields("Nama_Dos") txtalamat.Text = .Fields("Alamat_Dos") txttelpon.Text = .Fields("No_Telp") End With txtkode.SetFocus Baru = False Komunitas eLearning IlmuKomputer.Com Copyright © 2003-2007 IlmuKomputer.Com
6
End Sub Private Sub cmdhapus_Click() Dim hapus hapus = MsgBox("Anda yakin data ini akan dihapus?", vbQuestion + vbYesNo, "Hapus Data") If hapus = vbYes Then Adodosen.Recordset.Delete Adodosen.Recordset.MoveLast Else MsgBox "Data tidak jadi dihapus!", vbOKOnly + vbInformation, "Batal Menghapus" End If End Sub
Private Sub cmdkeluar_Click() Unload Me End Sub
Private Sub cmdpertama_Click() 'Menuju ke record pertama Adodosen.Recordset.MoveFirst End Sub
Private Sub cmdsebelum_Click() 'Menuju ke record sebelumnya Adodosen.Recordset.MovePrevious 'Jika berada di record pertama menuju ke record pertama If Adodosen.Recordset.BOF Then Adodosen.Recordset.MoveFirst End If End Sub
Private Sub cmdsimpan_Click() Tombol True, True, False, False, True With Adodosen.Recordset If Baru Then .AddNew Komunitas eLearning IlmuKomputer.Com Copyright © 2003-2007 IlmuKomputer.Com
7
.Fields("Kode_Dos") = txtkode.Text .Fields("Nama_Dos") = txtnama.Text .Fields("Alamat_Dos") = txtalamat.Text .Fields("No_Telp") = txttelpon.Text .Update .Sort = "Kode_Dos" End With Kosong End Sub
Private Sub cmdtambah_Click() Tombol False, False, True, True, False Baru = True Kosong txtkode.SetFocus End Sub
Private Sub cmdtampil_Click() Adodosen.RecordSource = "SELECT * FROM Dosen Order By Kode_Dos" Adodosen.Refresh End Sub
Private Sub cmdterakhir_Click() Adodosen.Recordset.MoveLast End Sub
Public Sub Tombol(tambah, edit, simpan, batal, hapus As Boolean) cmdtambah.Enabled = tambah cmdedit.Enabled = edit cmdsimpan.Enabled = simpan cmdbatal.Enabled = batal cmdhapus.Enabled = hapus End Sub
Private Sub Form_Load() Komunitas eLearning IlmuKomputer.Com Copyright © 2003-2007 IlmuKomputer.Com
8
Adodosen.ConnectionString = "DSN=Pengajaran" Adodosen.CommandType = adCmdText Adodosen.RecordSource = "SELECT * FROM DOSEN ORDER BY Kode_Dos" Adodosen.Refresh Baru = False End Sub
Public Sub Kosong() txtkode.Text = "" txtnama.Text = "" txtalamat.Text = "" txttelpon.Text = "" End Sub
Biografi Penulis Danu Wira Pangestu, S.Kom. Menyelesaikan S1 Teknik Informatika di Universitas PGRI Yogyakarta pada tahun 2006, berprofesi sebagai tenaga pengajar sejak 2003 pada beberapa instansi pendidikan/pelatihan komputer di Yogyakarta dengan spesialisasi Desktop & Database Programming dan Design Grafis. Komunitas eLearning IlmuKomputer.Com Copyright © 2003-2007 IlmuKomputer.Com
9
