Masih seputaran postingan VB, kali ini saya akan berbagi sedikit tentang membuat program database yang memakai Ms. Acces 2003. Tapi disini saya tidak menuliskan coding-coding nya karena terlalu panjang sob, capek ngetiknya. Jadi sob bisa download langsung disini, Aplikasi ini tentang pencarian data pelanggan, input, edit, menghapus data dan mengexsport database ke excel file serta dilengkapi file setup nya kalau yang mau menginstall, Aplikasi ini merupakan Aplikasi saya yang pertama untuk pemrograman Database jadi coding nya masih belum begitu rapi hehehe. Bagi yang masih VB Beginner mohon konfirmasi dulu setelah mendownload karena aplikasi ini mempunyai Password. Screen shoot seperti gambar dibawah ini
mudah-mudahan ada mamfaat nya bagi kita semua, bagi yang nyedot jangan lupa ya titip komentar nya .. makasihUser Name : telkom
Password : telkom
Dalam membuat sebuah Aplikasi (Program) Tampilan atau design program sangat lah menunjang bagi puas nya user (pengguna program) dan Software maker itu sendiri (ciaaah), disini saya mencoba membagikan sedikit ilmu yang saya dapat untuk menunjang design tampilan tersebut yang merupakan Control ActiveX (komponen tambahan), Button adalah salah satu nya. Kalau anda tertarik bisa anda dapatkan disini dan jangan lupa baca dulu Readme nya ada panduan sedikit disana, gimana style button nya .. liat aja dibawah.
gimana ....... cool-cool kan (yaa iyaa lah gak pake' iyang donk). Kalau nyedot jangan lupa koment nya bro, mudah2an anda mamfaat nya bagi anda ... thanx (eRGe)
Saya coba berbagi lagi neh untuk para junior VB ataw yang baru blajar VB tentang mencari selisih tanggal, untuk eksperimen .. saya coba menerapkannya pada contoh project dibawah ini yaitu tentang menghitung umur, bagi yang berkenan silakan ikuti langkah2 berikut
persiapan yang dilakukan :
- Buatlah Project Baru (Standard exe)
- Tambahkan :
- 3 Label
- Label1 (Caption : Mencari Selisih Tanggal)
- Label2 (Caption : Lahir :)
- Label3 (Caption : Umur Anda)
- 1 Buah Frame ------> Caption : Masukan Tanggal Lahir
- 3 Buah ComboBox ----> Style : 2 - Dropdown List
- 1 Buah Command Button
yang kurang lebih penampakannya seperti gambar dibawah ini
kemudian ketik Coding dibawah ini pada Form
Option Explicit
Private Sub showTanggal()
Dim i As Byte
For i = 1 To 31
Combo1.AddItem Format(i, "00")
Next i
Combo1.ListIndex = 0
End Sub
Private Sub showBulan()
Dim i As Byte
For i = 1 To 12
Combo2.AddItem Format(i, "00")
Next i
Combo2.ListIndex = 0
End Sub
Private Sub showTahun()
Dim i As Integer
For i = 1950 To Year(Now)
Combo3.AddItem i
Next i
Combo3.ListIndex = 0
End Sub
Private Sub Command1_Click()
Dim sLahir As String
sLahir = Combo1 + "/" + Combo2 + "/" + Combo3
If IsDate(sLahir) = True Then
Label3.Caption = "Umur anda sekarang : " & SelisihTanggal(CDate(sLahir), Date)
Else
MsgBox "Tanggal nya salah coy", 48, "Info"
Combo1.SetFocus
End If
End Sub
Private Sub Form_Load()
showTanggal
showBulan
showTahun
End Sub
Private Function SelisihTanggal(ByVal TanggalAwal As _
Date, ByVal TanggalAkhir As Date) As String
Dim Tahun As Integer, Sisa As Integer
Dim SelisihBulan As Integer
On Error GoTo pesan
SelisihBulan = DateDiff("m", TanggalAwal, TanggalAkhir)
Tahun = SelisihBulan \ 12
Sisa = SelisihBulan Mod 12
SelisihTanggal = Tahun & " Tahun " & Sisa & " Bulan"
Exit Function
pesan:
MsgBox "Tipe Tanggal Salah!", vbCritical, "Error TAnggal"
End Function
Mudah2an ada manfaat nya bagi rekan2 VB Beginner dan selamat mencoba jangan lupa nitip comment nya .. makasih salam ..
Pada posting kali ini saya coba mengulas kembali mengenai pembuatan program dengan Visual Basic khususnya tentang database. Ada beberapa alternatif dalam hal pembuatan database ini seperti memakai Visdata yang merupakan Tool bawaan dari VB, SqlServer, Ms. Acces, memakai coding dll. Nah kali ini saya akan membahas sesuai dengan judul posting yaitu Membuat Database dengan memakai coding. Untuk mempersingkat waktu kita langsung to the point aja, persiapan yang harus dilakukan ……………
Buatlah Project baru (Standard Exe)
Tambahkan Microsoft DAO 3.6 Object Library dengan cara click menu Project > References … cari dan pilih Microsoft DAO 3.6 Object Library
Tambahkan 1 module
'Ketik coding berikut pada Module
Option Explicit
Public DbLokasi As String
Public DbNama As String
Public Function CreateDB()
Dim DTB As Database
Dim Tabel As TableDef
Screen.MousePointer = vbHourglass
Set DTB = CreateDatabase(DbLokasi & "\" & DbNama, dbLangGeneral)
Set Tabel = DTB.CreateTableDef("Login")
With Tabel
.Fields.Append .CreateField("UserName", dbText)
.Fields.Append .CreateField("Password", dbText)
End With
DTB.TableDefs.Append Tabel
Set Tabel = Nothing
DTB.Close
Screen.MousePointer = vbDefault
End Function
'Ketik Coding berikut pada Form
Private Sub Form_Load()
DbLokasi = App.Path
DbNama = "DBase.mdb"
If Dir(DbLokasi & "\" & DbNama) <> "" Then
Kill DbLokasi & "\" & DbNama
End If
Call CreateDB
End Sub
Kemudian simpan project lalu run program, lihat pada folder tempat anda menyimpan project sudah ada file baru dengan nama “DBase.mdb”Mudah2an ada mamfaat nya bagi anda … terimakasih
Widget penerjemah bahasa dari google ini sudah banyak digunakan dikalangan blogger dan webmaster, apabila ada pengunjung dari manca negara yang tidak bisa mengartikan bahasa indonesia kedalam bahasa yang diinginkan maka widget google translate bisa membantu menerjemahkan situs kita, tapi jika kita menggunakan bahasa yang tidak baku google translate akan kesulitan menerjemahkanya, jadi diharapkan menggunakan bahasa baku jika ingin sempurna diterjemahkan oleh google translate ini.
dibawah ini adalah bentuk widget tool dari google translate :
Udah dicoba belum? kalau sudah jika mau pasang widget ini silahkan baca dibawah ini.
Copy paste code dibawah ini kedalam blog Anda dengan cara :
1. Masuk menu Layout kemudian masuk menu Page Elements
2. Pilih box layout yang diinginkan kemudian klik Add a gadgets
3. Pilih Gadget HTML/JavaScript dan taruh code dibawah ini :
<script src="http://www.gmodules.com/ig/ifr?url=http://www.google.com/ig/modules/translatemypage.xml&up_source_language=id&w=160&h=60&title=&border=&output=js"></script>
Code yang berwarna merah diatas adalah ukuran dari widget yang bisa kamu ubah-ubah. Kalau sudah kemudian SAVE.
Nah sedikit info dari saya dan jika Anda mau menggunakan layanan dari google translate yang lain kunjungi : http://translate.google.com
Sesuai janji saya pada posting yang lalu tentang cara mengetahui Protect (Password) Ms.Access dengan VB memakai coding2 yang singkat dan tidak memerlukan software besar yang memakan ruang hardisk anda, nah disini saya menjelaskan sedikit tentang hal itu. Mungkin terlalu banyak password sehingga anda lupa dengan password anda sendiri, dengan software kecil ini anda bisa mengetahui kembali tapi sayang hanya diperuntukan pada Ms. Access 95, 97 dan 2000 saja tapi gak pa-pa mungkin ada mamfaat nya bagi anda yang memakai pemrograman database dengan Ms. Acces dengan versi2 tersebut. Harapan saya smoga rekan2 VB Developer tidak menyalahgunakanya atau dengan kata lain dapat merugikan orang, sayang kan orang udah capek2 dan memakan banyak waktu membuat suatu program database kita yang merusaknya (don’t try it). Saya memposting ini hanya sekedar share ilmu tentang vb (just do it), tidak ada maksud yang lain. Banyak ngoceh pegel juga neh langsung aja, bagi yang berminat klik aja disini hanya 42 kb, bagi yang nyedot nitip comment nya ya.
Untuk Posting Kontrol ActiveX kali ini saya coba mengulas tentang Listview, yang merupakan suatu kontrol untuk menampilkan List data baik itu berupa Gambar (Image), Database dll, Windows Explore adalah salah satu contoh penerapan control Listview tsb. Memang pada dasar nya pada VB itu sendiri banyak menyediaakan control2 list bawaan lahir, seperti Data Bound Grid Control, Data Grid Control, Data List Control, Hierarchical FlexGrid Control dan masih banyak yang lainya. Tapi nggak ada salah nya kalau bro2 coba Control yang satu ini, nama nya VbaListview, dasar control ini adalah listview yang ada pada Microsoft windows Common Controls 5.0 tapi disana sini nya udah banyak modivikasi seperti GridLine, Sort Data, tampilan Image, bagi yang pake script Manifest Tampilan control ini akan mengikuti tema window yang dipakai dll.
Hal yang sangat menonjol menurut saya untuk sortir data nya, dan saya sendiri memakai control ini untuk pembuatan program database khusus membuat list data, untuk sortiran data lebih gampang seperti yang type data Text, Date, Number.Cuma kelemahanya agak lambat dalam menampilkan data jika dibandingkan dengan Listview yang ada pada Microsoft windows Common Controls 5.0 dan 6.0 dan ini sangat terasa pada data yang ratusan apalagi yang ribuan ya (he..he..), punya kelemahan kok diposting mungkin begitu anggapan bro2 yang baca artikel ini, ya iya sih ada kelemahanya tapi banyak juga keunggulanya bro kalau nggak percaya coba aja… ne disini jangan lupa baca readme nya dulu (very important kata orang bule'), sepertinya CCleaner pake' control ini juga . Gimana bentuk penampakan listview tersebut liat tuch yang dibawah ..... serem gak ... itu makanya coba dulu
Mudah mudahan ada mamfaat nya bagi rekan2 VB Developer dan makasih bagi yang udah baca artikel ini ... salam by eRGe.
