ºÝºÝߣ

ºÝºÝߣShare a Scribd company logo
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.




Pada E-book ini saya menjelaskan bagaimana membuat aplikasi database.
Pengalaman ini juga pernah digunakan sebagai bahan tes untuk menjadi
programmer pada suatu perusahaan pengembang software.


Pengolahan database dasar seperti Tambah, Edit, Cari, Update, Hapus,
Mengurutkan, Browse dan Laporan merupakan pengolahan database dasar
yang paling fundamental.
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------




Artinya dengan pengetahuan dasar pengolahan database dasar yang kuat
diharapkan bisa menjadi landasan untuk membuat aplikasi database yang
mantap.


Sepanjang E-Book ini database yang digunakan adalah database Microsoft SQL
Server.


Pembahasan pembuatan program diusahakan dengan full code (penuh dengan
kode). Ini dibuat untuk memudahkan Anda membuat aplikasi yang lebih fleksibel
dan memudahkan anda membuat aplikasi ke tingkat lanjut.




Manipulasi Database Dasar Dengan Visual Basic
6.0


Untuk melakukan manipulasi database dengan Visual Basic terlebih dahulu kita
harus mengetahui bagaimana cara menghubungkan database SQL Server ke
project Visual Basic 6.0.


Ada banya cara yang dapat dilakukan untuk menghubungkan database ke visual
basic 6.0. Untuk kemudahan sekaligus cara cepat saya hanya akan menjelaskan
cara yang biasa dipakai untuk membuat project-project database bisnis.
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------




- Microsoft ActiveX Data Objects (ADO)


ADO adalah bagian dari sekelompok besar program yang disebut Microsoft Data
Access Compnonents (MDAC).
Objek ADO ini berfungsi menyediakan antar muka pengrograman pada project
kita dengan berbagai sumber data. Dengan kata lain pengolahan data-data pada
database dilakukan melalui kode-kode ADO ini, lalu ditampilkan pada aplikasi
kita.


Pada umumnya aplikasi-aplikasi memerlukan beberapa bentuk pengakses data.
Microsoft ActiveX Data Objects (ADO) adalah teknologi Microsoft yang dapat
menyediakan antarmuka pemrograman antara aplikasi yang kita buat dengan
berbagai sumber data.


Model Objek ADO menyediakan objek-objek, properti dan methode untuk
membuat aplikasi yang dapat mengakses dan memanipulasi data.
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


Gambar di bawah ini menunjukkan kedudukan ADO dalam mengakses data:




perhatikan, fokus kita sekarang adalah pada gambar yang ditandai oleh garis
hijau yaitu mulai dari Visual Basic Aplication - ADO - OLE DB – SQL Server Data
Provider dan Database SQL Server.



Data Consumers

Pemakai data (data consumers) adalah aplikasi-aplikasi yang memakai data
yang diekspos oleh penyedia data (data provider).
ADO adalah antarmuka yang dapat diprogram untuk mempergunakan data.
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


Service Components

Service components adalah elemen-elemen data yang memproses dan
mentransport data dan meningkatkan fungsionalotas dari data provider/penyedia
data.



Data Providers

Data providers/penyedia data adalah aplikasi, seperti MS-SQL Server atau
Exchange. Penyedia data/data provider ini mengekspos antar muka OLE-DB
untuk menyediakan data bagi pemakai data/data consumers secara langsung.



Bagaimana Hubungan OLE DB dengan ADO


ADO telah dirancang sebagai satu antar uka yang dibutuhkan untuk
pengembangn program single dan client/server multi tier, seperti aplikasi Data
Berbasis Windows atau WEB. Keuntungan utamanya adalah kemudahan
pamakaian, kecepatan tinggi, konsumsi memory rendah dan konsumsi
sumberdaya disk yang rendah.


ADO menyediakan kemudahan antarmuka ke OLE DB. ADO mudah
dipergunakan karena mempergunakan antarmuka COM automation yang
tersedia pada Alat-alat pengembangan perangkat lunak yang cepat termasuk
Visual Basic, Java, VBScript, JScript dan C/C++.
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


- Structured Query Language (SQL)


Semua sistem database/ basis data menerima perintah bahasa pencarian
terstruktur (Structured Query Language/ SQL). Tidak terkecuali MS-Access
ataupun MS-SQL Server. ADO menerima perintah SQL dari kode aplikasi lalu
mengirimnya ke perangkat lunak database untuk mengeksekusinya.
pada manipulasi data di atas kita telah menggunakan syntax SQL pada SQL
Query Analizer.


SQL adalah bahasa standard yang dipakai untuk aplikasi database / basis data.
Perintah SELECT merupakan perintah yang paling umum dipakai.


Sebagai contoh kasus, anggaplah program anda akan menampilkan nama dan
email pada tabel TAMU.



Pernyataan SQL nya adalah seperti ini:


SELECT Nama,Email FROM Tamu


Arti pernyataan di atas adalah memanggil semua Nama dan Email yang berada
pada tabel Tamu.


Pernyataan di atas hanyalah pernyataan Query SQL yang tidak menghasilkan
record/rekaman ke aplikasi anda. Anda masih membutuhkan komponen yang
lain agar Query SQL tersebut dapat menghasilkan Recordset dan sekaligus
menampilkan record-record/rekaman-rekaman tersebut ke aplikasi anda.
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


Pengolahan Data Dasar Dengan Visual Basic

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




OK. Sekarang kita menuls kode:


Kode pada General Declaration


Private sConn As String
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


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
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


    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
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


    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 & "',
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


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
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------




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
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


    Set grd.Recordset = oRs
    oRs.Close
End Sub




Untuk melakukan demo programnya tekan tombol Run (F5) lalu click option Urutkan
Berdasarkan NIM. klik di sini untuk melihat hasilnya .


http://xbasicpro.com/training/vb6db/vb6_database.aspx




Membuat Form Lookup dengan Listview Control

Dalam pembuatan aplikasi bisnis sering kali diperlukan form Lookup.


Yand saya maksud dengan lookup di sini adalah form atau apapun yang
dipergunakan untuk browse/ jelajah atau pencarian data.


Ada berbagai cara orang membuat lookup ini. Ada yang membuatnya dengan
menggunakan combo multi kolom third party seperti TruDBCombo dan lain-lain.
Ada juga yang membuat nya sendiri dengan perpaduan beberapa control dasar
seperti textbox, comm
and button, lisbox ataupun listview.


Semua dapat dibuat sesuai dengan selera dan kemudahan nya masing-masing.


Klo saya memang lebih suka membuat sendiri semua itu daripada menggunakan
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


produk third party (menggunakan 2rd party berarti harus belajar banyak hal baru
lagi).


Di bawah ini adalah contoh project pembuatan form Jual yang menggunakan
Lisview sebagai control untuk menampilkan daftar barang pada form Lookup
Barang.




Jika anda belum memahami dasar Listview anda dapat melihat artikel saya yang
berjudul List View Control pada Visual Basic 6.0




Pada program ini kita menggunakan database Microsoft access.
Buat database dengan nama dbjual.mdb


Lalu buat tabel barang dengan field-field seperti di bawah ini:


kdbrg text(5)
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


nmbrg text(50)
satuan text(10
harga number




Sekarang kita ke Form Edit


Pada gambar di atas Anda lihat ada tombol kecil di form Edit dengan caption [...]


Pembahasan kita berangkata dari tombol terserbut. Selanjutnya tombol tersebut
kita beri nama cmdLookup. Setelah pemakai meng klik tombol tersebut maka
program kita memanggil form BarangLookup.frm




Berikut ada lah kode pada cmdLookup


Private Sub cmdLookup_Click()
   barangLookup.Show
End Sub




Kode Lengkap pada form BarangLookup:


Private oConn As New ADODB.Connection
Private oRs As New ADODB.Recordset


Private Sub cmdOK_Click()
   JualFormEditDetail.txtKdBrg.Text = ListView1.SelectedItem.Text
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


   JualFormEditDetail.txtNmBrg.Text = ListView1.SelectedItem.SubItems(1)


   JualFormEditDetail.txtSatuan.Text =
ListView1.SelectedItem.SubItems(2)


   JualFormEditDetail.txtHarga.Text = ListView1.SelectedItem.SubItems(3)


   Unload Me


End Sub


Private Sub Form_Load()
   oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path
& "dbjual.mdb;Persist Security Info=False"


   oRs.Open "SELECT * FROM barang ", oConn, adOpenKeyset


   ListView1.ColumnHeaders.Clear
   ListView1.ListItems.Clear


   ListView1.View = lvwReport


   ListView1.ColumnHeaders.Add , , "kd.brg"
   ListView1.ColumnHeaders.Add , , "Nama.brg"
   ListView1.ColumnHeaders.Add , , "satuan"
   ListView1.ColumnHeaders.Add , , "harga"


   ListView1.ColumnHeaders(1).Width = 1000
   ListView1.ColumnHeaders(2).Width = 2000
   ListView1.ColumnHeaders(3).Width = 500
   ListView1.ColumnHeaders(4).Width = 500


   'baris
   For brs = 0 To oRs.RecordCount - 1
       'isi kolom 0
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


         Set oItem = ListView1.ListItems.Add(, , oRs.Fields(0))


       'isi kolom berikutnya
         For kol = 1 To 3
               oItem.SubItems(kol) = oRs.Fields(kol)
         Next kol
         oRs.MoveNext
   Next brs
End Sub


Private Sub Form_Unload(Cancel As Integer)
     oConn.Close Set
     oConn = Nothing
     Set oRs = Nothing
End Sub


Private Sub ListView1_DblClick()
     cmdOK.Value = True
End Sub




Setelah anda memilih pada salah satu record di Listview pada form barang
lookup lalku anda tekan tombol OK maka record tersebut akan dicopy ke form
Edit.
Lihat gambar di bawah ini:
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------




Sekarang Anda melihat record yang ada di listview sudah di copy ke textbox
yang ada di form Edit.


Selanjutnya isi qty dengan angka 5 lalu tekan tombol Simpan pada Form Edit
maka data ini masuk ke Listview yang ada di Form Jual.
Lihat gambar di bawah ini:
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------




Ok. Sekarang form Jual sudah lengkap datanya. Tombol Simpan yang ada di
bawah dipergunakan untuk menyimpan data yang ada diform ke database MS-
Access.


Untuk memenuhi kebutuhan pembahasan pembuatan Form Lookup kode yang
saya sajikan di atas sudah memenuhi

http://xbasicpro.com/training/vb6db/vb6_database.aspx




Membuat Laporan dengan Crystal Report & Visual Basic 6.0



Dalam pembuatan program database report dipergunakan untuk menampilkan
data hasil seleksi maupun hasil proses pemrograman.


Crystal Report merupakan paket software yang dipergunakan untuk keperluan
menampilkan report.


Banyak fitur pengolahan report yang disediakan oleh crystal report namun saya
lebih suka memanipulasi data report melalui Query yang ada di SQL Server
maupun melalui kode di Visual Basic 6.0


Misalnya kita akan menampilkan daftar nama kota ke file Kota.rpt


Komponen-komponen penyusun report dalam aplikasi kita adalah sebagai
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


berikut:
1. View atau Table dibuat dengan SQL Server (MIS: tbl_kota atau View_kota)
2. Report dibuat dengan Crystal Report (misal kota.rpt)
3. Report Viewer (Penampil Report) dibuat dengan Form Visual Basic dan
Komponen Crystal Report)
4. Script untuk memanggil frmViewer




Untuk membuat report dengan crystal report kita terlebih dahulu
menghubungkan Crystal Report ke Tabel atau View di SQL Server. Lalu file
report mis: kota.rpt disimpan.
Gambar di bawah ini adalah contoh report yang dibuat dengan crystal report:




Setelah file disimpan, file ini nanti ditampilkan dengan Viewer (Penampil yang
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


akan kita buat sendiri.
Penampil/Viewer report ini dibuat dengan form Visual Basic yang di dalamnya
terdapat komponen Crystal Report Viewer.
Lihat gambar di bawah ini:




Selanjutnya form tersebut kita berinama frmViewer.frm


Di dalam frmViewer ini tentunya ada kode penampil sbb:


Public rptName As String
Public Sql As String
Public sConn As String


Private Sub Form_Load()
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------




    Dim oConn As New ADODB.Connection
    oConn.Open sConn
    Dim oRs As New ADODB.Recordset
    Dim CrystalApp As New CRAXDRT.Application
    Dim CrystalRpt As CRAXDRT.Report
    oRs.Open Sql, oConn, adOpenStatic, adLockReadOnly,
adCmdText


    Set CrystalRpt = CrystalApp.OpenReport(rptName)
    CrystalRpt.DiscardSavedData
    CrystalRpt.Database.SetDataSource oRs


    '-- tampilkan report pada viewer
    CrystalActiveXReportViewer1.ReportSource = CrystalRpt


    CrystalActiveXReportViewer1.ViewReport
    oRs.Close


End Sub




Sekarang waktunya membuat tombol dan script pemanggil frmViewer. Kodenya
adalah sbb:


Private Sub cmdLaporan_Click()
    frmViewer.sConn = "Provider=SQLOLEDB.1;Integrated
Security=SSPI;Persist Security Info=False;Initial
Catalog=Dataku;Data Source=."
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------




    frmViewer.rptName = "kota.rpt"
    frmViewer.Sql = "select * from kota where kode_kota=’K-
001’"


    frmViewer.Show


End Sub




Jika kode kita benar setelah mengklik tombol laporan maka akan berjalan seperti
gambar di bawah ini:




OK. Selamat sekarang report anda telah berjalan.
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


Untuk mempermudah pemahaman memang saya menjelaskan tahap-tahap
pembuatan report secara garis besar. Ini artinya ada yang terpotong-potong.

http://xbasicpro.com/training/vb6db/vb6_crystal_report.aspx




DAFTAR ISI
Pengantar........................................                                                                             1
Database.........................................                                                                             2
Install SQL Server...............................                                                                             3
Membuat database dengan
SQL Server Enterprise Manager ...................
16
Membuat Tabel....................................                                                                           21
Dasar Pengolahan Data dengan SQL Query Analizer..                                                                           27
  ad.1. Tambah Data..............................                                                                           28
  ad.2. Update (Edit)............................                                                                           31
  ad.3.Cari......................................                                                                           32
  ad.4. Delete...................................                                                                           33
Manipulasi database dasar dengan
Visual Basic 6.0................................                                                                            35
Membangun aplikasi databae dengan ADO & SQL.....                                                                            39
Berhubungan dengan sumber Data..................                                                                            40
Memanggil Rekaman Data dengan Objek Recordset...                                                                            41
Menambahkan MSHFlexGrid pada project............                                                                            51
Sinkronisasi MSHFlexGrid dengan objek textbox...                                                                            57
Validasi........................................                                                                            59
Mengurutkan data................................                                                                            62

Membuat              aplikasi database dengan
ADODC &              database MS-Access......................                                                               65
Membuat              Form Penjualan .........................                                                               82
  Tabel              Barang..................................                                                               82
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


     Tabel Jual_m..................................                                                                         83
     Table Jual_d..................................                                                                         84
     Kode pada General Declaration.................                                                                         86
     Kode pada Form_Load...........................                                                                         86
     Kode pada cmdTambah...........................                                                                         87
     Kode pada cmdEdit.............................                                                                         87
     Kode pada cmdHapus............................                                                                         88
     Kode pada cmdSimpan...........................                                                                         88
     Kode pada Form Jual Selengkapnya..............                                                                         90

Membuat              Form      Jual Edit Detail...................                                                          94
   Kode              pada      cmdLookup..........................                                                          95
   Kode              pada      cmdSimpan..........................                                                          95
   Kode              pada      cmdBatal...........................                                                          96

       Kode Lengkap pada Form Jual Edit Detail......                                                                        96

Membuat              Form Lookup Barang......................                                                             98
   Kode              pada General Declaration................                                                             99
   Kode              pada Form Load..........................                                                             99
   Kode              pada Form Unload........................                                                            101
   Kode              pada cmdOK..............................                                                            101
   Kode              pada Listview...........................                                                            102
   Kode              Lengkap pada Form BarangLookup.........                                                             102

Membuat Combo Lookup ...........................                                                                         106
Membuat Combo Lookup Multi Kolom ...............                                                                         113
Laporan (Report) dengan Crystal Report XI R 2..                                                                          121
Mendapat connection string dengan notepad.......                                                                         136

Pengolahan File Teks Sequensial (berurut).......                                                                         143
   Membuat File Baru............................                                                                         144
   Menambah Data................................                                                                         145
   Membaca Data.................................                                                                         146
   Mencari Data.................................                                                                         148
   Menghapus Data...............................                                                                         151
   Edit Data....................................                                                                         154
   Mengurutkan Data (Metode Bubble Short).......                                                                         159
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------




Dasar Aplikasi Transaksi Penjualan dengan
Database SQL Server.............................                                                                         164
Langkah-langkah Membuat Aplikasi Database.......                                                                         164
Merancang Database Untuk Transaksi Penjualan....                                                                         166
Membuat Tabel-Tabel dengan SQL Query Analizer...                                                                         169
Membuat View dengan SQL Eterprise Manager.......                                                                         172
Relasi Tabel dengan View........................                                                                         175
View Sebagai Sumber Data Faktur Penjualan.......                                                                         180
Membuat field perhitungan dengan Formula Field..                                                                         182
Membuat field Grandtotal dengan Running Total...                                                                         187
Menampilkan Report Faktur dengan Visual Basic...                                                                         189

Hitung Saldo Stok Barang........................                                                                         191
Visual Basic 6.0 dengan Database MySQL..........                                                                         199
Data Defenition Language (DDL) .................                                                                         199
Pengolahan Data dengan
Visual Basic 6.0 dan MySQL................ 207 –                                                                         212



Komentar:
adimustamin@gmail.com: e-book trik database visual basic pembahasannya to
te point aja. Jadi bisa lebih cepat menuju sasaran...ok mas tks... ya....

ekakeyen@gmail.com bagus, hehehe, trik databasenya ok, sangat membantu.

yupocom_yupo@yahoo.com (http://www.yupocom.com) lama sudah aku berjalan mencari-cari
dalam kebingungan. Akhirnya kutemukan seseorang yang mau membimbing. Pemberian materi
yang sederhana sangat membantuku memahami bagaimana membuat software. Terima kasih
Guru.

sugataw@yahoo.com: Bagus Bang, saya kan biasa VBA, jadi cepat ngerti dasar VB, saya sdh
coba dengan game tebakkata dan sy buat databasenya dgn access. Ilmunya dibagi ngga pernah
habis ya Bang...

irwan_sya@yahoo.com: E-book ini 1. penjelasan mudah di pahami, 2. urutannya jelas, 3. ada
gambar , 4. programnya simple dan tidak njelimet.. Tapi jujur penjelasan sangat menambah
pemahaman saya. yg tadinya cuma meraba-raba skr kian terang… tks mas

Anda bisa memesan E-Book ini hanya dengan Rp: 50.000,-
E-BOOK TRIK DATABASE VISUAL BASIC 6.0
oleh: Hartoto, Ir.



BAB GRATIS TRIK DATABASE VB 6.0                                                            http://www.xbasicpro.com
---------------------------------------------------------------------------------------------------------------------------------


SMS konfirmasi Pembayaran ke: 0821 6598 8036
atau
ke email: hartoto_d@yahoo.com

Format: nama rekening#email#vb6db
contoh: andi#andi@yahoo.com#v6bdb

http://xbasicpro.com/EBookTrikDBvb6.aspx

NB: Gratis! Konsultasi sampai ngerti…

More Related Content

Ebook trikdatabasevb6babgratis

  • 1. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. Pada E-book ini saya menjelaskan bagaimana membuat aplikasi database. Pengalaman ini juga pernah digunakan sebagai bahan tes untuk menjadi programmer pada suatu perusahaan pengembang software. Pengolahan database dasar seperti Tambah, Edit, Cari, Update, Hapus, Mengurutkan, Browse dan Laporan merupakan pengolahan database dasar yang paling fundamental.
  • 2. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- Artinya dengan pengetahuan dasar pengolahan database dasar yang kuat diharapkan bisa menjadi landasan untuk membuat aplikasi database yang mantap. Sepanjang E-Book ini database yang digunakan adalah database Microsoft SQL Server. Pembahasan pembuatan program diusahakan dengan full code (penuh dengan kode). Ini dibuat untuk memudahkan Anda membuat aplikasi yang lebih fleksibel dan memudahkan anda membuat aplikasi ke tingkat lanjut. Manipulasi Database Dasar Dengan Visual Basic 6.0 Untuk melakukan manipulasi database dengan Visual Basic terlebih dahulu kita harus mengetahui bagaimana cara menghubungkan database SQL Server ke project Visual Basic 6.0. Ada banya cara yang dapat dilakukan untuk menghubungkan database ke visual basic 6.0. Untuk kemudahan sekaligus cara cepat saya hanya akan menjelaskan cara yang biasa dipakai untuk membuat project-project database bisnis.
  • 3. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- - Microsoft ActiveX Data Objects (ADO) ADO adalah bagian dari sekelompok besar program yang disebut Microsoft Data Access Compnonents (MDAC). Objek ADO ini berfungsi menyediakan antar muka pengrograman pada project kita dengan berbagai sumber data. Dengan kata lain pengolahan data-data pada database dilakukan melalui kode-kode ADO ini, lalu ditampilkan pada aplikasi kita. Pada umumnya aplikasi-aplikasi memerlukan beberapa bentuk pengakses data. Microsoft ActiveX Data Objects (ADO) adalah teknologi Microsoft yang dapat menyediakan antarmuka pemrograman antara aplikasi yang kita buat dengan berbagai sumber data. Model Objek ADO menyediakan objek-objek, properti dan methode untuk membuat aplikasi yang dapat mengakses dan memanipulasi data.
  • 4. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- Gambar di bawah ini menunjukkan kedudukan ADO dalam mengakses data: perhatikan, fokus kita sekarang adalah pada gambar yang ditandai oleh garis hijau yaitu mulai dari Visual Basic Aplication - ADO - OLE DB – SQL Server Data Provider dan Database SQL Server. Data Consumers Pemakai data (data consumers) adalah aplikasi-aplikasi yang memakai data yang diekspos oleh penyedia data (data provider). ADO adalah antarmuka yang dapat diprogram untuk mempergunakan data.
  • 5. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- Service Components Service components adalah elemen-elemen data yang memproses dan mentransport data dan meningkatkan fungsionalotas dari data provider/penyedia data. Data Providers Data providers/penyedia data adalah aplikasi, seperti MS-SQL Server atau Exchange. Penyedia data/data provider ini mengekspos antar muka OLE-DB untuk menyediakan data bagi pemakai data/data consumers secara langsung. Bagaimana Hubungan OLE DB dengan ADO ADO telah dirancang sebagai satu antar uka yang dibutuhkan untuk pengembangn program single dan client/server multi tier, seperti aplikasi Data Berbasis Windows atau WEB. Keuntungan utamanya adalah kemudahan pamakaian, kecepatan tinggi, konsumsi memory rendah dan konsumsi sumberdaya disk yang rendah. ADO menyediakan kemudahan antarmuka ke OLE DB. ADO mudah dipergunakan karena mempergunakan antarmuka COM automation yang tersedia pada Alat-alat pengembangan perangkat lunak yang cepat termasuk Visual Basic, Java, VBScript, JScript dan C/C++.
  • 6. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- - Structured Query Language (SQL) Semua sistem database/ basis data menerima perintah bahasa pencarian terstruktur (Structured Query Language/ SQL). Tidak terkecuali MS-Access ataupun MS-SQL Server. ADO menerima perintah SQL dari kode aplikasi lalu mengirimnya ke perangkat lunak database untuk mengeksekusinya. pada manipulasi data di atas kita telah menggunakan syntax SQL pada SQL Query Analizer. SQL adalah bahasa standard yang dipakai untuk aplikasi database / basis data. Perintah SELECT merupakan perintah yang paling umum dipakai. Sebagai contoh kasus, anggaplah program anda akan menampilkan nama dan email pada tabel TAMU. Pernyataan SQL nya adalah seperti ini: SELECT Nama,Email FROM Tamu Arti pernyataan di atas adalah memanggil semua Nama dan Email yang berada pada tabel Tamu. Pernyataan di atas hanyalah pernyataan Query SQL yang tidak menghasilkan record/rekaman ke aplikasi anda. Anda masih membutuhkan komponen yang lain agar Query SQL tersebut dapat menghasilkan Recordset dan sekaligus menampilkan record-record/rekaman-rekaman tersebut ke aplikasi anda.
  • 7. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- Pengolahan Data Dasar Dengan Visual Basic 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 OK. Sekarang kita menuls kode: Kode pada General Declaration Private sConn As String
  • 8. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- 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
  • 9. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- 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
  • 10. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- 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 & "',
  • 11. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- 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
  • 12. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- 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
  • 13. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- Set grd.Recordset = oRs oRs.Close End Sub Untuk melakukan demo programnya tekan tombol Run (F5) lalu click option Urutkan Berdasarkan NIM. klik di sini untuk melihat hasilnya . http://xbasicpro.com/training/vb6db/vb6_database.aspx Membuat Form Lookup dengan Listview Control Dalam pembuatan aplikasi bisnis sering kali diperlukan form Lookup. Yand saya maksud dengan lookup di sini adalah form atau apapun yang dipergunakan untuk browse/ jelajah atau pencarian data. Ada berbagai cara orang membuat lookup ini. Ada yang membuatnya dengan menggunakan combo multi kolom third party seperti TruDBCombo dan lain-lain. Ada juga yang membuat nya sendiri dengan perpaduan beberapa control dasar seperti textbox, comm and button, lisbox ataupun listview. Semua dapat dibuat sesuai dengan selera dan kemudahan nya masing-masing. Klo saya memang lebih suka membuat sendiri semua itu daripada menggunakan
  • 14. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- produk third party (menggunakan 2rd party berarti harus belajar banyak hal baru lagi). Di bawah ini adalah contoh project pembuatan form Jual yang menggunakan Lisview sebagai control untuk menampilkan daftar barang pada form Lookup Barang. Jika anda belum memahami dasar Listview anda dapat melihat artikel saya yang berjudul List View Control pada Visual Basic 6.0 Pada program ini kita menggunakan database Microsoft access. Buat database dengan nama dbjual.mdb Lalu buat tabel barang dengan field-field seperti di bawah ini: kdbrg text(5)
  • 15. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- nmbrg text(50) satuan text(10 harga number Sekarang kita ke Form Edit Pada gambar di atas Anda lihat ada tombol kecil di form Edit dengan caption [...] Pembahasan kita berangkata dari tombol terserbut. Selanjutnya tombol tersebut kita beri nama cmdLookup. Setelah pemakai meng klik tombol tersebut maka program kita memanggil form BarangLookup.frm Berikut ada lah kode pada cmdLookup Private Sub cmdLookup_Click() barangLookup.Show End Sub Kode Lengkap pada form BarangLookup: Private oConn As New ADODB.Connection Private oRs As New ADODB.Recordset Private Sub cmdOK_Click() JualFormEditDetail.txtKdBrg.Text = ListView1.SelectedItem.Text
  • 16. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- JualFormEditDetail.txtNmBrg.Text = ListView1.SelectedItem.SubItems(1) JualFormEditDetail.txtSatuan.Text = ListView1.SelectedItem.SubItems(2) JualFormEditDetail.txtHarga.Text = ListView1.SelectedItem.SubItems(3) Unload Me End Sub Private Sub Form_Load() oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "dbjual.mdb;Persist Security Info=False" oRs.Open "SELECT * FROM barang ", oConn, adOpenKeyset ListView1.ColumnHeaders.Clear ListView1.ListItems.Clear ListView1.View = lvwReport ListView1.ColumnHeaders.Add , , "kd.brg" ListView1.ColumnHeaders.Add , , "Nama.brg" ListView1.ColumnHeaders.Add , , "satuan" ListView1.ColumnHeaders.Add , , "harga" ListView1.ColumnHeaders(1).Width = 1000 ListView1.ColumnHeaders(2).Width = 2000 ListView1.ColumnHeaders(3).Width = 500 ListView1.ColumnHeaders(4).Width = 500 'baris For brs = 0 To oRs.RecordCount - 1 'isi kolom 0
  • 17. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- Set oItem = ListView1.ListItems.Add(, , oRs.Fields(0)) 'isi kolom berikutnya For kol = 1 To 3 oItem.SubItems(kol) = oRs.Fields(kol) Next kol oRs.MoveNext Next brs End Sub Private Sub Form_Unload(Cancel As Integer) oConn.Close Set oConn = Nothing Set oRs = Nothing End Sub Private Sub ListView1_DblClick() cmdOK.Value = True End Sub Setelah anda memilih pada salah satu record di Listview pada form barang lookup lalku anda tekan tombol OK maka record tersebut akan dicopy ke form Edit. Lihat gambar di bawah ini:
  • 18. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- Sekarang Anda melihat record yang ada di listview sudah di copy ke textbox yang ada di form Edit. Selanjutnya isi qty dengan angka 5 lalu tekan tombol Simpan pada Form Edit maka data ini masuk ke Listview yang ada di Form Jual. Lihat gambar di bawah ini:
  • 19. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- Ok. Sekarang form Jual sudah lengkap datanya. Tombol Simpan yang ada di bawah dipergunakan untuk menyimpan data yang ada diform ke database MS- Access. Untuk memenuhi kebutuhan pembahasan pembuatan Form Lookup kode yang saya sajikan di atas sudah memenuhi http://xbasicpro.com/training/vb6db/vb6_database.aspx Membuat Laporan dengan Crystal Report & Visual Basic 6.0 Dalam pembuatan program database report dipergunakan untuk menampilkan data hasil seleksi maupun hasil proses pemrograman. Crystal Report merupakan paket software yang dipergunakan untuk keperluan menampilkan report. Banyak fitur pengolahan report yang disediakan oleh crystal report namun saya lebih suka memanipulasi data report melalui Query yang ada di SQL Server maupun melalui kode di Visual Basic 6.0 Misalnya kita akan menampilkan daftar nama kota ke file Kota.rpt Komponen-komponen penyusun report dalam aplikasi kita adalah sebagai
  • 20. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- berikut: 1. View atau Table dibuat dengan SQL Server (MIS: tbl_kota atau View_kota) 2. Report dibuat dengan Crystal Report (misal kota.rpt) 3. Report Viewer (Penampil Report) dibuat dengan Form Visual Basic dan Komponen Crystal Report) 4. Script untuk memanggil frmViewer Untuk membuat report dengan crystal report kita terlebih dahulu menghubungkan Crystal Report ke Tabel atau View di SQL Server. Lalu file report mis: kota.rpt disimpan. Gambar di bawah ini adalah contoh report yang dibuat dengan crystal report: Setelah file disimpan, file ini nanti ditampilkan dengan Viewer (Penampil yang
  • 21. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- akan kita buat sendiri. Penampil/Viewer report ini dibuat dengan form Visual Basic yang di dalamnya terdapat komponen Crystal Report Viewer. Lihat gambar di bawah ini: Selanjutnya form tersebut kita berinama frmViewer.frm Di dalam frmViewer ini tentunya ada kode penampil sbb: Public rptName As String Public Sql As String Public sConn As String Private Sub Form_Load()
  • 22. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- Dim oConn As New ADODB.Connection oConn.Open sConn Dim oRs As New ADODB.Recordset Dim CrystalApp As New CRAXDRT.Application Dim CrystalRpt As CRAXDRT.Report oRs.Open Sql, oConn, adOpenStatic, adLockReadOnly, adCmdText Set CrystalRpt = CrystalApp.OpenReport(rptName) CrystalRpt.DiscardSavedData CrystalRpt.Database.SetDataSource oRs '-- tampilkan report pada viewer CrystalActiveXReportViewer1.ReportSource = CrystalRpt CrystalActiveXReportViewer1.ViewReport oRs.Close End Sub Sekarang waktunya membuat tombol dan script pemanggil frmViewer. Kodenya adalah sbb: Private Sub cmdLaporan_Click() frmViewer.sConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Dataku;Data Source=."
  • 23. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- frmViewer.rptName = "kota.rpt" frmViewer.Sql = "select * from kota where kode_kota=’K- 001’" frmViewer.Show End Sub Jika kode kita benar setelah mengklik tombol laporan maka akan berjalan seperti gambar di bawah ini: OK. Selamat sekarang report anda telah berjalan.
  • 24. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- Untuk mempermudah pemahaman memang saya menjelaskan tahap-tahap pembuatan report secara garis besar. Ini artinya ada yang terpotong-potong. http://xbasicpro.com/training/vb6db/vb6_crystal_report.aspx DAFTAR ISI Pengantar........................................ 1 Database......................................... 2 Install SQL Server............................... 3 Membuat database dengan SQL Server Enterprise Manager ................... 16 Membuat Tabel.................................... 21 Dasar Pengolahan Data dengan SQL Query Analizer.. 27 ad.1. Tambah Data.............................. 28 ad.2. Update (Edit)............................ 31 ad.3.Cari...................................... 32 ad.4. Delete................................... 33 Manipulasi database dasar dengan Visual Basic 6.0................................ 35 Membangun aplikasi databae dengan ADO & SQL..... 39 Berhubungan dengan sumber Data.................. 40 Memanggil Rekaman Data dengan Objek Recordset... 41 Menambahkan MSHFlexGrid pada project............ 51 Sinkronisasi MSHFlexGrid dengan objek textbox... 57 Validasi........................................ 59 Mengurutkan data................................ 62 Membuat aplikasi database dengan ADODC & database MS-Access...................... 65 Membuat Form Penjualan ......................... 82 Tabel Barang.................................. 82
  • 25. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- Tabel Jual_m.................................. 83 Table Jual_d.................................. 84 Kode pada General Declaration................. 86 Kode pada Form_Load........................... 86 Kode pada cmdTambah........................... 87 Kode pada cmdEdit............................. 87 Kode pada cmdHapus............................ 88 Kode pada cmdSimpan........................... 88 Kode pada Form Jual Selengkapnya.............. 90 Membuat Form Jual Edit Detail................... 94 Kode pada cmdLookup.......................... 95 Kode pada cmdSimpan.......................... 95 Kode pada cmdBatal........................... 96 Kode Lengkap pada Form Jual Edit Detail...... 96 Membuat Form Lookup Barang...................... 98 Kode pada General Declaration................ 99 Kode pada Form Load.......................... 99 Kode pada Form Unload........................ 101 Kode pada cmdOK.............................. 101 Kode pada Listview........................... 102 Kode Lengkap pada Form BarangLookup......... 102 Membuat Combo Lookup ........................... 106 Membuat Combo Lookup Multi Kolom ............... 113 Laporan (Report) dengan Crystal Report XI R 2.. 121 Mendapat connection string dengan notepad....... 136 Pengolahan File Teks Sequensial (berurut)....... 143 Membuat File Baru............................ 144 Menambah Data................................ 145 Membaca Data................................. 146 Mencari Data................................. 148 Menghapus Data............................... 151 Edit Data.................................... 154 Mengurutkan Data (Metode Bubble Short)....... 159
  • 26. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- Dasar Aplikasi Transaksi Penjualan dengan Database SQL Server............................. 164 Langkah-langkah Membuat Aplikasi Database....... 164 Merancang Database Untuk Transaksi Penjualan.... 166 Membuat Tabel-Tabel dengan SQL Query Analizer... 169 Membuat View dengan SQL Eterprise Manager....... 172 Relasi Tabel dengan View........................ 175 View Sebagai Sumber Data Faktur Penjualan....... 180 Membuat field perhitungan dengan Formula Field.. 182 Membuat field Grandtotal dengan Running Total... 187 Menampilkan Report Faktur dengan Visual Basic... 189 Hitung Saldo Stok Barang........................ 191 Visual Basic 6.0 dengan Database MySQL.......... 199 Data Defenition Language (DDL) ................. 199 Pengolahan Data dengan Visual Basic 6.0 dan MySQL................ 207 – 212 Komentar: adimustamin@gmail.com: e-book trik database visual basic pembahasannya to te point aja. Jadi bisa lebih cepat menuju sasaran...ok mas tks... ya.... ekakeyen@gmail.com bagus, hehehe, trik databasenya ok, sangat membantu. yupocom_yupo@yahoo.com (http://www.yupocom.com) lama sudah aku berjalan mencari-cari dalam kebingungan. Akhirnya kutemukan seseorang yang mau membimbing. Pemberian materi yang sederhana sangat membantuku memahami bagaimana membuat software. Terima kasih Guru. sugataw@yahoo.com: Bagus Bang, saya kan biasa VBA, jadi cepat ngerti dasar VB, saya sdh coba dengan game tebakkata dan sy buat databasenya dgn access. Ilmunya dibagi ngga pernah habis ya Bang... irwan_sya@yahoo.com: E-book ini 1. penjelasan mudah di pahami, 2. urutannya jelas, 3. ada gambar , 4. programnya simple dan tidak njelimet.. Tapi jujur penjelasan sangat menambah pemahaman saya. yg tadinya cuma meraba-raba skr kian terang… tks mas Anda bisa memesan E-Book ini hanya dengan Rp: 50.000,-
  • 27. E-BOOK TRIK DATABASE VISUAL BASIC 6.0 oleh: Hartoto, Ir. BAB GRATIS TRIK DATABASE VB 6.0 http://www.xbasicpro.com --------------------------------------------------------------------------------------------------------------------------------- SMS konfirmasi Pembayaran ke: 0821 6598 8036 atau ke email: hartoto_d@yahoo.com Format: nama rekening#email#vb6db contoh: andi#andi@yahoo.com#v6bdb http://xbasicpro.com/EBookTrikDBvb6.aspx NB: Gratis! Konsultasi sampai ngerti…