Pada pembelajaran VB 6.0 kali ini akan dibahas mengenai : Cara Input Ke Database Dengan VB 6.0

Berikut langkahnya :
1. Membuat Database dan Tabel
Buatlah sebuah database dengan nama DBBelajarvb.mdb dan Buatlah Tabel Barang dengan Design Tabel seperti gambar dibawah ini :

Baca Juga : Cara Hapus Database Menggunakan VB 6.0

2. Membuat Project VB 6.0 dan Design Form
Buka Aplikasi VB 6.0 anda
Simpan di Folder contoh nama Folder : Belajar VB
Masukan Database DBBelajarvb.mdb kedalam Folder tersebut
Kemudian buatlah Design Form seperti gambar dibawah ini :

Masukan Koding dibawah ini :

Dim Koneksi As New ADODB.Connection
Dim RSBarang As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSBarang = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBBelajarvb.mdb"
End Sub

Private Sub Command1_Click()
Call BukaDB
If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox "Data Belum Lengkap"
Else
Dim TambahBarang As String
    TambahBarang = "Insert Into Barang values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')"
    Koneksi.Execute TambahBarang
    MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"
    Call KondisiAwal
    Form_Activate
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Activate()
Call BukaDB
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBBelajarvb.mdb; "
Adodc1.RecordSource = "Barang"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Form_Load()
Text1.MaxLength = 6
Call KondisiAwal
End Sub
Sub KondisiAwal()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

Silahkan Jalankan Aplikasi VB 6.0 anda. dan silahkan dicoba untuk Input data dan klik Simpan

Mudah bukan??? Ikuti terus pembelajaran Visual Basic kami selanjutnya :)

11.08

Halo Sobat Tutorial VB, Berikut dibawah adalah langkah dalam membuat Form Admin / Kasir : 
Buat lah design Form Admin atau Kasir seperti gambar dibawah :

Form admin dibuat untuk memanage tabel admin dimana nantinya akun admin tersebut yang akan bisa login ke Aplikasi yang dibuat. Gambar diatas adalah bentuk form admin dimana disesesuaikan dengan tabel Admin didalam database :

Dengan Design tabel admin diatas maka anda harus bisa membuat form untuk Input, edit dan delete sesuai dengan kebutuhan Program yang anda buat.

Agar Form Admin bisa berjalan semestinya, gunakan pembelajaran dibawah ini.
Cara Input Database
Cara Edit Database
Cara Hapus database

Masukan Koding dibawah ini :

Dim mvBookMark As Variant
Private Sub Command1_Click()
Call BukaDB
Dim SQLTambah As String
            SQLTambah = "Insert Into Admin (KodeAdmin,NamaAdmin,passwordAdmin,levelAdmin) values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Combo1 & "')"
            koneksi.Execute SQLTambah
            MsgBox "Data Berhasil diinput"
            Form_Activate
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Sub Form_Load()
Text1.MaxLength = 6
Text2.MaxLength = 20
Text3.MaxLength = 15
Text3.PasswordChar = "X"
End Sub
Private Sub Form_Activate()
Call BukaDB
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBAplikasi.mdb; "
Adodc1.RecordSource = "select KodeAdmin,NamaAdmin, LevelAdmin from Admin"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
DataGrid1.Columns(0).Width = 1000: DataGrid1.Columns(0).Locked = True
DataGrid1.Columns(1).Width = 2300: DataGrid1.Columns(1).Locked = True
DataGrid1.Columns(2).Width = 1200: DataGrid1.Columns(2).Locked = True

Command1.SetFocus
Combo1.Clear
Combo1.AddItem "USER"
Combo1.AddItem "ADMIN"
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

Jika ada kesulitan  bisa melihat video tutorialnya Disini

11.06

Halo Sobat Tutorial VB, Berikut ini adalah langkah dalam membuat Form Login
Buka Project Belajar VB anda sebelumnya :

 Double Klik Belajar VB
Berikut tampilan Project sebelumnya :

Klik Project
Add Form

Klik Open

Ganti Name menjadi : FormLogin

Kemudian Buatlah Design FormLogin seperti gambar dibawah ini :
Buat Design Form Seperti dibawah ini :

Kemudian Masukan Koding dibawah ini :

Sub Terbuka()
FormMenuUtama.MnLogin.Enabled = False
FormMenuUtama.MnLogout.Enabled = True
FormMenuUtama.MnMaster.Enabled = True
FormMenuUtama.MnTransaksi.Enabled = True
FormMenuUtama.MnLaporan.Enabled = True
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Text2.Enabled = False
End Sub
Sub Form_Load()
    Call BukaDB
    Text1.MaxLength = 6
    Text2.MaxLength = 10
    Text2.PasswordChar = "X"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
        Call BukaDB
        Call CariData
                If RSAdmin.EOF Then
                    MsgBox "Admin Tidak Terdeteksi, Coba lagi"
                    Text1 = ""
                Else
                Text1.Enabled = False
                Text2.Enabled = True
                Text2.SetFocus
                End If
    End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
        Command1.SetFocus
    End If
End Sub
Function CariData()
    Call BukaDB
    RSAdmin.Open "Select * From Admin where kodeAdmin='" & Text1 & "'", koneksi
End Function
Private Sub Command1_Click()
Dim KodeAdmin As String
Dim NamaAdmin As String
Call BukaDB
        RSAdmin.Open "Select * from Admin where kodeAdmin ='" & Text1 & "' and passwordAdmin='" & Text2 & "'", koneksi
        If RSAdmin.EOF Then
            MsgBox "Password Salah, Coba Lagi!"
            Text2 = ""
            Text2.SetFocus
        Else
            Unload Me
            FormMenuUtama.Show
            Call Terbuka
        End If
End Sub

Jangan Lupa Pada FormMenuUtama pastikan kita membuat Sub Terkunci dan ketika Klik Menu Login, maka panggil FormLogin yang telah kita buat diatas.
dan berikut ini Koding pada FormMenuUtama :

Sub Terkunci()
MnLogin.Enabled = True
MnLogout = False
MnMaster.Enabled = False
MnTransaksi.Enabled = False
MnLaporan.Enabled = False
End Sub
Private Sub Form_Load()
Call Terkunci
End Sub
Private Sub MnKeluar_Click()
End
End Sub
Private Sub MnLogin_Click()
FormLogin.Show vbModal
End Sub

Demikin Pembelajaran Visual Basic 6.0 bagaimana cara membuat form login pada Visual Basic 6.0 Jika kurang mengerti bisa lihat video tutorialnya disini

Selamat Mencoba

10.50

Halo Sobat Tutorial VB, Berikut dibawah ini adalah Tahap #Pertama dalam membuat Aplikasi Penjualan Retail dengan Visual Basic 6.0. Database tutorial ini akan menggunakan Microsoft Office Access. kenapa kami menggunakan Access, karena mudah didapat dan mudah untuk melakukan konfigurasi atau settingan. Mudah-mudahan Tutorial yang kami berikan dibawah bisa dipahami oleh anda yang sedang belajar VB.

Berikut langkah-langkahnya :
Buka Komputer anda
Pastikan Anda sudah Install Visual Basic 6.0 Pada Komputer anda
Klik Start Pada Windows
All Programs
Microsoft Visual Basic 6.0 (lihat gambar dibawah)

 Klik Standard EXE

Klik Open
Maka Akan Muncul Gambar Seperti dibawah : 

Ubah Nama Form1 Menjadi FormMenuUtama

Klik File - Save Project

Kami akan menyimpannya di Drive D:/Belajar VB

Klik Save
Kemudian Masukan Nama Project
Belajar VB 

Klik Save
Maka Pada Drive D:/Belajar VB sudah terbentuk Project dan FormMenuUtama

Demikian cara membuat Project Baru Pada Visual Basic 6.0, Silahkan ikuti Belajar VB 6.0 kami selanjutnya

Selamat Mencoba

10.40

Halo Sobat Tutorial VB, Pada tutorial VB ( visual basic ) dasar untuk pemula kali ini kita akan mencoba membuat Form Transparan dan Normal untuk mempercantik tampilan program yang kita buat. 

disini kita hanya membuat form dari program yang kita buat menjadi transparan, atau tembus pandang seperti gambar dibawah ini.

nah jika pada gambar 1 (satu) tampak form normal sedangkan pada gambar 2 (dua) tampak form transparan. Nah bagaimana membuat Form Transparan dan Normal mari kita ikuti tutorial di bawah ini
Buat Standard Exe

-     Lalu tambahkan 2 command

      Command1 beri caption Transparan

      Command2 beri caption Normal

Lalu masukan kode di bawah ini

Option Explicit

Private Const WS_EX_LAYERED = &H80000

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_COLORKEY = &H1

Private Const LWA_ALPHA = &H2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Command1_Click()

Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)

Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 128, LWA_ALPHA Or LWA_COLORKEY)

End Sub

Private Sub Command2_Click()

Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)

Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 255, LWA_ALPHA Or LWA_COLORKEY)

End Sub

Selamat Mencoba

07.41

Halo Sobat Tutorial VB, Pada tutorial VB ( visual basic ) dasar untuk pemula kali ini kita akan mencoba membuat software atau program menghitung umur  dengan menggunakan VB 6.0 secara mudah dan cepat.

Ok Langsung saja kita mulai tanpa panjang lebar
kita memerlukan component tambahan DTPicker yang sebenarnya telah tersedia di Visual Basic walau secara default component ini belum tampak di deretan tool standarnya. silahkan aktifkan componennya dengan menekan Ctrl + T

Buat desain programnya seperti gambar dibawah ini.

Jika Sudah mendesain seperti gambar di atas masukan code di bawah ini

Private Sub Command1_Click()
    Dim jumlahhari As Integer
    Dim umur As Integer
    Dim hari As Integer

    jumlahhari = DateDiff("d", DTPicker1.Value, Date)
    umur = jumlahhari / 365
    hari = jumlahhari - (umur * 365)
    Text1.Text = umur 
End Sub

Private Sub Command2_Click() 
   End
End Sub

Jika Anda inginkan cara instant bisa download Projectnya Disini

Selamat Mencoba

05.52