tag:blogger.com,1999:blog-5101583409018752071.post1680033256771295468..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 30 Apkom 4 D3 CLibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger7125tag:blogger.com,1999:blog-5101583409018752071.post-85217929597444284562011-11-23T07:28:03.534-08:002011-11-23T07:28:03.534-08:00Public Class latihan_30a
Dim CONECT As New Ole...Public Class latihan_30a<br /> Dim CONECT As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=dannagprayudha")<br /> Dim danang As New DataTable<br /><br /> Private Sub latihan_30a_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim coba As New OleDb.OleDbDataAdapter<br /> coba = New OleDb.OleDbDataAdapter("select * from barang", CONECT)<br /> coba.Fill(danang)<br /> dgv.DataSource = danang<br /><br /> End Sub<br />End Class<br /><br />Public Class latihan_30b<br /> Dim CONECT As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=danangprayudha")<br /> Dim cari As New ByIskandar.CariKeDataBaseByIskandar<br /><br /> Private Sub latihan_30b_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> If Val(kobar2069.Text) = 0 Then<br /> MsgBox("kode barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If nabar069.Text.Length = 0 Then<br /> MsgBox("nama barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(harju069.Text) = 0 Then<br /> MsgBox("harga jual belum diisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(jubar069.Text) = 0 Then<br /> MsgBox("jumlah barang belum diisi")<br /> Exit Sub<br /> End If<br /><br /> cari.AturPencarianDataBase("BARANG", "KODEBARANG", kobar069.Text, 1, CONECT)<br /><br /> If cari.JumlanBaris = False Then<br /> MsgBox("kode tidak ada")<br /> Exit Sub<br /> End If<br /><br /> Dim com As New OleDb.OleDbCommand<br /> com = New OleDb.OleDbCommand("UPDATE BARANG SET kodebarang = '" & kobar2069.Text & "', namabarang = '" & nabar069.Text & "', hargajual = " & Val(harju069.Text) & ", jumlahbarang = " & Val(jubar069.Text) & " where kodebarang ='" & kobar069.Text & "'", CONECT)<br /><br /> CONECT.Open()<br /> com.ExecuteNonQuery()<br /> CONECT.Close()<br /> com.Dispose()<br /><br /> kobar069.Text = ""<br /> kobar2069.Text = ""<br /> nabar069.Text = ""<br /> harju069.Text = ""<br /> jubar069.Text = ""<br /><br /> End Sub<br />End Classyudhasevenhttps://www.blogger.com/profile/13522383559743409704noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-67799005759493542442011-11-18T07:59:16.553-08:002011-11-18T07:59:16.553-08:00Public Class Form30B
Dim I As New OleDb.OleDb...Public Class Form30B<br /><br /> Dim I As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb")<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If kb.Text.Length = 0 Then<br /> MsgBox("kode barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If c1.Text.Length = 0 Then<br /> MsgBox("kode barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If c2.Text.Length = 0 Then<br /> MsgBox("nama barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If Val(c3.Text) = 0 Then<br /> MsgBox("harga barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If Val(c4.Text) = 0 Then<br /> MsgBox("jumlah barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If kb.Text <> c1.Text Then<br /> Dim cari As New ByIskandar.CariKeDataBaseByIskandar<br /> cari.AturPencarianDataBase("Barang", "Kodebarang", c1.Text, 1, I)<br /> If cari.JumlanBaris > 0 Then<br /> MsgBox("kode barang sudah ada")<br /> Exit Sub<br /> End If<br /> End If<br /><br /> Dim CI As New OleDb.OleDbCommand<br /> CI = New OleDb.OleDbCommand("UPDATE BARANG SET KODEBARANG= '" & c1.Text & "', NAMABARANG= '" & c2.Text & "', HARGAJUAL=" & Val(c3.Text) & ", JUMLAHBARANG= " & Val(c4.Text) & " WHERE KODEBARANG= '" & kb.Text & "'", I)<br /> I.Open()<br /> CI.ExecuteNonQuery()<br /> I.Close()<br /> CI.Dispose()<br /><br /> kb.Text = ""<br /> c1.Text = ""<br /> c2.Text = ""<br /> c3.Text = ""<br /> c4.Text = ""<br /><br /> Form30A.chaty()<br /><br /> End Sub<br />End Classcatherine parubakhttps://www.blogger.com/profile/09908430394301408120noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-67351164614465815972011-11-17T22:29:01.039-08:002011-11-17T22:29:01.039-08:00Muhammad Nur
Public Class Latihan030A077
Dim...Muhammad Nur<br /><br />Public Class Latihan030A077<br /><br /> Dim n As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATABARANG.accdb")<br /> Dim datatabel1 As New DataTable<br /><br /> Public Sub nurlina()<br /> Dim X As New OleDb.OleDbDataAdapter<br /> X = New OleDb.OleDbDataAdapter("Select * From BARANG", n)<br /> datatabel1.Rows.Clear()<br /> X.Fill(datatabel1)<br /> X.Dispose()<br /> End Sub<br /><br /> Private Sub Latihan30A017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> nurlina()<br /> DGV30A.DataSource = datatabel1<br /> End Sub<br /><br /> Private Sub Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit.Click<br /> If Latihan030B077.Visible = False Then<br /> Latihan030B077.Show()<br /> Else<br /> Latihan030B077.Activate()<br /> End If<br /><br /> Latihan030B077.Show()<br /> Latihan030B077.KBrg1.Text = DGV30A.CurrentRow.Cells("Kodebarang").Value<br /> Latihan030B077.KBrg.Text = DGV30A.CurrentRow.Cells("Kodebarang").Value<br /> Latihan030B077.NBrg.Text = DGV30A.CurrentRow.Cells("Namabarang").Value<br /> Latihan030B077.HJual.Text = DGV30A.CurrentRow.Cells("Hargajual").Value<br /> Latihan030B077.JBrg.Text = DGV30A.CurrentRow.Cells("Jumlahbarang").Value<br /> End Sub<br />End Class<br /><br />Public Class Latihan030B077<br /><br /> Dim n As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATABARANG.accdb")<br /><br /> Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click<br /> If KBrg1.Text.Length = 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If KBrg.Text.Length = 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If NBrg.Text.Length = 0 Then<br /> MsgBox("Nama barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If Val(HJual.Text) = 0 Then<br /> MsgBox("Harga jual sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If Val(JBrg.Text) = 0 Then<br /> MsgBox("Jumlah barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If KBrg1.Text <> KBrg.Text Then<br /> Dim pencari As New ByIskandar.CariKeDataBaseByIskandar<br /> pencari.AturPencarianDataBase("Barang", "Kodebarang", KBrg.Text, 1, n)<br /> If pencari.JumlanBaris > 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /> End If<br /><br /> Dim CM As New OleDb.OleDbCommand<br /> CM = New OleDb.OleDbCommand("UPDATE BARANG SET KODEBARANG= '" & KBrg.Text & "', NAMABARANG= '" & NBrg.Text & "', HARGAJUAL= " & Val(Hjual.Text) & ", JUMLAHBARANG= " & Val(JBrg.Text) & " WHERE KODEBARANG= '" & KBrg1.Text & "'", n)<br /> n.Open()<br /> CM.ExecuteNonQuery()<br /> n.Close()<br /> CM.Dispose()<br /><br /> KBrg1.Text = ""<br /> KBrg.Text = ""<br /> NBrg.Text = ""<br /> HJual.Text = ""<br /> JBrg.Text = ""<br /><br /> 'Menjalankan prosedur ambil data'<br /> Latihan030A077.nurlina()<br /> End Sub<br />End Classfirman nurhttps://www.blogger.com/profile/16272680002519818273noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-55972848380579899422011-11-17T22:15:13.977-08:002011-11-17T22:15:13.977-08:00Form 30A
Public Class Latihan30A_071
Dim go As...Form 30A<br />Public Class Latihan30A_071<br /> Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")<br /> Dim take As New DataTable<br /> Public Sub ambildata()<br /> 'mendeklarasikan adapter<br /> Dim data As New OleDb.OleDbDataAdapter<br /><br /> 'mengatur data yang akan diangkut<br /> data = New OleDb.OleDbDataAdapter("SELECT* from barang", go)<br /><br /> 'bersihkan data sebelum mengisi data lain<br /> take.Rows.Clear()<br /><br /> 'memasukkan data yg telah diambil ke dalam data grid view<br /> data.Fill(take)<br /> data.Dispose()<br /><br /> End Sub<br /><br /> Private Sub Latihan30A_071_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> ambildata()<br /> DGV_071.DataSource = take<br /><br /> End Sub<br /><br /> Private Sub Edit_071_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit_071.Click<br /> 'menampilkan form 30b<br /> If Latihan30B_071.Visible = False Then<br /> Latihan30B_071.Show()<br /> Else<br /> Latihan30B_071.Activate()<br /> End If<br /><br /> 'mengisi textbox yang ada pada 30b<br /> Latihan30B_071.kode_071.Text = DGV_071.CurrentRow.Cells("kodebarang").Value<br /> Latihan30B_071.kb_071.Text = DGV_071.CurrentRow.Cells("kodebarang").Value<br /> Latihan30B_071.nb_071.Text = DGV_071.CurrentRow.Cells("namabarang").Value<br /> Latihan30B_071.hj_071.Text = DGV_071.CurrentRow.Cells("hargajual").Value<br /> Latihan30B_071.jb_071.Text = DGV_071.CurrentRow.Cells("jumlahbarang").Value<br /><br /><br /> End Sub<br />End ClassTrioo Wijayahttps://www.blogger.com/profile/13093351596776918485noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-6809148603411663472011-11-17T20:12:55.202-08:002011-11-17T20:12:55.202-08:00Public Class Form30A
Dim A As New OleDb.OleDbC...Public Class Form30A<br /> Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATABARANG.accdb")<br /> Dim datatabel1 As New DataTable<br /> Public Sub feby()<br /> Dim X As New OleDb.OleDbDataAdapter<br /> X = New OleDb.OleDbDataAdapter("Select * From BARANG", A)<br /> datatabel1.Rows.Clear()<br /> X.Fill(datatabel1)<br /> X.Dispose()<br /> End Sub<br /><br /> Private Sub Form30A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> feby()<br /> DGV_064.DataSource = datatabel1<br /> End Sub<br /><br /> Private Sub EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT.Click<br /> If Form30B.Visible = False Then<br /> Form30B.Show()<br /> Else<br /> Form30B.Activate()<br /> End If<br /><br /> Form30B.Show()<br /> Form30B.KB1_064.Text = DGV_064.CurrentRow.Cells("Kodebarang").Value<br /> Form30B.KB2_064.Text = DGV_064.CurrentRow.Cells("Kodebarang").Value<br /> Form30B.NB_064.Text = DGV_064.CurrentRow.Cells("Namabarang").Value<br /> Form30B.HJ_064.Text = DGV_064.CurrentRow.Cells("Hargajual").Value<br /> Form30B.JB_064.Text = DGV_064.CurrentRow.Cells("Jumlahbarang").Value<br /> End Sub<br /><br />End Class<br /><br /><br />Public Class Form30B<br /> Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATABARANG.accdb")<br /><br /> Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click<br /> If KB1_064.Text.Length = 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If KB2_064.Text.Length = 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If NB_064.Text.Length = 0 Then<br /> MsgBox("Nama barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If Val(HJ_064.Text) = 0 Then<br /> MsgBox("Harga jual sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If Val(JB_064.Text) = 0 Then<br /> MsgBox("Jumlah barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If KB1_064.Text <> KB2_064.Text Then<br /> Dim pencari As New ByIskandar.CariKeDataBaseByIskandar<br /> pencari.AturPencarianDataBase("Barang", "Kodebarang", KB2_064.Text, 1, A)<br /> If pencari.JumlanBaris > 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /> End If<br /><br /> Dim CM As New OleDb.OleDbCommand<br /> CM = New OleDb.OleDbCommand("UPDATE BARANG SET KODEBARANG= '" & KB2_064.Text & "', NAMABARANG= '" & NB_064.Text & "', HARGAJUAL= " & Val(HJ_064.Text) & ", JUMLAHBARANG= " & Val(JB_064.Text) & " WHERE KODEBARANG= '" & KB1_064.Text & "'", A)<br /> A.Open()<br /> CM.ExecuteNonQuery()<br /> A.Close()<br /> CM.Dispose()<br /><br /> KB1_064.Text = ""<br /> KB2_064.Text = ""<br /> NB_064.Text = ""<br /> HJ_064.Text = ""<br /> JB_064.Text = ""<br /><br /> 'Menjalankan prosedur ambil data'<br /> Form30A.feby()<br /> End Sub<br /><br />End Classfeby windrianihttps://www.blogger.com/profile/06013435989226112659noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-83853417689844740962011-11-17T19:29:41.797-08:002011-11-17T19:29:41.797-08:00FITRAH ADITYA
Public Class LATIHAN030A084
Dim...FITRAH ADITYA<br /><br />Public Class LATIHAN030A084<br /> Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATABARANG.accdb")<br /> Dim datatabel1 As New DataTable<br /> Public Sub Deriel()<br /> Dim X As New OleDb.OleDbDataAdapter<br /> X = New OleDb.OleDbDataAdapter("Select * From BARANG", A)<br /> datatabel1.Rows.Clear()<br /> X.Fill(datatabel1)<br /> X.Dispose()<br /> End Sub<br /> Private Sub LATIHAN030A084_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Deriel()<br /> dgv_084.DataSource = datatabel1<br /> End Sub<br /><br /> <br /> Private Sub Edit_084_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit_084.Click<br /> If LATIHAN030B084.Visible = False Then<br /> LATIHAN030B084.Show()<br /> Else<br /> LATIHAN030B084.Activate()<br /> End If<br /><br /> LATIHAN030B084.Show()<br /> LATIHAN030B084.kb_084.Text = dgv_084.CurrentRow.Cells("Kodebarang").Value<br /> LATIHAN030B084.kb1_084.Text = dgv_084.CurrentRow.Cells("Kodebarang").Value<br /> LATIHAN030B084.nb_084.Text = dgv_084.CurrentRow.Cells("Namabarang").Value<br /> LATIHAN030B084.hj_084.Text = dgv_084.CurrentRow.Cells("Hargajual").Value<br /> LATIHAN030B084.jb_084.Text = dgv_084.CurrentRow.Cells("Jumlahbarang").Value<br /> End Sub<br />End Class<br /><br /><br />Public Class LATIHAN030B084<br /> Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATABARANG.accdb")<br /><br /> <br /> Private Sub Simpan_084_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_084.Click<br /> If kb_084.Text.Length = 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If kb1_084.Text.Length = 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If nb_084.Text.Length = 0 Then<br /> MsgBox("Nama barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If Val(hj_084.Text) = 0 Then<br /> MsgBox("Harga jual sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If Val(jb_084.Text) = 0 Then<br /> MsgBox("Jumlah barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If kb_084.Text <> kb1_084.Text Then<br /> Dim pencari As New ByIskandar.CariKeDataBaseByIskandar<br /> pencari.AturPencarianDataBase("Barang", "Kodebarang", kb1_084.Text, 1, A)<br /> If pencari.JumlanBaris > 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /> End If<br /><br /> Dim CM As New OleDb.OleDbCommand<br /> CM = New OleDb.OleDbCommand("UPDATE BARANG SET KODEBARANG= '" & kb1_084.Text & "', NAMABARANG= '" & nb_084.Text & "', HARGAJUAL= " & Val(hj_084.Text) & ", JUMLAHBARANG= " & Val(jb_084.Text) & " WHERE KODEBARANG= '" & kb_084.Text & "'", A)<br /> A.Open()<br /> CM.ExecuteNonQuery()<br /> A.Close()<br /> CM.Dispose()<br /><br /> kb_084.Text = ""<br /> kb1_084.Text = ""<br /> nb_084.Text = ""<br /> hj_084.Text = ""<br /> jb_084.Text = ""<br /><br /> 'Menjalankan prosedur ambil data'<br /> LATIHAN030A084.Deriel()<br /> End Sub<br />End Classaditya.Derielhttps://www.blogger.com/profile/18345720865620289243noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-44101630794174957812011-11-17T16:18:29.955-08:002011-11-17T16:18:29.955-08:00Public Class Latihan30A
Dim A As New OleDb.Ole...Public Class Latihan30A<br /> Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATABARANG.accdb")<br /> Dim datatabel1 As New DataTable<br /> Public Sub by()<br /> Dim X As New OleDb.OleDbDataAdapter<br /> X = New OleDb.OleDbDataAdapter("Select * From BARANG", A)<br /> datatabel1.Rows.Clear()<br /> X.Fill(datatabel1)<br /> X.Dispose()<br /> End Sub<br /><br /> Private Sub Latihan30A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> by()<br /> dgv070.DataSource = datatabel1<br /> End Sub<br /><br /> Private Sub edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit.Click<br /> If Latihan30B.Visible = False Then<br /> Latihan30B.Show()<br /> Else<br /> Latihan30B.Activate()<br /> End If<br /><br /> Latihan30B.Show()<br /> Latihan30B.kb1070.Text = dgv070.CurrentRow.Cells("Kodebarang").Value<br /> Latihan30B.kb2070.Text = dgv070.CurrentRow.Cells("Kodebarang").Value<br /> Latihan30B.nb070.Text = dgv070.CurrentRow.Cells("Namabarang").Value<br /> Latihan30B.hj070.Text = dgv070.CurrentRow.Cells("Hargajual").Value<br /> Latihan30B.jb070.Text = dgv070.CurrentRow.Cells("Jumlahbarang").Value<br /> End Sub<br />End Class<br /><br /><br /><br />Public Class Latihan30B<br /> Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATABARANG.accdb")<br /><br /> Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click<br /> If kb1070.Text.Length = 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If kb2070.Text.Length = 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If nb070.Text.Length = 0 Then<br /> MsgBox("Nama barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If Val(hj070.Text) = 0 Then<br /> MsgBox("Harga jual sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If Val(jb070.Text) = 0 Then<br /> MsgBox("Jumlah barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If kb1070.Text <> kb2070.Text Then<br /> Dim pencari As New ByIskandar.CariKeDataBaseByIskandar<br /> pencari.AturPencarianDataBase("Barang", "Kodebarang", kb2070.Text, 1, A)<br /> If pencari.JumlanBaris > 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /> End If<br /><br /> Dim CM As New OleDb.OleDbCommand<br /> CM = New OleDb.OleDbCommand("UPDATE BARANG SET KODEBARANG= '" & kb2070.Text & "', NAMABARANG= '" & nb070.Text & "', HARGAJUAL= " & Val(hj070.Text) & ", JUMLAHBARANG= " & Val(jb070.Text) & " WHERE KODEBARANG= '" & kb1070.Text & "'", A)<br /> A.Open()<br /> CM.ExecuteNonQuery()<br /> A.Close()<br /> CM.Dispose()<br /><br /> kb1070.Text = ""<br /> kb2070.Text = ""<br /> nb070.Text = ""<br /> hj070.Text = ""<br /> jb070.Text = ""<br /><br /> 'Menjalankan prosedur ambil data'<br /> Latihan30A.by()<br /> End Sub<br />End Class(L).Gunawan.Mustarihttps://www.blogger.com/profile/04002846214316396260noreply@blogger.com