Pengolahan Data Dasar Dengan Visual Basic 6.0

Untuk melakukan pengolahan data dengan Visual Basic kita harus berhubungan dengan Database (pada aplikasi kita dengan SQL Server). Berhubungan dengan database dilakukan melalui ADO (ActiveX Database Object) yang telah kita bahas sebelumnya. Kita langsung saja. Buka Visual Basic IDE pilih Standard Project. Klik Project Refrence -> Microsoft ActiveX Data Objects 2.5 Library klik di sini untuk melihat gambar letakkan 3 label, 3 textbox, 5 command button, 2 option button dan 1 Microsoft Hierarchial Flex Grid. Lalu atur property name dan caption untuk masing-masing objek. Hingga lihat seperti di bawah ini:klik di sini untuk melihat gambar Untuk mengetahui detail bagaimana cara mengatur property, method dan event pada suatu objek di Visual Basic, anda dapat mempelajari E-Book saya dengan judul TRIK DASAR BELAJAR VISUAL BASIC 6.0 klik di sini untuk melihat. OK. Sekarang kita menuls kode: Kode pada General Declaration Private sConn As String Private oConn As New ADODB.Connection Private oRs As New ADODB.Recordset Kode pada Form Load Private Sub Form_Load() sConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DATAKU;Data Source=." oConn.Open sConn End Sub Kode pada Tombol Tambah Private Sub cmdTambah_Click() Dim sql As String sql = "INSERT INTO Mahasiswa VALUES('" & txtNim.Text & "','" & txtNama.Text & "','" & txtJurusan.Text & "')" oConn.Execute sql End Sub Kode pada Tombol Tampil Private Sub cmdTampil_Click() Dim sql As String sql = "SELECT * FROM Mahasiswa" oRs.Open sql, oConn Set grd.Recordset = oRs oRs.Close End Sub Tiba saatnya mendemokan aplikasi yang telah kita buat. 1. Menambah data baru Caranya: Isi NIM, Nama dan Jurusan lalu tekan tombol Tambah 2. Menampilkan data yang telah kita tambahkan tadi di Grid Caranya: Tekan tombol Tampil klik di sini untuk melihat gambar Sebagai latihan ulangi kedua langkah di atas dengan Nama Mahasiswa yang berbeda-beda. 2 2010112 Tati Sekertaris 3 2010113 Nani Akuntansi 4 2010114 Somat Akuntansi Anda dapat melihat hasilnya pada gambar. klik di sini untuk melihat gambar Sampai di sini kita telah menyelesaikan Penambahan data sekaligus menampilkannya. Kita lanjutkan membuat kode. Kode pada Tombol Cari Private Sub cmdCari_Click() Dim sNim As String sNim = InputBox("NIM:") Dim sql As String sql = "SELECT * FROM Mahasiswa WHERE NIM='" & sNim & "'" oRs.Open sql, oConn, adOpenStatic txtNim.Text = oRs.Fields("NIM") txtNama.Text = oRs.Fields("Nama") txtJurusan.Text = oRs.Fields("Jurusan") Set grd.Recordset = oRs oRs.Close End Sub langsung saja demo pencarian. Jalankan program (Run atau F5) lalu klik tombol Cari. Maka akan muncul seperti Gambar. klik di sini untuk melihat gambar isi nim yang dicari lalu tekan Tombol Enter pada keyboard atau tombol OK. Hasilnya akan terlihat seperti gambar. klik di sini untuk melihat gambar . Tiba saatnya kita akan memperbaiki (mengupdate data).br /> Mengupdate data dilakukan oleh kode pada tombol Update. Kode pada Tombol Update Private Sub cmdUpdate_Click() Dim sql As String sql = "UPDATE Mahasiswa SET Nama='" & txtNama.Text & "', Jurusan='" & txtJurusan.Text & "' WHERE NIM='" & txtNim.Text & "'" oConn.Execute sql End Sub kode pada tombol update sudah ditulis. Sekarang kita lakukan demo update. Caranya: 1. Cari data yang akan diupdate dengan mengkllik tombol Cari. Isi NIM mis: 2010111 klik di sini untuk melihat gambar . lalu tekan Enter maka hasil pencaran akan terlihat seperti gambar ini . 2. Ganti Nama Dedi dengan Dedi Srg lalu klik tombol Update klik di sini untuk melihat gambar. 3. Klik tombol tampil untuk melihat hasilnya klik di sini . Kode pada Tombol Hapus Private Sub cmdHapus_Click() Dim sNim As String sNim = InputBox("NIM:", "Hapus Data?") Dim sql As String sql = "DELETE FROM Mahasiswa WHERE NIM='" & sNim & "'" oConn.Execute sql End Sub Langsung saja demo tombol hapus. 1. Klik tombol hapus lalu isi dengan NIM 2010113 klik di sini lalu tekan enter atau klik tombol OK. 2. Klik tombol tampil untuk melihat hasilnya. klik di sini untuk melihat gambar Kode pada option urutkan berdasarkan Nama Private Sub optUrutNama_Click() sql = "SELECT * FROM Mahasiswa ORDER BY Nama ASC" oRs.Open sql, oConn Set grd.Recordset = oRs oRs.Close EEnd Sub Untuk melakukan demo programnya tekan tombol Run (F5) lalu click option Urutkan Berdasarkan Nama. klik di sini untuk melihat hasilnya Kode pada option urutkan berdasarkan NIM Private Sub optUrutNIM_Click() sql = "SELECT * FROM Mahasiswa ORDER BY NIM ASC" oRs.Open sql, oConn Set grd.Recordset = oRs oRs.Close EEnd Sub Untuk melakukan demo programnya tekan tombol Run (F5) lalu click option Urutkan Berdasarkan NIM. klik di sini untuk melihat hasilnya . Sampai di sini tuntaslah sudah pengolahan database dasar dengan Visual Basc 6.0. Mudah-mudahan bemanfaat.