Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Beranda
Komunitas
Tech
Programmer Forum
Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

naisna27

10-11-2013 20:02

Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Mengkoneksikan Microsoft Access Dengan Microsoft Visual Basic 6.0
Program Sistem Informasi Inventaris

Ini merupakan thread ane yang pertama kalinya emoticon-2 Jempol

Sudah banyak mungkin yang post tentang ini. Semoga thread yang sederhana ini dapat bermanfaat. Maaf gan kalo masih ada salah-salah maklum masih belajar emoticon-Malu

A. MEMBUAT DATABASE DENGAN MICROSOFT ACCESS
Buka program Microsoft Access untuk membuat database yang akan digunakan oleh program VB nantinya (Disini saya menggunakan Acces 2013). Buat database dengan nama bebas, misalnya: “DataBase”. Klik kanan pada tabel, pilih Design View.

Spoiler for Langkah 1:

Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Maka Anda akan diminta menyimpan tabel, beri nama bebas, misalnya: “admin”.

Spoiler for Langkah2 :

Buat field seperti pada gambar. Dan pada Tab Genenral, buat Required menjadi Yes. Lanjutkan dengan mengisi beberapa data. Sehingga menghasilkan data yang akan dioleh lebih lanjut oleh Microsoft Visual Basic 6.0

Spoiler for Langkah 3:

Kemudian buat satu tabel lagi, dengan cara yang sama seperti diatas. Klik MenuBar CREATE – TABLE. Beri nama “barang”. Dan jangan lupa Requirednya dibuat menjadi Yes.Mengapa? Agar tabel dibuat default harus diisi.

Spoiler for Langkah 4:

Spoiler for Langkah 5:

Tampilannya akan menjadi seperti ini. Biarkan kosong , tidak usah diisi datanya karena tabel ini akan dikoneksikan dan terisi apabila kita menginputkan datanya di Visual Basic.
Karena menggunakan jenis file Access 2007/2013 yang tidak disupport oleh program VB, maka kita harus mengklik “Sava AS” menjadi file Access 2002-2003. Maka file kita akan tersimpan dengan nama Database.mdb.

B. MEMBUAT FORM VISUAL BASIC

Buka Aplikasi Visual Basic, melalui menu: Start – Program – Microsoft Visual Microsoft Visual Basic 6.0. Pilih tab New dan form Standard.EXE, lalu Open.

Spoiler for Langkah 6:

Buatlah UI (User Interface) seperti pada gambar dibawah ini dengan menggunakan Toolbar yang ada disebelah kiri.

Spoiler for Langkah 7:

Pada Properties Windows yang ada di sebelah kanan ganti BackColor menjadi warna putih. Atur Propertis seperti pada gambar dibawah ini :

Spoiler for Langkah 8:

Spoiler for Langkah 9:

Spoiler for Langkah 10:

Lalu kita lanjutkan membuat UI selanjutnya seperti dibawah ini. Tumpuk saja tidak apa-apa.

Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Spoiler for Langkah 11:

Spoiler for Langkah 12:

Spoiler for Langkah 13:

Spoiler for Langkah 14:

Spoiler for 15:

Spoiler for Langkah 16:

Spoiler for Langkah 17:

Spoiler for Langkah 18:

Spoiler for Langkah 19:

Setelah kita membuat tampilan program (UI) selanjutnya kita tambahkan komponen pada Project – Properties, yaitu Moduledan DataEnvironment. Dengan cara klik kanan dan pilih Add – Module, kemudian klik kanan lagi pilih Add – Data Environment .

Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

C. MENAMBAHKAN COMPONENT PADA TOOLBAR

Kita harus menambahkan komponen baru yang akan kita gunakan dengan cara mengklik kanan toolbar komponen.

Spoiler for ADD COMPONENT:

Pilih Microsoft ADO Data Control 6.0 (OLEDB), Microsoft Calendar Control 8.0 dan Microsoft DataGrid Control 6.0 (OLEDB) dengan cara mengklik kotak di sebelah kiri tulisan tersebut. Kemudian kita klik Apply Sehingga pada toolbar akan muncul icon ADO Control, Ms Calendar dan DBGrid. Calendar digunakan untuk menambahkan tanggal secara otomatis. Tambahkan komponen tersebut kedalam form, dengan cara klik dan buatlah diform.

Spoiler for ADODC & DATAGRID:

Spoiler for CALENDAR:

Maka tampilannya akan seperti ini :

Spoiler for TAMPILAN SEMENTARA:

D. MENGISIKAN KODE

1. MODULE
Ketikan Kode pada module, dengan cara klik 2x pada Menu Module yang ada di Project-Properties.

Spoiler for KODE MODULE:

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;DataSource=DataBase.mdb;Persist Security Info=False"
End Sub

2. Inputan Username dan Password

Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Spoiler for Username & Password:

Private Sub Text1_GotFocus()
If Text1.Text = "Username" Then
Text1.Text = ""
End If
End Sub

Private Sub Text1_LostFocus()
If Text1.Text = "" Then
Text1.Text = "Username"
End If
End Sub

Private Sub Text2_GotFocus()
If Text2.Text = "Password" Then
Text2.Text = ""
End If
End Sub

Private Sub Text2_LostFocus()
If Text2.Text = "" Then
Text2.Text = "Password"
End If
End Sub

Private Sub txtNama_GotFocus()
If txtNama.Text = "Nama Barang" Then
txtNama.Text = ""
End If
End Sub

3. TOMBOL LOGIN
Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Spoiler for login:

Private Sub Command1_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= '" & Text1.Text & "' And password = '" & Text2.Text & "'", conn, 3, 3
‘Tombol Login ini dikoneksikan dengan DataBase.mdb , tabel admin

If Not RS.EOF Then
MsgBox "Selamat Datang di Praktikum Provis Kelas A"
Label1.Visible = False
Command1.Visible = False
cmdLogout.Visible = True
Text1.Enabled = False
Text2.Enabled = False
Text1.Text = "Username"
Text2.Text = "Password"
txtNama.Visible = True
txtJumlah.Visible = True
txtHarga.Visible = True
lblTotal.Visible = True
lblTanggal.Visible = True
cmdIsi.Visible = True
cmdLihat.Visible = True
cmdSubmit.Visible = True
cmdClear.Visible = True
‘Jika sesuai maka kita bisa masuk ke tampilan selanjutnya
‘MessageBox : "Selamat Datang di Praktikum Provis Kelas A"

ElseIf (Text1.Text = "Username" Or Text1.Text = "" Or Text2.Text = "Username" Or Text2.Text = "") Then
MsgBox "Anda Belum Memasukan Username dan Password", vbCritical, "W A R N I N G ! ! !"
Text1.SetFocus

‘Jika belum memasukan Username / Password maka muncul
‘MessageBox: Anda Belum Memasukan Username dan Password
Else
MsgBox "Data Salah", vbCritical, "L O G I N"
Text1.Text = "Username"
Text2.Text = "Password"
Text1.SetFocus
End If
End Sub
‘Jika Username / Password yang diinputkan tidak sesuai dengan DataBase di Acces maka
‘MessageBox: Data Salah

4. TOMBOL LOGOUT

Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Spoiler for LOGOUT:

Private Sub cmdLogout_Click()
txtNama.Text = "Nama Barang"
txtJumlah.Text = "Jumlah Barang"
txtHarga.Text = "Harga Satuan"
lblTotal.Caption = "Total Harga"
lblTanggal.Caption = "Klik Disini Untuk Mengisi Tanggal"
txtNama.Visible = False
txtJumlah.Visible = False
txtHarga.Visible = False
lblTotal.Visible = False
lblTanggal.Visible = False
cmdClear.Visible = False
cmdSubmit.Visible = False
cmdIsi.Visible = False
cmdLihat.Visible = False
DataGrid1.Visible = False
Calendar.Visible = False
cmdLogout.Visible = False
Command1.Visible = True
Label1.Visible = True
Text1.Enabled = True
Text2.Enabled = True
Text1.SetFocus
End Sub

5. INPUTAN NAMA BARANG

Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Spoiler for Nama Barang:

Private Sub txtNama_GotFocus()
If txtNama.Text = "Nama Barang" Then
txtNama.Text = ""
End If
End Sub

Private Sub txtNama_LostFocus()
If txtNama.Text = "" Then
txtNama.Text = "Nama Barang"
End If
End Sub

6. INPUTAN JUMLAH BARANG

Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Spoiler for Jumlah Barang:

Private Sub txtJumlah_GotFocus()
If txtJumlah.Text = "Jumlah Barang" Then
txtJumlah.Text = ""
End If
End Sub

Private Sub txtJumlah_LostFocus()
If txtJumlah.Text = "" Then
txtJumlah.Text = "Jumlah Barang"
End If
End Sub

7. INPUTAN HARGA SATUAN

Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Spoiler for Harga Satuan:

Private Sub txtHarga_GotFocus()
If txtHarga.Text = "Harga Satuan" Then
txtHarga.Text = ""
End If
End Sub

Private Sub txtHarga_LostFocus()
If txtHarga.Text = "" Then
txtHarga.Text = "Harga Satuan"
End If
End Sub

8. TOTAL HARGA

Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Spoiler for Total Harga:

Private Sub lblTotal_Click()
jumlah_barang = Val(txtJumlah.Text)
harga_satuan = Val(txtHarga.Text)
total = jumlah_barang * harga_satuan
lblTotal.Caption = "Total Harga : " & total
End Sub

9. TANGGAL

Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Spoiler for Tanggal:

Private Sub lblTanggal_Click()
Calendar.Visible = True
End Sub

10. CALENDAR

Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Spoiler for Calendar:

Private Sub Calendar_Click()
lblTanggal.Caption = Calendar.Value
Calendar.Visible = False
End Sub

11. TOMBOL CLEAR

Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Spoiler for Clear:

Private Sub cmdClear_Click()
txtNama.Text = "Nama Barang"
txtJumlah.Text = "Jumlah Barang"
txtHarga.Text = "Harga Satuan"
lblTotal.Caption = "Total Harga"
lblTanggal.Caption = "Klik Disini Untuk Mengisi Tanggal"
End Sub

12. TOMBOL SUBMIT

Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Submit ini merupakan tombol yang akan memasukan data yang telah kita inputkan di Visual Basic ke Ms. Acces. Data pada tabel “barang” akan terisi oleh inputan dari Visual Basic. Disini juga akan diperlukan koneksi antara VB dengan Access.

Spoiler for SUBMIT:

Private Sub cmdSubmit_Click()
jumlah_barang = Val(txtJumlah.Text)
harga_satuan = Val(txtHarga.Text)
total = jumlah_barang * harga_satuan
Dim SQLsimpan As String
If (txtNama.Text = "Nama Barang" Or txtJumlah.Text = "Jumlah Barang" Or txtHarga.Text = "Harga Satuan" Or lblTanggal = "Klik Disini Untuk Mengisi Tanggal") Then
MsgBox "Isi Data Dengan Lengkap"
‘Jika data belum diisi dengan lengkap, maka akan tampil
‘MessageBox : Isi Data Dengan Lengkap
Else
If Not IsNumeric(txtJumlah.Text) Then
MsgBox "Jumlah Barang Harus Angka"
txtJumlah.Text = ""
txtJumlah.SetFocus
Exit Sub

‘Jika Jumlah Barang yang diinputkan mengandung huruf, maka
‘MessageBox : Jumlah Barang Harus Angka

If Not IsNumeric(txtHarga.Text) Then
MsgBox "Harga Satuan Harus Angka"
txtHarga.Text = ""
txtHarga.SetFocus
Exit Sub

‘Jika Harga Satuan yang diinputkan mengandung huruf, maka
‘MessageBox : Harga Satuan Harus Angka

End If
End If
‘Memanggil Procedure koneksi yang ada di “Module”
Call koneksi
‘Mengoneksikan dengan Ms Acces - tabel “barang”
‘Data yang diiputkan disini akan tersimpan ke tabel “barang”

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from barang"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("nama_barang") = txtNama.Text
Adodc1.Recordset.Fields("tanggal_masuk") = lblTanggal.Caption
Adodc1.Recordset.Fields("jumlah") = txtJumlah.Text
Adodc1.Recordset.Fields("harga_satuan") = txtHarga.Text
Adodc1.Recordset.Fields("total_harga") = total
Adodc1.Recordset.Update
MsgBox "Selamat Data Telah Diisi"

txtNama.Text = "Nama Barang"
txtJumlah.Text = "Jumlah Barang"
txtHarga.Text = "Harga Satuan"
lblTotal.Caption = "Total Harga"
lblTanggal.Caption = "Klik Disini Untuk Mengisi Tanggal"
End If
End Sub
‘Setalah kita mengisikan maka muncul MessageBox: "Selamat Data Telah Diisi"

13. TOMBOL LIHAT DATA

Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Spoiler for LIHAT DATA:

Private Sub cmdLihat_Click()
cmdClear.Visible = False
cmdSubmit.Visible = False
txtNama.Visible = False
txtJumlah.Visible = False
txtHarga.Visible = False
lblTotal.Visible = False
lblTanggal.Visible = False
DataGrid1.Visible = True

Call koneksi
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DataBase.mdb;Persist Security Info=False"
Adodc1.RecordSource = "barang"
Adodc1.RecordSource = "select * from barang"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Saat Tombol Lihat Datadi Klik maka aka muncul data dari DataBase.mdb - tabel barang. Maka akan tampil DataGrid.

14. TOMBOL ISI DATA

Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Spoiler for ISI DATA:

Private Sub cmdIsi_Click()
txtNama.Visible = True
txtJumlah.Visible = True
txtHarga.Visible = True
lblTotal.Visible = True
lblTanggal.Visible = True
cmdClear.Visible = True
cmdSubmit.Visible = True
DataGrid1.Visible = False
End Sub

Jika kita ingin menginputkan lagi data

E. MENJALANKAN PROGRAM

Untuk menjalankan program kita klik Tombol “Start" Mengoneksikan Microsoft Acces Dengan Microsoft Visul Basic 6.0

Spoiler for Hasil 1:

Spoiler for Hasil 2:

Spoiler for Hasil 3:

BINGUNG?
Tutorial Lengkap DOWNLOAD di -->
[URL="http://www.4*shared.com/office/KT4DS8no/Mengkoneksikan_Ms_Access_dgn_V.html"]http://www.4*shared.com/office/KT4DS8no/Mengkoneksikan_Ms_Access_dgn_V.html[/URL]

Programnya DOWNLOAD di -->
[URL="http://www.4*shared.com/rar/AbausXTx/TP7_1206350_IsnaeniRahmawati.html"]http://www.4*shared.com/rar/AbausXTx/TP7_1206350_IsnaeniRahmawati.html[/URL]

buang tulisan %2A pada 4%2Ashared menjadi 4*shared tanpa bintang (*) emoticon-Ngakak