Tools = Adodc, data grid
-
Kode barang = textBox (name = text1)
Nama barang = textBox (name = text2)
Satuan = comboBox (name = combo1)
Jumlah = textBox (name = text3)
Harga = textBox (name = text4)
-
&tambah = command button (name = cmdtambah)
&simpan = command button (name = cmdsimpan)
&edit = command button (name = cmdedit)
&update = command button (name = cmdupdate)
&batal = command button (name = cmdbatal)
&hapus = command button (name = cmdhapus)
&keluar = command button (name = cmdkeluar)
-
Database Microsoft Acces 2002/2003
Nama database = dbbarang
Nama table = tbbarang
Field = kode => type = text => size = 10 => PrimaryKey
Field = nama_barang => type = text => size = 20
Field = satuan => type = text => size = 10
Field = jumlah => type = text => size = 15
Field =harga => type = text => size = 15
-
Lakukan koneksi
Baca disini => Visual Basic 6.0 cara koneksi database
-
Koding
(General) => Declarations
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset (Tanpa End Sub)
-
Private Sub Form_Load() <= Koding Form Load
Dim koneksi As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\vblat2507\dbbarang.mdb;Persist Security Info=False" <= dari Adodc properties
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\vblat2507\dbbarang.mdb;Persist Security Info=False" <= dari Adodc properties
Adodc1.Refresh
Call nonaktif
cmdtambah.Enabled = True
cmdsimpan.Enabled = False
cmdedit.Enabled = False
cmdbatal.Enabled = False
cmdupdate.Enabled = False
cmdhapus.Enabled = False
cmdkeluar.Enabled = True
End Sub
-
(General) <= Untuk Prosedure
Sub nonaktif()
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End Sub
Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Combo1.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
End Sub
Sub kosong()
Text1 = ""
Text2 = ""
Combo1 = ""
Text3 = ""
Text4 = ""
End Sub
Sub tampil()
Text1 = kode
Text2 = nama_barang
Combo1 = satuan
Text3 = jumlah
Text3 = harga
End Sub
-
-
Click button Tambah <= Koding Btn Tambah
Private Sub cmdtambah_Click()
Call aktif
Call kosong
Text1.SetFocus
cmdtambah.Enabled = False
cmdsimpan.Enabled = True
cmdedit.Enabled = True
cmdbatal.Enabled = True
cmdupdate.Enabled = False
cmdhapus.Enabled = False
cmdkeluar.Enabled = True
End Sub
-
-
Click button Simpan <=Koding Btn Simpan
Private Sub cmdsimpan_Click()
Dim mysql As String
Dim konfirmation As String
If Text1 <> "" Then
cnn.BeginTrans
If Text1.Enabled = True Then
pesan = MsgBox("data akan di simpan", vbYesNo + vbInformation, "pesan")
If pesan = vbYes Then
mysql = "insert into tbbarang(kode,nama_barang,satuan,jumlah,harga)" & _
"values('" & Text1 & "','" & Text2 & "','" & Combo1 & "','" & Text3 & "','" & Text4 & "')"
cnn.Execute (mysql)
Adodc1.Refresh
End If
cnn.CommitTrans
Adodc1.Refresh
Call nonaktif
Call kosong
cmdtambah.Enabled = True
cmdsimpan.Enabled = True
cmdedit.Enabled = False
cmdbatal.Enabled = True
cmdupdate.Enabled = False
cmdhapus.Enabled = False
cmdkeluar.Enabled = True
End If
End If
End Sub
-
-
Click button Edit <= Koding Btn Edit
Private Sub cmdedit_Click()
Call aktif
Text1.Enabled = False
cmdtambah.Enabled = False
cmdsimpan.Enabled = False
cmdedit.Enabled = False
cmdbatal.Enabled = True
cmdupdate.Enabled = True
cmdhapus.Enabled = True
cmdkeluar.Enabled = True
End Sub
-
-
Click button Batal <= Koding Btn Batal
Private Sub cmdbatal_Click()
Call nonaktif
Call kosong
cmdtambah.Enabled = True
cmdsimpan.Enabled = False
cmdedit.Enabled = False
cmdbatal.Enabled = False
cmdupdate.Enabled = False
cmdhapus.Enabled = False
cmdkeluar.Enabled = True
End Sub
-
-
Click button Update <= Koding Btn Update
Private Sub cmdupdate_Click()
Dim mysql As String
Dim konfirmasi As String
If Text1 <> "" Then
cnn.BeginTrans
pesan = MsgBox("apakah anda yakin ingin mengupdate data..?", vbYesNo + vbInformation, "pesan")
If pesan = vbYes Then
mysql = "update tbbarang set " & _
"nama_barang='" & Text2 & "'," & _
"satuan= '" & Combo1 & "'," & _
"jumlah='" & Text3 & "'," & _
"harga='" & Text4 & "'" & _
"where kode='" & Text1 & "'"
cnn.Execute (mysql)
Adodc1.Refresh
End If
End If
cnn.CommitTrans
Adodc1.Refresh
Call nonaktif
Call kosong
cmdtambah.Enabled = False
cmdsimpan.Enabled = True
cmdedit.Enabled = False
cmdbatal.Enabled = True
cmdupdate.Enabled = True
cmdhapus.Enabled = False
cmdkeluar.Enabled = True
End Sub
-
-
Click button Hapus <= Koding Btn Hapus
Private Sub cmdhapus_Click()
Dim mysql As String
If Text1 <> "" And Text1.Enabled = False Then
cnn.BeginTrans
konfirmasi = MsgBox("data akan di hapus", vbYesNo + vbQuestion, "pesan")
If konfirmasi = vbYes Then
mysql = "delete * from tbbarang where kode = '" & Text1 & "'"
cnn.Execute (mysql)
Adodc1.Refresh
End If
cnn.CommitTrans
Adodc1.Refresh
Call nonaktif
Call kosong
cmdtambah.Enabled = False
cmdsimpan.Enabled = False
cmdedit.Enabled = False
cmdbatal.Enabled = True
cmdupdate.Enabled = False
cmdhapus.Enabled = False
cmdkeluar.Enabled = True
End If
End Sub
-
-
Click button Keluar <= Koding Btn Keluar
Private Sub cmdkeluar_Click()
Dim pesan As String
pesan = MsgBox("apakah yakin anda ingin keluar..?", vbYesNo + vbInformation, "pesan")
If vbYes Then
Unload Me
Else
End If
End Sub
-
-
Click Text 1 => LostFocus <= Koding LostFocus
Private Sub Text1_LostFocus()
Dim mysql As String
If Text1 <> "" Then
mysql = "select * from tbbarang where kode='" & Text1 & "'"
Set rs = cnn.Execute(mysql)
If Not rs.EOF Then
Text2 = rs.Fields("nama_barang")
Combo1 = rs.Fields("satuan")
Text3 = rs.Fields("jumlah")
Text4 = rs.Fields("harga")
Call nonaktif
cmdtambah.Enabled = False
cmdsimpan.Enabled = False
cmdedit.Enabled = True
cmdbatal.Enabled = False
cmdupdate.Enabled = False
cmdhapus.Enabled = False
cmdkeluar.Enabled = True
Else
Text2 = ""
Combo1.ListIndex = 0
Text3 = ""
Text4 = ""
End If
End If
End Sub
-
Selesai Visual Basic 6.0 Input Data Barang
ConversionConversion EmoticonEmoticon