Step by Step Membuat Database di VB6 dengan Mengkoneksikan Microsoft Acces

Beranda
Komunitas
Tech
Programmer Forum
Step by Step Membuat Database di VB6 dengan Mengkoneksikan Microsoft Acces

fahmi.arieffz

14-11-2013 17:24

Step by Step Membuat Database di VB6 dengan Mengkoneksikan Microsoft Acces

Assalamualaikum Wr.Wb.

Halo Agan2 dan Aganwati, ini adalah postingan pertama saya, maaf kalo kalo masih berantakan. emoticon-Sorry

Disini ane mau ngasih step by step ngebuat database di VB6 dengan ngekoneksiin microsoft acces. emoticon-Ngakak

Spoiler for Software yang di butuhkan:

Pertama Microsoft Visual Basic 6, terserah mau yg enterprise edition, profesional edition, mini edition, yang penting VB6.

Kedua, Microsoft Access

1. Membuat Database di MIcrosoft Access

Step 1 : Formatnya Harus Mdb
Buka Microsoft Acces dan kemudian langsung Save As, dan pilih "Save as Type" Microsoft Access Database (2002-2003) format file nya biar "mdb "soalnya defaultnya formatnya "accdb"

Spoiler for gambar 1:

Step 2 : Membuat Tabel
Biasanya pas udah di save itu ada yang objek tabelnya ada / kosong, jadi belum ada tabelnya, kalo misal gk ada tabelnya bisa di buat dulu klik Create di Menu bar- Pilih Table. Buat 2 tabel ya

Spoiler for gambar 2:

jika udah ada tabel nya tinggal di rename jadi inventaris sama admin, atau gimana agan/aganwati aja rename nya mau apa.

Spoiler for gambar 3:

jika udah gitu selanjutnya klik kanan pada table - pilih design view buat ngebuat nama field sama type data database.

Spoiler for gambar 4:

ini gan/ganwati field-field sama type data masing-masing tabel

Spoiler for gambar 5 dan 6:

Jangan lupa required di general nya harus "Yes" OK

Step 3 : Mengisi data Tabel
Yang harus di isi tuh cuma tabel admin aja kalo yang inventaris ntar di isi lewat program vb6.
Caranya sama kaya gambar 4 di step 2 cuma pilihnya "Datashet View".
Kemudian isi tiap field nya bebas mau berapa data

Spoiler for gambar 7:

Nah selesai udah buat database di access nya skarang pindah ke program VB nya.

2. Membuat Form Sebagai Input & Output Datase

Step 1 : Membuat Objek-objek Program
Buka dulu VB 6 nya kemudian buat di satu Form kaya Gini:

Spoiler for gambar 8:

Itu gambar acaknya.
Penjelasan:
-Tanda lingkar/elips/kotak Merah itu textbook
-Tanda lingkar/elips/kotak Biru itu label
-Tampilan background sama yang biru tempat textbook username & login pake frame
-yang kaya button mah dah pasti command button
- yang kaya player musik sama di tengahnya ada tulisan adodc1. itu "microsoft ADO data Control"
-kalender itu "microsoft calendar control"
-trus trakhir yg paling pojok kanan bawah itu "microsoft datagrid control"

Cara munculin komponen-komponen kalender,adodc, sama datagrid tinggal klik kanan pada area toolbox - pilih component- checklist- trus apply - OK deh
componentnya muncul di toolbox paling bawah.

Ntar tampilannya jadi kaya 3 Form gini yang sebenarnya cuma 1 Form

Spoiler for Penampakan:

Tampilan Awal

Tampilan Abis Login/ Isi data

Tampilan Database dari commandbutton lihat data

Step 2 : Memasukkan Source Kode

Quote:

Oh Iya

jangan lupa Save database acces saya program VB nya harus sefolder biar konek

Seperti pada Step 1 yang gambar acak-acakan biar jadi bisa tersembunyi pas menjalankan program maka di setiap properties objek yg tidak ada pada tampilan awal maka visiblenya di false.

Spoiler for gambar 9:

Spoiler for Command Button:

Spoiler for button login:

Code:



Private Sub Cmd_login_Click()

If conn.State = 1 Then conn.Close

 conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Persist Security Info=False"

 

 If RS.State = 1 Then RS.Close

 RS.Open "select * from Admin where username= '" & ipt_user.Text & "' And password = '" & ipt_pass.Text & "'", conn, 3, 3

 

 If Not RS.EOF Then

 MsgBox "Selamat Datang di Praktikum Provis Kelas A"

 Label2.Visible = False

 Cmd_login.Visible = False

 Cmd_logout.Visible = True

 ipt_user.Enabled = False

 ipt_pass.Enabled = False

 ipt_user.Text = "Username"

 ipt_pass.Text = "Password"

 txtNb.Visible = True

 txtJml.Visible = True

 txtHarga.Visible = True

 lblTotal.Visible = True

 lblTgl.Visible = True

 cmd_isi.Visible = True

 cmd_lihat.Visible = True

 cmd_submit.Visible = True

 cmd_clear.Visible = True



 ElseIf (ipt_user.Text = "Username" Or ipt_pass.Text = "Password") Then

 MsgBox "Anda Belum Memasukan Username dan Password", vbCritical, "W A R N I N G ! ! !"

 ipt_user.SetFocus

 

 Else

 MsgBox "Data Salah", vbCritical, "L O G I N"

 ipt_user.Text = "Username"

 ipt_pass.Text = "Password"

 ipt_user.SetFocus

 End If

End Sub

Quote:

Pada saat Button login di tekan maka ipt_user.text & ipt_pass.text akan mencocokan username dan password yang telah dimasukkan dengan database di microsoft acces jika benar maka keluar msgbox selamat datang...
kemudian beberapa objek yg tersembunyi (visible) akan muncul dan beberapa objek yg sebelumnya muncul akan tersembunyi dilihat dari visuble true/falsenya. kemudian input username & password tidak bisa dimasukkan karena enable nya false dan button login menjadi tombol logout.
Jika salah username/password juga akan keluar msgbox data salah, dan jika belum memasukkan apa-apa maka kluar msgbox data belum lengkap.

Spoiler for button logout:

Code:



Private Sub Cmd_logout_Click()

 Label2.Visible = True

 Cmd_login.Visible = True

 Cmd_logout.Visible = False

 ipt_user.Enabled = True

 ipt_pass.Enabled = True

 ipt_user.Text = "Username"

 ipt_pass.Text = "Password"

 txtNb.Visible = False

 txtJml.Visible = False

 txtHarga.Visible = False

 lblTotal.Visible = False

 lblTgl.Visible = False

 cmd_isi.Visible = False

 cmd_lihat.Visible = False

 cmd_submit.Visible = False

 cmd_clear.Visible = False

 ipt_user.Enabled = True

 ipt_pass.Enabled = True

 flexgrid.Visible = False

 Calendar.Visible = False

 ipt_user.SetFocus

End Sub

Quote:

Pada Saat logout juga sama halnya dengan login banyak objek yang dimunculkan dan di hilangkan.

Spoiler for button submit:

Code:



Private Sub cmd_submit_Click()

 jumlahb = Val(txtJml.Text)

 hargab = Val(txtHarga.Text)

 totalb = jumlahb * hargab

 

 Dim SQLsimpan As String

 If (txtNb.Text = "Nama Barang" Or txtJml.Text = "Jumlah Barang" Or txtHarga.Text = "Harga Satuan" Or lblTgl = "Isi Tanggal") Then

 MsgBox "Isi Data Dengan Lengkap"

 txtNb.SetFocus

 

 Else

 If Not IsNumeric(txtJml.Text) Then

 MsgBox "Jumlah Barang Harus Angka"

 txtJml.Text = ""

 txtJml.SetFocus

 Exit Sub

 

 If Not IsNumeric(txtHarga.Text) Then

 MsgBox "Harga Satuan Harus Angka"

 txtHarga.Text = ""

 txtHarga.SetFocus

 Exit Sub

 End If

 End If

 

 Call koneksi

 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Persist Security Info=False"

 Adodc1.RecordSource = "select * from inventaris"

 Adodc1.Refresh

 Adodc1.Recordset.AddNew

 Adodc1.Recordset.Fields("nama_barang") = txtNb.Text

 Adodc1.Recordset.Fields("tanggal_masuk") = lblTgl.Caption

 Adodc1.Recordset.Fields("jumlah") = txtJml.Text

 Adodc1.Recordset.Fields("harga_satuan") = Format(hargab, "Rp #,###")

 Adodc1.Recordset.Fields("total_harga") = Format(totalb, "Rp #,###")

 Adodc1.Recordset.Update

 MsgBox "Selamat Data Telah Diisi"



 txtNb.Text = "Nama Barang"

 txtJml.Text = "Jumlah Barang"

 txtHarga.Text = "Harga Satuan"

 lblTotal.Caption = "Total Harga"

 lblTgl.Caption = "Isi Tanggal"

 End If

End Sub

Quote:

Pada Saat Submit data yang telah di isikan masuk ke tabel inventaris di microsoft acces dengan cara menyamakan dengan isi textbook atau caption label. jika data berhasil maka akan muncul msgbox berhasil dan data yg dimasukkan masuk ke database dan sebaliknya jika ada kolom yg belum terisi muncul peringatan yg mengharuskan di isi misal harga dan jumlah harus dengan angka.

Spoiler for button clear:

Code:



Private Sub cmd_clear_Click()

 txtNb.Text = "Nama Barang"

 txtJml.Text = "Jumlah Barang"

 txtHarga.Text = "Harga Satuan"

 lblTotal.Caption = "Total Harga "

 lblTgl.Caption = "Klik Untuk Mengisi Tanggal"

End Sub

Quote:

Berfungsi untuk menghapus semua isian pada setiap kolom isian yg telah di inputkan.

Spoiler for button lihat data:

Code:



Private Sub cmd_lihat_Click()

 txtNb.Visible = False

 txtJml.Visible = False

 txtHarga.Visible = False

 lblTotal.Visible = False

 lblTgl.Visible = False

 cmd_submit.Visible = False

 cmd_clear.Visible = False

 flexgrid.Visible = True

 

 jumlahb = Val(txtJml.Text)

 hargab = Val(txtHarga.Text)

 totalb = jumlahb * hargab



 

 Call koneksi

 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Persist Security Info=False"

 Adodc1.RecordSource = "inventaris"

 Adodc1.RecordSource = "select * from inventaris"

 Adodc1.Refresh

 Set flexgrid.DataSource = Adodc1

 flexgrid.Refresh

End Sub

Quote:

Berfungsi untuk melihat database yang telah di isikan dengan cara memanggil koneksi menggunaka adodc1 dari ms acces pada tabel inventaris dan di munculkan dalam bentuk datagrid

Spoiler for button isi data:

Code:



Private Sub cmd_isi_Click()

 txtNb.Visible = True

 txtJml.Visible = True

 txtHarga.Visible = True

 lblTotal.Visible = True

 lblTgl.Visible = True

 cmd_submit.Visible = True

 cmd_clear.Visible = True

 flexgrid.Visible = False

End Sub

Quote:

isi data sama halnya button login tapi tanpa memanggil password dan username di database hanya berfungsi bila kita sedang melihat database data grid dan mengklik button isi data maka muncul kolom - kolom isian data, dan menyembunyikan objek datagrid.

Spoiler for Label:

Spoiler for total harga:

Code:



Private Sub lblTotal_Click()

 If (Not IsNumeric(txtHarga.Text)) Or (Not IsNumeric(txtJml.Text)) Then

 Else

 jumlahb = Val(txtJml.Text)

 hargab = Val(txtHarga.Text)

 totalb = jumlahb * hargab

 lblTotal.Caption = "Total Harga : " & Format(totalb, "Rp #,###")

 End If

End Sub

Quote:

Total Harga di sini cukup unik dengan mengklik tabel maka perhitungan nya akan dilakukan dan muncul di tabel itu sendiri karena setiap melakukan perhitungan akan menambahkan "hasil :" di tambah hasil perhitungannya

Spoiler for Tanggal Sama Kalender:

Code:



Private Sub LblTgl_Click()

 Calendar.Visible = True

End Sub



Private Sub Calendar_Click()

 lblTgl.Caption = Calendar.Value

 Calendar.Visible = False

End Sub

Quote:

Tanggal dan kalender di sini saling sinkron karena setiap tabel di klik maka kalender akan muncul dan ketika memilih tanggal di kalender maka value kalender tersebut sebagai caption dari table tanggal dan otomatis ketika sudah memilih tanggal kalender menjadi tersembunyi.

Selain Source Code di Form kita harus buat juga Modules sama data environtment di projek sebagai jalur koneksi ke database acces gan

Spoiler for gambar 9:

Di data Environtment Kita gk usah masukin source code cukup di modules aja

Spoiler for module :

Code:



Public conn As New ADODB.Connection

Public RS As New ADODB.Recordset

Public RSdata As New ADODB.Recordset



Sub koneksi()

Set konek = New ADODB.Connection

Set RSdata = New ADODB.Recordset

konek.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Persist Security Info=False"

End Sub

Hati-hati gan variabel nama di form,modules sama source,nama tabel di database bisa beda tergantung namanya apa dan juga case sensitif gan perhatikan besar kecilnya

Yeah jadi juga nih programnya tinggal di Play emoticon-Jempol

jangan lupa pas program di jalanin ms access nya harus di close biar datanya nyimpan

Spoiler for Error Handling Problem:

Quote:

1. Program ini gak bisa di buat/dijalanin di windows 8 64 bit (data environtment nya gk ada)
2. Jika microsoft calender nya gk ada coba copy mscal.ocx ke c:\windows\system32 trus di masuk cmd(run as admin) masuk ke dir system32 ketikkan regsvr32 mscal.ocx
3. Kalo error selain 2 di atas coba tanyain aja ke temen kamu yg bisa ngejalanin program ini atau mungkin program vb kamu beda versi

Spoiler for Download Source Program disini:

[URL="http://www.4%2Ashared.com/rar/1EQY1UgW/TP7_1201732_Fahmi_Arief_F_A.html"]source program[/URL]

Demikian Postingan Dari ane maaf kalo masih kurang jelas,
Semoga Bermamfaat
Wassalamualaikum Wr Wb

5.3K

Kutip

Balasan

Guest

Tulis komentar menarik atau mention replykgpt untuk ngobrol seru

Urutan

Terbaru

Terlama

Guest

Tulis komentar menarik atau mention replykgpt untuk ngobrol seru

Komunitas Pilihan