Selasa, 09 Juni 2009

Visual Basic

Pemrograman Database dengan

perintah SQL
Danu Wira Pangestu
danu_wira@yahoo.com
www.bangdanu.wordpress.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 ] [ORDER
BY DESC|ASC]
Klausa WHERE digunakan untuk membatasi data yang akan ditampilkan dengan
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.
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2007 IlmuKomputer.Com
2
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
]
Contoh:
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2007 IlmuKomputer.Com
3
‘ 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 ]
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
4
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)
Caption
frmdosen
Data Dosen
Adodc1 ( ) (Name)
Caption
Adodosen
Data Dosen
Label1 Caption Kode Dosen
Label2 Caption Nama Dosen
Label3 Caption Alamat Dosen
Label4 Caption No Telepon
Textbox1 (Name)
Text
TxtKode
(kosongkan)
Komponen Properti Nilai
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2007 IlmuKomputer.Com
5
Textbox2 (Name)
Text
TxtNama
(kosongkan)
Textbox3 (Name)
Text
TxtAlamat
(kosongkan)
Textbox4 (Name)
Text
TxtTelpon
(kosongkan)
Datagrid1 ( ) DataSource Adodosen
Command1 (Name)
Caption
Cmdpertama
Pertama
Command2 (Name)
Caption
Cmdsebelum
Sebelum
Command3 (Name)
Caption
Cmdberikut
Berikut
Command4 (Name)
Caption
Cmdterakhir
Terakhir
Command5 (Name)
Caption
Cmdtambah
&Tambah
Command6 (Name)
Caption
Cmdedit
&Edit
Command7 (Name)
Caption
Cmdsimpan
&Simpan
Command8 (Name)
Caption
Cmdbatal
&Batal
Command9 (Name)
Caption
Cmdhapus
&Hapus
Command10 (Name)
Caption
Cmdkeluar
&Keluar
Command11 (Name)
Caption
CmdCari
&Cari Data
Command12 (Name)
Caption
CmdTampil
T&ilkan Semua Data
Listing Program :
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2007 IlmuKomputer.Com
6
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
7
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
8
.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
9
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.

Tidak ada komentar:

Posting Komentar