Archive for March 2016
Cara mengkoneksiskan VB 6.0 dan Access
Hai semua.. Apa kabar?? Semooga sehat dan baik selalu yaa.. Pertama, makasih buat teman-teman yang udah berkunjung ke blog saya. Kali ini saya akan memberikan tutorial bagaimana caranya mengkoneksikan visual basic 6.0 dengan microsoft access. Disini saya menggunakan Access tahun 2010 walaupun sebenarnya tahun atau versi berapapun ga masalah kok, sama saja, sama-sama digunakan untuk menyimpan suatu record atau data yang telah kita inputkan. Yupp langsung saja :
- Buka aplikasi vb 6
- klik Add-ins -> Visual data manager
Maka akan muncul tampilan seperti gambar dibawah ini!!
- Lalu pilih file -> new -> Microsoft Access ->
* Pilih version 7.0 untuk microsoft access 2003 ke atas
* Pilih version 2.0 untuk microsoft access 2003 ke bawah (Jadul atau jarang digunakan
- Teman-teman akan memasuki tempat dimana anda akan menyimpan file
database tersebut. Ketikan nama file lalu simpan.
Maka tampilannya akan berubah menjadi seperti ini!!
- Lalu pada tulisan properties klik kanan pilih new table hingga muncul tampilan seperti ini :
- Isi table name dengan nama tabel yang akan anda buat semisal
tabel_mahasiswa (*Penamaan tabel tanpa spasi)
- Lalu klik Add Field hingga tampilannya menjadi seperti ini
- Isikan field yang anda inginkan mulai dari nama, type maupun size lalu klik
ok. Buatlah hal ini berulang sampai field yang anda inginkan sudah dibuat
semuanya. Setelah selesai klik close.
- Klik build the table.
- Dengan mengucap Alhamdulillah Database teman-teman telah selesai dibuat.
=================================================
Untuk Informasi Lebih Lanjut bisa menghubungi :
Email : javashare29@gmail.com
Facebook : Java Share
Twitter : @baihaqiannazili atau lewat kolom komentar dibawah ini.
>> Terima Kasih <<
Download Microsoft Visual Basic 6
Microsoft Visual Basic 6.0 merupakan sebuah software enginer dimana dengan aplikasi ini teman-teman semua bisa membuat sebuah program sesuai keinginan teman-teman sekalian. Bahasa yang digunakan tentu bukan bahasa daerah masing-masing melainkan memakai bahasa pemograman vb (visual basic). Untuk mempelajarinya mudah kok, banyak tutorial yang disediakan oleh para penyedia website untuk belajar vb dari dasar hingga mahir. Disini saya menyediakan aplikasi tersebut yang bisa teman-teman unduh atau download secara gratis selama ada wifi atau paket yaaa :D
Cara Instal :
- Download aplikasi Microsoft Visual Basic di Javasae.blogspot.co.id
- Buka file rar yang telah diunduh tadi
- Buka folder visual basic 6
- Cari file "setup.exe" lalu Instal
- Buka file vb 6 serial.txt, Silahkan aktfasi dengan menggunakan serial tersebut
- Selesai
Microsoft Visual Basic >> Download Disini <<
Cara Membuat Form Login Sederhana Dengan VB6
Selamat datang kembali untuk teman-teman semua. Disini saya akan memberikan cara untuk membuat form login sederhana menggunakan vb 6 dengan database microsoft access 2010. Gambar - gambar diatas bisa teman-teman jadikan referensi tampilan yang akan dibuat.
Toolbox yang digunakan :
- Label
- TextBox
- Timer
- Frame
- Command Button
- Menu Editor
Berikut adalah source code untuk aplikasi tersebut :
- Module1
Public con As New ADODB.Connection
Public rst As New ADODB.Recordset
Public strcon As String
Public strsql As String
Public Sub buka()
On Error GoTo pesan
strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\buku.mdb;Persist Security Info=False"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strcon
Else
con.Open strcon
End If
Exit Sub
pesan:
MsgBox "Tidak ada koneksi ke database..!", vbInformation, "Informasi"
End Sub
Public Sub tutup()
con.Close
End Sub
- Form 1 (Menu Utama)
- Form 1 (Menu Utama)
Private Sub Form_Load()
LOGOUT.Visible = False
DATA.Enabled = False
PROSES.Enabled = False
LAPORAN.Enabled = False
End Sub
Private Sub KELUAR_Click()
konfirmasi = MsgBox("Apakah Anda Yakin Ingin Keluar??? ", vbYesNo + vbInformation)
If konfirmasi = vbYes Then
End
End If
End Sub
Private Sub LOGIN_Click()
Form2.Show
End Sub
Private Sub LOGOUT_Click()
tutup
Form2.Show
Unload Me
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Format(Now, "hh:mm:ss")
Label4.Caption = Format(Now, "dddd, d mmmm, yyyy")
End Sub
- Form2 (Login)
- Form2 (Login)
Sub bersih()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command1_Click()
buka
Dim sql As String
Dim cari As New ADODB.Recordset
sql = "select * from TABEL_LOGIN where username ='" & LCase(Text1.Text) & "' and password = '" & LCase(Text2.Text) & "'"
Set cari = con.Execute(sql)
If cari.EOF Then
MsgBox "Maaf User atau Password anda salah !", vbInformation, "Informasi"
Text1.SetFocus
Call bersih
Else
MsgBox "Anda berhasil login !", vbInformation, "Informasi"
Dim akses As String
Label3.Caption = cari!akses
If Label3.Caption = "admin" Then
Form1.LOGOUT.Visible = True
Form1.LOGIN.Visible = False
Form1.DATA.Enabled = True
Form1.PROSES.Enabled = True
Form1.LAPORAN.Enabled = True
Form1.Show
Unload Me
ElseIf Label3.Caption = "user" Then
Form1.LOGOUT.Visible = True
Form1.LOGIN.Visible = False
Form1.DATA.Enabled = False
Form1.PROSES.Enabled = False
Form1.LAPORAN.Enabled = True
Form1.Show
Unload Me
End If
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Call bersih
End Sub
=================================================
Untuk Informasi Lebih Lanjut bisa menghubungi :
Email : javashare29@gmail.com
Facebook : Java Share
Twitter : @baihaqiannazili atau lewat kolom komentar dibawah ini.
>> Terima Kasih <<
Cara Membuat Aplikasi Data Buku Sederhana Dengan VB6
Untuk membuat software tersebut saya menggunakan program Microsoft Visual Studio yang bisa teman-teman download secara free dari google tinggal di search aja :D. Database yang saya gunakan adalah Microsoft Access.
Toolbox yang digunakan adalah :
- Label
- Frame
- TextBox
- Command Button
- Data Grid
- Adodc
Berikut adalah source code dari program tersebut :
Sub bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox ("Data Belum Terisi atau Lengkap")
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset!kode_buku = Text1.Text
Adodc1.Recordset!nama_buku = Text2.Text
Adodc1.Recordset!harga = Text3.Text
Call bersih
End If
End Sub
Private Sub Command2_Click()
If Adodc1.Recordset!kode_buku = Text1.Text Then
Adodc1.Recordset.Update
Adodc1.Recordset!kode_buku = Text1.Text
Adodc1.Recordset!nama_buku = Text2.Text
Adodc1.Recordset!harga = Text3.Text
Call bersih
Command1.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
ElseIf Text1.Text = "" Then
MsgBox ("Anda Harus Mencari Kode Buku di Kolom Search")
Text4.SetFocus
End If
End Sub
Private Sub Command3_Click()
Call bersih
End Sub
Private Sub Command4_Click()
konfirmasi = MsgBox("Yakin Akan Dihapus???", vbYesNo + vbInformation, "Konfirmasi")
If konfirmasi = vbYes Then
Adodc1.Recordset.Delete
End If
End Sub
Private Sub Command5_Click()
konfirmasi = MsgBox("Yakin Mau Keluar???", vbYesNo + vbInformation, "Keluar")
If konfirmasi = vbYes Then
End
End If
End Sub
Private Sub Command6_Click()
Adodc1.Recordset.Find "kode_buku ='" & Text4.Text & "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
Text1.Text = Adodc1.Recordset!kode_buku
Text2.Text = Adodc1.Recordset!nama_buku
Text3.Text = Adodc1.Recordset!harga
Command1.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Else
MsgBox ("Data Tidak Ditemukan")
Text4.Text = ""
Text4.SetFocus
End If
End Sub
Private Sub Form_Load()
Call bersih
End Sub
Private Sub Timer1_Timer()
Label5.Caption = Format(Now, "hh:mm:ss")
Label6.Caption = Format(Now, "dddd:d mmmm:yyyy")
End Sub
========================================================================
Untuk Informasi Lebih Lanjut bisa menghubungi :
javashare29@gmail.com atau Komentar di bagian bawah postingan ini.
>> Terima Kasih <<
