Jumat, 04 November 2011

Latihan 27 Apkom 4 D3 B

Silahkan kumpul disini
Diposting oleh di

38 komentar:

  1. Andi Habibi8 November 2011 pukul 01.27

    Public Class Latihan27_035
    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\materi kuliah II\semester 5\VB\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DATABARANG.accdb")
    Dim isi As New ByIskandar.CariKeDataBaseByIskandar
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1035.Click
    'perintah periksa data
    If t1035.Text.Length = 0 Then
    MsgBox("Please Insert Your Text")
    Exit Sub
    End If

    If t2035.Text.Length = 0 Then
    MsgBox("Please Insert Your Text")
    Exit Sub
    End If

    If Val(t3035.Text) = 0 Then
    MsgBox("Please Insert Your Text")
    Exit Sub
    End If

    If Val(t4035.Text) = 0 Then
    MsgBox("Please Insert Your Text")
    Exit Sub
    End If

    'perintah ambil data
    'Dim aku As New OleDb.OleDbCommand("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =C:\users\andihabibi\My Documents\latihan 15-26 mengakses data on 10.0.7.1\DataTransaksiJualBeli.accdb")
    isi.AturPencarianDataBase("BARANG", "KODEBARANG", t1035.Text, 1, go)

    If isi.JumlanBaris > 0 Then
    MsgBox("The data has been exist please insert new data")

    'mengosongkan text box
    t1035.Text = ""
    t2035.Text = ""
    t3035.Text = ""
    t4035.Text = ""
    Exit Sub
    End If

    'deklarasi object command
    Dim Cm As New OleDb.OleDbCommand
    Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & t1035.Text & "','" & t2035.Text & "', " & Val(t3035.Text) & "," & Val(t4035.Text) & ")", go)
    go.Open()
    Cm.ExecuteNonQuery()
    go.Close()
    Cm.Dispose()

    'mengosongkan text box
    t1035.Text = ""
    t2035.Text = ""
    t3035.Text = ""
    t4035.Text = ""
    End Sub
    End Class

    BalasHapus
  2. Muh. Nurfalah Yusuf8 November 2011 pukul 01.42

    Public Class LATIHAN02736109055

    Dim connect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=H:\berbagi\sharing2\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DATABARANG.accdb")
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If textbox136109055.Text.Length = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If

    If textbox236109055.Text.Length = 0 Then
    MsgBox("nama barang belum terisi")
    Exit Sub
    End If

    If Val(textbox336109055.Text) = 0 Then
    MsgBox("harga jual belum diisi")
    Exit Sub
    End If

    If Val(textbox436109055.Text) = 0 Then
    MsgBox("jumlah barang belum diisi")
    Exit Sub
    End If

    cari.AturPencarianDataBase("DATABARANG", "KODEBARANG", textbox136109055.Text, 1, connect)

    If cari.JumlanBaris > 0 Then
    MsgBox("kode sudah ada")
    Exit Sub
    End If


    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & textbox136109055.Text & "','" & textbox236109055.Text & "'," & Val(textbox336109055.Text) & "," & Val(textbox436109055.Text) & ")", connect)

    conect.Open()
    com.ExecuteNonQuery()
    conect.Close()
    com.Dispose()

    textbox136109055.Text = ""
    textbox236109055.Text = ""
    textbox336109055.Text = ""
    textbox436109055.Text = ""

    End Sub
    End Class

    BalasHapus
  3. Eshafitri8 November 2011 pukul 03.05

    Public Class Latihan2736109046
    Dim connect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=D:\Qulyah\SEM 5\APKOM 4:\berbagi\sharing2\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\ByIskandar.accdb")
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub Button136109046_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109046.Click
    If t136109046.Text.Length = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If

    If t236109046.Text.Length = 0 Then
    MsgBox("nama barang belum terisi")
    Exit Sub
    End If

    If Val(t336109046.Text) = 0 Then
    MsgBox("harga jual belum diisi")
    Exit Sub
    End If

    If Val(t436109046.Text) = 0 Then
    MsgBox("jumlah barang belum diisi")
    Exit Sub
    End If

    cari.AturPencarianDataBase("DATABARANG", "KODEBARANG", t136109046.Text, 1, connect)

    If cari.JumlanBaris > 0 Then
    MsgBox("kode sudah ada")
    Exit Sub
    End If


    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t136109046.Text & "','" & t236109046.Text & "'," & Val(t336109046.Text) & "," & Val(t436109046.Text) & ")", connect)

    connect.Open()
    com.ExecuteNonQuery()
    connect.Close()
    com.Dispose()

    t136109046.Text = ""
    t236109046.Text = ""
    t336109046.Text = ""
    t436109046.Text = ""

    End Sub
    End Class

    BalasHapus
  4. Pratiwi Leila Safila Tahir8 November 2011 pukul 03.58

    Public Class LATIHAN02736109033

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb")
    Dim browse As New DataTable

    Private Sub Button136109033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109033.Click
    Dim tiwi As New OleDb.OleDbDataAdapter("select count(*) as coba from barang where kodebarang ='" & t136109033.Text & "'", CONECT)
    browse.Rows.Clear()
    tiwi.Fill(browse)
    If browse.Rows(0).Item("coba") > 0 Then
    MsgBox("kode barang sudah ada")
    Else
    pratiwi()
    End If
    Data()

    t136109033.Text = ""
    t236109033.Text = ""
    t336109033.Text = ""
    t436109033.Text = ""

    End Sub

    Public Sub pratiwi()

    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t136109033.Text & "','" & t236109033.Text & "'," & Val(t336109033.Text) & "," & Val(t436109033.Text) & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()
    com.Dispose()

    End Sub

    Public Sub data()
    If Val(t136109033.Text) = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If
    If t236109033.Text.Length = 0 Then
    MsgBox("nama barang belum terisi")
    Exit Sub
    End If

    If Val(t336109033.Text) = 0 Then
    MsgBox("harga jual belum diisi")
    Exit Sub
    End If

    If Val(t436109033.Text) = 0 Then
    MsgBox("jumlah barang belum diisi")
    Exit Sub
    End If
    End Sub
    End Class

    BalasHapus
  5. Unknown8 November 2011 pukul 04.45

    Public Class LATIHAN_027_36109056
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb")
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    If Val(Textbox1_36109056.Text) = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If

    If Textbox2_36109056.Text.Length = 0 Then
    MsgBox("nama barang belum terisi")
    Exit Sub
    End If

    If Val(Textbox3_36109056.Text) = 0 Then
    MsgBox("harga jual belum diisi")
    Exit Sub
    End If

    If Val(Textbox4_36109056.Text) = 0 Then
    MsgBox("jumlah barang belum diisi")
    Exit Sub
    End If


    cari.AturPencarianDataBase("BARANG", "KODEBARANG", Textbox1_36109056.Text, 1, conect)

    If cari.JumlanBaris > 0 Then
    MsgBox("kode sudah ada")
    Exit Sub
    End If


    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & Textbox1_36109056.Text & "','" & Textbox2_36109056.Text & "'," & Val(Textbox3_36109056.Text) & "," & Val(Textbox4_36109056.Text) & ")", conect)

    conect.Open()
    com.ExecuteNonQuery()
    conect.Close()
    com.Dispose()

    Textbox1_36109056.Text = ""
    Textbox2_36109056.Text = ""
    Textbox3_36109056.Text = ""
    Textbox4_36109056.Text = ""

    End Sub

    End Class

    BalasHapus
  6. Nurhidayah Ibrahim8 November 2011 pukul 05.03

    Public Class Latih27_36109034

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb")
    Dim NURHIDAYAH As New DataTable

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
    Dim NUNU As New OleDb.OleDbDataAdapter("select count(*) as coba from barang where kodebarang ='" & t136109034.Text & "'", CONECT)
    NURHIDAYAH.Rows.Clear()
    NUNU.Fill(NURHIDAYAH)
    If NURHIDAYAH.Rows(0).Item("coba") > 0 Then
    MsgBox("kode barang sudah ada")
    Else
    YAYA()
    End If
    Data()

    t136109034.Text = ""
    t236109034.Text = ""
    t336109034.Text = ""
    t436109034.Text = ""

    End Sub

    Public Sub YAYA()

    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t136109034.Text & "','" & t236109034.Text & "'," & Val(t336109034.Text) & "," & Val(t436109034.Text) & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()
    com.Dispose()

    End Sub

    Public Sub data()
    If Val(t136109034.Text) = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If
    If t236109034.Text.Length = 0 Then
    MsgBox("nama barang belum terisi")
    Exit Sub
    End If

    If Val(t336109034.Text) = 0 Then
    MsgBox("harga jual belum diisi")
    Exit Sub
    End If

    If Val(t436109034.Text) = 0 Then
    MsgBox("jumlah barang belum diisi")
    Exit Sub
    End If
    End Sub
    End Class

    BalasHapus
  7. estehhmirasthii8 November 2011 pukul 05.51

    Public Class LATIHAN02736109032

    Dim sambung As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb")
    Dim pusat As New DataTable

    Private Sub Button136109032_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109032.Click
    Dim cabang As New OleDb.OleDbDataAdapter("select count(*) as baru from barang where kodebarang ='" & T136109032.Text & "'", sambung)
    pusat.Rows.Clear()
    cabang.Fill(pusat)
    If pusat.Rows(0).Item("baru") > 0 Then
    MsgBox("kode yang anda masukkan sudah ada")
    Else
    mirasthi()
    End If
    esthi()
    T136109032.Text = ""
    T236109032.Text = ""
    T336109032.Text = ""
    T436109032.Text = ""

    End Sub

    Public Sub mirasthi()
    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & T136109032.Text & "','" & T236109032.Text & "'," & Val(T336109032.Text) & "," & Val(T436109032.Text) & ")", sambung)

    sambung.Open()
    com.ExecuteNonQuery()
    sambung.Close()
    com.Dispose()

    End Sub

    Public Sub esthi()
    If Val(T136109032.Text) = 0 Then
    MsgBox("kode barang anda belum dimasukkan")
    Exit Sub
    End If
    If T236109032.Text.Length = 0 Then
    MsgBox("nama barang anda belum dimasukkan")
    Exit Sub
    End If

    If Val(T336109032.Text) = 0 Then
    MsgBox("harga jual anda belum dimasukkan")
    Exit Sub
    End If

    If Val(T436109032.Text) = 0 Then
    MsgBox("jumlah barang anda belum dimasukkan")
    Exit Sub

    End If

    End Sub

    End Class

    BalasHapus
  8. Armita Laenre8 November 2011 pukul 15.31

    Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  9. Pratiwi Leila Safila Tahir15 November 2011 pukul 04.47

    revisi :)

    Public Class LATIHAN02736109033

    Dim CONECT As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=tahir")
    Dim browse As New DataTable

    Private Sub Button136109033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109033.Click
    Dim tiwi As New OleDb.OleDbDataAdapter("select count(*) as coba from barang where kodebarang ='" & t136109033.Text & "'", CONECT)
    browse.Rows.Clear()
    tiwi.Fill(browse)
    If browse.Rows(0).Item("coba") > 0 Then
    MsgBox("kode barang sudah ada")
    Else
    pratiwi()
    End If
    Data()

    t136109033.Text = ""
    t236109033.Text = ""
    t336109033.Text = ""
    t436109033.Text = ""

    End Sub

    Public Sub pratiwi()

    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t136109033.Text & "','" & t236109033.Text & "'," & Val(t336109033.Text) & "," & Val(t436109033.Text) & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()
    com.Dispose()

    End Sub

    Public Sub data()
    If Val(t136109033.Text) = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If
    If t236109033.Text.Length = 0 Then
    MsgBox("nama barang belum terisi")
    Exit Sub
    End If

    If Val(t336109033.Text) = 0 Then
    MsgBox("harga jual belum diisi")
    Exit Sub
    End If

    If Val(t436109033.Text) = 0 Then
    MsgBox("jumlah barang belum diisi")
    Exit Sub
    End If
    End Sub
    End Class

    BalasHapus
  10. nhela fransisca15 November 2011 pukul 04.48

    Public Class LATIHAN02736109047

    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=4433221100")
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
    If Val(t136109047.Text) = 0 Then 'untuk pencarian yg bersifat angka
    MsgBox("kode barang belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If

    If t236109047.Text.Length = 0 Then ' untuk pencarian yg bersifat huruf
    MsgBox("nama barang belum terisi")
    Exit Sub
    End If

    If Val(t336109047.Text) = 0 Then
    MsgBox("harga jual belum diisi")
    Exit Sub
    End If

    If Val(t436109047.Text) = 0 Then
    MsgBox("jumlah barang belum diisi")
    Exit Sub
    End If

    'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
    cari.AturPencarianDataBase("BARANG", "KODEBARANG", t136109047.Text, 1, conect)

    If cari.JumlanBaris > 0 Then
    MsgBox("kode sudah ada")
    Exit Sub
    End If

    'untuk memasukkan data dari visual basc ke dlm acces
    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t136109047.Text & "','" & t236109047.Text & "'," & Val(t336109047.Text) & "," & Val(t436109047.Text) & ")", conect)

    conect.Open()
    com.ExecuteNonQuery()
    conect.Close()
    com.Dispose()

    t136109047.Text = ""
    t236109047.Text = ""
    t336109047.Text = ""
    t436109047.Text = ""

    End Sub

    End Class

    BalasHapus
  11. estehhmirasthii15 November 2011 pukul 16.41

    REVISI:

    Public Class LATIHAN02736109032

    Dim sambung As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=jayapura")
    Dim pusat As New DataTable

    Private Sub Button136109032_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109032.Click
    Dim cabang As New OleDb.OleDbDataAdapter("select count(*) as baru from barang where kodebarang ='" & T136109032.Text & "'", sambung)
    pusat.Rows.Clear()
    cabang.Fill(pusat)
    If pusat.Rows(0).Item("baru") > 0 Then
    MsgBox("kode yang anda masukkan sudah ada")
    Else
    mirasthi()
    End If
    esthi()
    T136109032.Text = ""
    T236109032.Text = ""
    T336109032.Text = ""
    T436109032.Text = ""

    End Sub

    Public Sub mirasthi()
    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & T136109032.Text & "','" & T236109032.Text & "'," & Val(T336109032.Text) & "," & Val(T436109032.Text) & ")", sambung)

    sambung.Open()
    com.ExecuteNonQuery()
    sambung.Close()
    com.Dispose()

    End Sub

    Public Sub esthi()
    If Val(T136109032.Text) = 0 Then
    MsgBox("kode barang anda belum dimasukkan")
    Exit Sub
    End If
    If T236109032.Text.Length = 0 Then
    MsgBox("nama barang anda belum dimasukkan")
    Exit Sub
    End If

    If Val(T336109032.Text) = 0 Then
    MsgBox("harga jual anda belum dimasukkan")
    Exit Sub
    End If

    If Val(T436109032.Text) = 0 Then
    MsgBox("jumlah barang anda belum dimasukkan")
    Exit Sub

    End If

    End Sub

    End Class

    BalasHapus
  12. Juniati Muslimin15 November 2011 pukul 17.12

    Public Class LATIHAN027_36109037
    'dekklarasi connection
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=2901911691")
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
    If Val(t136109037.Text) = 0 Then 'untuk pencarian yg bersifat angka
    MsgBox("kode barang belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If

    If t236109037.Text.Length = 0 Then ' untuk pencarian yg bersifat huruf
    MsgBox("nama barang belum terisi")
    Exit Sub
    End If

    If Val(t336109037.Text) = 0 Then
    MsgBox("harga jual belum diisi")
    Exit Sub
    End If

    If Val(t436109037.Text) = 0 Then
    MsgBox("jumlah barang belum diisi")
    Exit Sub
    End If

    'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
    cari.AturPencarianDataBase("BARANG", "KODEBARANG", t136109037.Text, 1, conect)

    If cari.JumlanBaris > 0 Then
    MsgBox("kode sudah ada")
    Exit Sub
    End If

    'untuk memasukkan data dari visual basc ke dlm acces
    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t136109037.Text & "','" & t236109037.Text & "'," & Val(t336109037.Text) & "," & Val(t436109037.Text) & ")", conect)

    conect.Open()
    com.ExecuteNonQuery()
    conect.Close()
    com.Dispose()

    t136109037.Text = ""
    t236109037.Text = ""
    t336109037.Text = ""
    t436109037.Text = ""

    End Sub
    End Class

    BalasHapus
  13. Nurhidayah Ibrahim15 November 2011 pukul 18.38

    REVISI WITH PASSWORD

    Public Class Latih27_36109034
    'dekklarasi connection
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=nhunoe")
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
    'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
    If Val(t136109034.Text) = 0 Then 'untuk pencarian yg bersifat angka
    MsgBox("kode barang belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If

    If t236109034.Text.Length = 0 Then ' untuk pencarian yg bersifat huruf
    MsgBox("nama barang belum terisi")
    Exit Sub
    End If

    If Val(t336109034.Text) = 0 Then
    MsgBox("harga jual belum diisi")
    Exit Sub
    End If

    If Val(t436109034.Text) = 0 Then
    MsgBox("jumlah barang belum diisi")
    Exit Sub
    End If

    'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
    cari.AturPencarianDataBase("BARANG", "KODEBARANG", t136109034.Text, 1, conect)

    If cari.JumlanBaris > 0 Then
    MsgBox("kode sudah ada")
    Exit Sub
    End If

    'untuk memasukkan data dari visual basc ke dlm acces
    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t136109034.Text & "','" & t236109034.Text & "'," & Val(t336109034.Text) & "," & Val(t436109034.Text) & ")", conect)

    conect.Open()
    com.ExecuteNonQuery()
    conect.Close()
    com.Dispose()

    t136109034.Text = ""
    t236109034.Text = ""
    t336109034.Text = ""
    t436109034.Text = ""

    End Sub
    End Class

    BalasHapus
  14. Ince Akhriani Aulia Dulina19 November 2011 pukul 06.54

    Public Class Form2736108001
    Dim INCE As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=36108001")
    Dim VENUS As New ByIskandar.CariKeDataBaseByIskandar
    Private Sub B36108001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B36108001.Click
    If T136108001.Text.Length = 0 Then
    MsgBox("Isi Kode Barang")
    Exit Sub
    End If

    If T236108001.Text.Length = 0 Then
    MsgBox("Isi Nama Barang")
    Exit Sub
    End If

    If Val(T336108001.Text) = 0 Then
    MsgBox("Isi Harga Jual")
    Exit Sub
    End If

    If Val(T436108001.Text) = 0 Then
    MsgBox("Isi Jumlah Barang")
    Exit Sub
    End If

    VENUS.AturPencarianDataBase("barang", "kodebarang", T136108001.Text, 1, INCE)
    If VENUS.JumlanBaris > 0 Then
    MsgBox("Kode Tersebut Sudah Ada")
    Exit Sub
    End If

    Dim BLUE As New OleDb.OleDbCommand
    BLUE = New OleDb.OleDbCommand(" insert into barang (kodebarang, namabarang, hargajual,jumlahbarang) " & _
    "values ('" & T136108001.Text & "', '" & T236108001.Text & "', " & Val(T336108001.Text) & "," & Val(T436108001.Text) & ") ", INCE)
    INCE.Open()
    BLUE.ExecuteNonQuery()
    INCE.Close()

    T136108001.Text = ""
    T236108001.Text = ""
    T336108001.Text = ""
    T436108001.Text = ""

    End Sub
    End Class

    BalasHapus
  15. Unknown9 Oktober 2012 pukul 02.31

    http://hilariusmariotonapa.blogspot.com/2012/10/prosedur-penyelesaian-latihan2736110048.html

    http://hilariusmariotonapa.blogspot.com/2012/10/deskripsi-latihan2736110048.html

    BalasHapus
  16. Masnur Orzhel9 Oktober 2012 pukul 19.01

    http://www.masnurselayar.blogspot.com/2012/10/latihan-2736110055.html

    BalasHapus
  17. Unknown10 Oktober 2012 pukul 18.06

    http://nurrahmahrasyid2.blogspot.com/2012/10/latihan2736110042.html

    BalasHapus
  18. Unknown10 Oktober 2012 pukul 20.35

    http://nurhanalott.blogspot.com/2012/10/latihan2736110029.html

    BalasHapus
  19. Melissa Rante11 Oktober 2012 pukul 19.13

    http://03melisa.blogspot.com/2012/10/latihan-27-apkom-4-d3b-akuntansi-pnup.html

    BalasHapus
  20. Unknown11 Oktober 2012 pukul 23.32

    http://ias-anakbola.blogspot.com/2012/10/latihan2736110056.html

    BalasHapus
  21. Unknown12 Oktober 2012 pukul 10.27

    http://benhilll.blogspot.com/2012/10/deskripsi-dan-prosedur-latihan2736110039.html

    BalasHapus
  22. Unknown12 Oktober 2012 pukul 14.06

    http://sukadriady.blogspot.com/2012/10/latihan.html

    BalasHapus
  23. IlaH Az Zahra12 Oktober 2012 pukul 20.56

    http://ilhaazzahra.blogspot.com/2012/10/latihan2736110033.html

    BalasHapus
  24. Unknown12 Oktober 2012 pukul 21.33

    http://andiniwarakusuma.blogspot.com/2012/10/latihan2736110034.html

    BalasHapus
  25. Unknown12 Oktober 2012 pukul 22.40

    http://rizka-azisah.blogspot.com/2012/10/deskripsi-penyelesaian-latihan273611004.html

    BalasHapus
  26. Unknown13 Oktober 2012 pukul 00.09

    http://rahmisuryatama05.blogspot.com/2012/10/latihan2736110040.html

    BalasHapus
  27. Unknown13 Oktober 2012 pukul 00.43

    http://audryasharii.blogspot.com/2012/10/latihan2736110031.html

    BalasHapus
  28. Unknown13 Oktober 2012 pukul 01.19

    http://rosyanausman.blogspot.com/2012/10/latihan2736110036.html

    BalasHapus
  29. Unknown13 Oktober 2012 pukul 02.14

    http://tiya-sri.blogspot.com/2012/10/latihan2736110044-aplikasi-komputer-4.html

    BalasHapus
  30. Unknown13 Oktober 2012 pukul 02.31

    http://rainaagrippinaa.blogspot.com/2012/10/latihan2736110032.html

    BalasHapus
  31. Unknown13 Oktober 2012 pukul 03.46

    http://sriayu-36110030.blogspot.com/2012/10/diskripsi-dan-prosedur-latihan-27.html

    BalasHapus
  32. Unknown13 Oktober 2012 pukul 06.26

    http://dewiwahyuni91.blogspot.com/2012/10/latihan2736110038.html

    BalasHapus
  33. Naomi Emily13 Oktober 2012 pukul 09.14

    http://eminaomi.blogspot.com/2012/10/latihan2736110049.html

    BalasHapus
  34. Unknown13 Oktober 2012 pukul 19.43

    http://reskypurwono.blogspot.com/2012/10/prosedur-penyelesaian-latihan2736110037.html

    BalasHapus
  35. Unknown14 Oktober 2012 pukul 02.45

    http://burhankhang58.blogspot.com/2012/10/latihan2736110047.html

    BalasHapus
  36. Unknown14 Oktober 2012 pukul 07.17

    http://ruslancullank1.blogspot.com/2012/10/deskripsilatihan2736110054.html

    BalasHapus
  37. Unknown14 Oktober 2012 pukul 07.44

    http://hasfiahzain.blogspot.com/2012/10/latihan2736110052.html

    BalasHapus
  38. Unknown14 Oktober 2012 pukul 10.56

    http://zulkiflitryputra.blogspot.com/2012/10/latihan2736110046.html

    BalasHapus

Langganan: Posting Komentar (Atom)