Artikel Terkait Tutorial VB6
Pada Pembelajaran VB 6.0 kali ini akan dibahas Bagaimana Cara Membuat KodeBarang Otomatis VB 6.0.
Berikut langkah-langkahnya
1. Membuat Database dan Tabel
Buatlah sebuah database dengan nama DBBelajarvb.mdb dan Buatlah Tabel Barang dengan Design Tabel seperti gambar dibawah ini :
2. Membuat Project VB 6.0 dan Design Form
Buka Aplikasi VB 6.0 andaSimpan di Folder contoh nama Folder : Belajar VB
Masukan Database DBBelajarvb.mdb kedalam Folder tersebut
Kemudian buatlah Design Form seperti gambar dibawah ini :
Dim Koneksi As New ADODB.ConnectionSilahkan Jalankan Project VB6.0 and
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
Sub KodeOtomatis()
Call BukaDB
RSBarang.Open ("select * from Barang Where KodeBarang In(Select Max(KodeBarang)From Barang)Order By kodeBarang Desc"), Koneksi
RSBarang.Requery
Dim Urutan As String * 6
Dim Hitung As Long
With RSBarang
If .EOF Then
Urutan = "BRG" + "001"
Text1 = Urutan
Else
Hitung = Right(!KodeBarang, 3) + 1
Urutan = "BRG" + Right("000" & Hitung, 3)
End If
Text1 = Urutan
End With
End Sub
Private Sub Command1_Click()
Call KodeOtomatis
Text1.Enabled = False
Text2.SetFocus
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_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 Command3_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 = ""
Command1.Enabled = True
Command2.Enabled = False
End Sub
Jika Pembelajaran diatas bermanfaat untuk anda, kami senang jika anda berkomentar dibawah :)
Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :
Rekomendasi Web Hosting
- 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
- 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
- 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).