Setyo_asmoro @ yahoo.com
Diktat Kuliah : “Pemrograman Bisnis” Disusun Oleh : Dimas Prasetyo T.A. Copyright © Mei 2005. Contact : setyo_asmoro @ yahoo.com STMIK Swadharma. http://boim.simple.as Note : Boleh diperbanyak untuk pngembangan pendidikan.
Materi : Koneksi database & Operasi dasar table di Visual Basic 6.0. A. Koneksi Database. Sebagai Latihan awal, buatlah database di Ms.Access Simpan D:\nama_nim\data1.mdb. Buatlah table dengan nama MHS sebagai berikut :
di
Isi data sebagai contoh :
Save, kemudian, lihat versi office anda, jika bukan versi 1997 ( office 2000 atau XP ), maka konversikan ke 1997 format, caranya : • Klik Tools, Database utilities, Convert database, to Access 97 format.
Diktat PB 1 ©2005
1
Setyo_asmoro @ yahoo.com
•
simpan di folder yang sama, beri nama dataku.mdb, klik ok, kini tersedia database dengan nama dataku dengan Ms.Access versi 97.
Keluar dari Ms.access. Mulailah bekerja dengan Microsoft Visual Basic 6.0.(VB). Koneksi Database di VB bisa menggunakan Data control, BDE atau komponen ADODC. Serta Database yang digunakan bisa dBase,MySQL,SQLserver, Ms.Access, dsb. Namun, dalam praktek yang saya bawakan kali ini, kita akan mencoba koneksi menggunakan Data dengan Database Ms. Access. Langkah – Langkahnya : • Masukkan Komponen Label,Text,Command, Data, dan DBGrid, ke dalam Form aktif/ form kerja kita,namun, kadangkala DB Grid tidak otomatis ada, maka kita menambah komponen dengan cara klik kanan toolbox, klik Components :
• •
Pilih Microsoft Databound Grid Control 5.0 (SP3), Klik Apply,klik close. Sekarang buat tampilan sebagai berikut dengan objek text,label,command,data, dan DB Grid :
Diktat PB 1 ©2005
2
Setyo_asmoro @ yahoo.com
• Set propertinya sebagai berikut : Nama Object Property Text name text Text name text text name text label name Caption label name Caption label name Caption Data name Caption DBGrid name Datasource Command name Caption Command name Caption
Nilai Text1 Text2 Text3 Label1 Nim Label2 Nama Label3 Alamat Data1 Databaseku DBGrid1 Data1 Command1 &Save Command2 &Delete
Diktat PB 1 ©2005
3
Setyo_asmoro @ yahoo.com
Command
name Caption name Caption name Caption name Caption
Command Command Command
• •
Command3 &Edit Command4 &Find Command5 &Cancel Command6 E&xit
Simpan form & Projectnya di folder tempat anda menyimpan database. Cara memasukkan script adalah double click pada objeknya, berikut listing / script programingnya : 1. Pada Form ( Untuk Koneksi Data1 ke database access versi 97 ) Private Sub Form_Load() Data1.DatabaseName = App.Path + "\dataku.mdb" Data1.RecordSource = "Mhs" End Sub 2. Pada Text1 ( Ingat eventnya Keypress bukan change ) : Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub 3. Pada text 2 : Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End If End Sub 4. Pada text 3 : Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End If End Sub 5. Pada Command1 : Private Sub Command1_Click() Data1.Recordset.AddNew Data1.Recordset("Nim") = Text1.Text Data1.Recordset("Nama") = Text2.Text Data1.Recordset("Alamat") = Text3.Text
Diktat PB 1 ©2005
4
Setyo_asmoro @ yahoo.com
Data1.Recordset.Update Command5.Value = True End Sub 6. Pada Command2 : Private Sub Command2_Click() Data1.Recordset.Delete Data1.Refresh Command5.Value = True End Sub 7. Pada Command3 : Private Sub Command3_Click() Data1.Recordset.Edit Data1.Recordset("Nim") = Text1.Text Data1.Recordset("Nama") = Text2.Text Data1.Recordset("Alamat") = Text3.Text Data1.Recordset.Update Command5.Value = True End Sub 8. Pada Command4 : Private Sub Command4_Click() Data1.Recordset.MoveFirst i=1 j = Data1.Recordset.RecordCount While i < j If Data1.Recordset("Nim") = Text1.Text Then Text2.Text = Data1.Recordset("Nama") Text3.Text = Data1.Recordset("alamat") k=j-i i = (i + k) Data1.Recordset.MovePrevious End If i=i+1 Data1.Recordset.MoveNext Wend End Sub 9. Pada Command5 : Private Sub Command5_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub 10. Pada Command6 : Private Sub Command6_Click() Unload Me End Sub
Diktat PB 1 ©2005
5
Setyo_asmoro @ yahoo.com
Sekarang Run Program anda. Jika merasa belum puas edit dan perbaikilah tampilan form anda.Jika ingin memperdalam lagi, janganlah berhenti belajar sampai disini, karena masih banyak rahasia – rahasia VB yang mungkin belum anda ketahui masih sebagai misteri bagi anda, Jangan pernah menyerah, teruslah belajar.
Biografi penulis : Dimas Prasetyo Tegar Asmoro, Lahir di bogor 10 Juli 1985. Lulusan SMK Telkom Purwokerto, saat ini sedang menyelesaikan S1 di STMIK Swadharma sehari – hari disibukkan dalam dunia pendidikan Komputer.Pernah mengikuti TOKI ( Test Olimpiade Komputer Indonesia ) Tahun 2001.Diktat yang pernah ditulis antara lain adalah Metode Perancangan program, koneksi database pada delphi.
Diktat PB 1 ©2005
6