Jumat, 04 November 2011

Latihan 33 Apkom 4 D4 B

Diposting oleh di

16 komentar:

  1. Unknown17 November 2011 pukul 09.11

    FARADILLAH AMALIA RIVAI

    LATIHAN 33 B

    Public Class LATIHAN033B_46109010
    Dim rossi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet oledb:database password=46")
    Dim pencarian As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub simpan46109010_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles simpan46109010.Click

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

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

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

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

    pencarian.AturPencarianDataBase("barang", "kodebarang", t146109010.Text, 1, rossi)

    If pencarian.JumlanBaris > 0 Then

    MsgBox("data sudah ada")
    Exit Sub
    End If


    Dim vr As New OleDb.OleDbCommand
    vr = New OleDb.OleDbCommand("insert into barang(kodebarang,namabarang,hargajual,jumlahbarang) Values('" & t146109010.Text & "','" & t246109010.Text & "'," & Val(t346109010.Text) & "," & Val(t446109010.Text) & ")", rossi)

    rossi.Open()
    vr.ExecuteNonQuery()
    rossi.Close()
    vr.Dispose()

    t146109010.Text = ""
    t246109010.Text = ""
    t346109010.Text = ""
    t446109010.Text = ""


    End Sub
    End Class

    BalasHapus
  2. Unknown17 November 2011 pukul 17.48

    Public Class Latihan33B_46109050

    Dim risky As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database password=kiki")
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

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

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

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

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

    cari.AturPencarianDataBase("barang", "kodebarang", QQ1_46109050.Text, 1, risky)

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


    Dim mahira As New OleDb.OleDbCommand
    mahira = New OleDb.OleDbCommand("insert into barang(kodebarang,namabarang,hargajual,jumlahbarang) Values('" & QQ1_46109050.Text & "','" & QQ2_46109050.Text & "'," & Val(QQ3_46109050.Text) & "," & Val(QQ4_46109050.Text) & ")", risky)

    risky.Open()
    mahira.ExecuteNonQuery()
    risky.Close()
    mahira.Dispose()

    QQ1_46109050.Text = ""
    QQ2_46109050.Text = ""
    QQ3_46109050.Text = ""
    QQ4_46109050.Text = ""

    Latihan33A_46109050.zaza()

    End Sub
    End Class

    BalasHapus
  3. SRY REJEKI_09_PNUP17 November 2011 pukul 21.52

    Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  4. SRY REJEKI_09_PNUP17 November 2011 pukul 21.55

    Public Class LATIHAN033B_46109006
    Dim SRY As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet oledb:database password=46")
    Dim pencarian As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub simpan46109006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles simpan46109006.Click

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

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

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

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

    pencarian.AturPencarianDataBase("barang", "kodebarang", t146109006.Text, 1, SRY)

    If pencarian.JumlanBaris > 0 Then

    MsgBox("data sudah ada")
    Exit Sub
    End If


    Dim KI2 As New OleDb.OleDbCommand
    KI2 = New OleDb.OleDbCommand("insert into barang(kodebarang,namabarang,hargajual,jumlahbarang) Values('" & t146109006.Text & "','" & t246109006.Text & "'," & Val(t346109006.Text) & "," & Val(t446109006.Text) & ")", SRY)

    SRY.Open()
    KI2.ExecuteNonQuery()
    SRY.Close()
    KI2.Dispose()

    t146109006.Text = ""
    t246109006.Text = ""
    t346109006.Text = ""
    t446109006.Text = ""

    End Sub
    End Class

    BalasHapus
  5. Uchy Blog17 November 2011 pukul 21.56

    Andi Muh. Yusri
    Public Class Latihan33B_46109038
    Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
    Dim com As New OleDb.OleDbCommand
    Dim yusri As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DATABARANG.accdb;jet OleDb:database password=300591")

    Private Sub Simpan_46109038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46109038.Click
    If KodeLama_46109038.Text = "" Then
    pencari.AturPencarianDataBase("Barang", "KodeBarang", Kobar_46109038.Text, 1, yusri)
    If pencari.JumlanBaris > 0 Then
    MsgBox("kode barang telah ada")
    Kobar_46109038.Text = ""
    Exit Sub
    ElseIf Kobar_46109038.Text.Length = 0 Then
    MsgBox("kode barang harus tercantum")
    Exit Sub
    ElseIf Nambar_46109038.Text.Length = 0 Then
    MsgBox("nama barang harus tercantum")
    Exit Sub
    ElseIf Harju_46109038.Text.Length = 0 Then
    MsgBox("harga jual harus tercantum")
    Exit Sub
    ElseIf Jumbar_46109038.Text.Length = 0 Then
    MsgBox("jumlah barang harus tercantum")
    Exit Sub
    End If
    Dim siraj As String = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & Kobar_46109038.Text & "','" & Nambar_46109038.Text & "'," & Val(Harju_46109038.Text) & "," & Val(Jumbar_46109038.Text) & ")"
    com = New OleDb.OleDbCommand(siraj, yusri)
    yusri.Open()
    com.ExecuteNonQuery()
    yusri.Close()
    com.Dispose()
    Kobar_46109038.Text = ""
    Nambar_46109038.Text = ""
    Harju_46109038.Text = ""
    Jumbar_46109038.Text = ""
    Else
    If KodeLama_46109038.Text <> Kobar_46109038.Text Then
    pencari.AturPencarianDataBase("Barang", "KodeBarang", Kobar_46109038.Text, 1, yusri)
    If pencari.JumlanBaris > 0 Then
    MsgBox("kode barang tidak dapat diupdate")
    Exit Sub
    End If
    End If
    End If

    If Kobar_46109038.Text.Length = 0 Then
    MsgBox("kode barang harus tercantum")
    Exit Sub
    ElseIf Nambar_46109038.Text.Length = 0 Then
    MsgBox("nama barang harus tercantum")
    Exit Sub
    ElseIf Harju_46109038.Text.Length = 0 Then
    MsgBox("harga jual harus tercantum")
    Exit Sub
    ElseIf Jumbar_46109038.Text.Length = 0 Then
    MsgBox("jumlah barang harus tercantum")
    Exit Sub
    End If
    Dim mirza As String = "update barang set kodebarang = '" & Kobar_46109038.Text & "', namabarang = '" & Nambar_46109038.Text & "', hargajual = " & Val(Harju_46109038.Text) & ", jumlahbarang = " & Val(Jumbar_46109038.Text) & " where kodebarang = '" & KodeLama_46109038.Text & "'"
    com = New OleDb.OleDbCommand(mirza, yusri)
    yusri.Open()
    com.ExecuteNonQuery()
    yusri.Close()
    com.Dispose()
    KodeLama_46109038.Text = "-"
    Kobar_46109038.Text = ""
    Nambar_46109038.Text = ""
    Harju_46109038.Text = ""
    Jumbar_46109038.Text = ""

    End Sub
    End Class

    BalasHapus
  6. Qayyimah Nashriyah Y17 November 2011 pukul 23.11

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

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

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

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

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

    cari.AturPencarianDataBase("barang", "kodebarang", t1_46109015.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('" & t1_46109015.Text & "','" & t2_46109015.Text & "'," & Val(t3_46109015.Text) & "," & Val(t4_46109015.Text) & ")", conect)

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

    t1_46109015.Text = ""
    t2_46109015.Text = ""
    t3_46109015.Text = ""
    t4_46109015.Text = ""

    Latihan033A_46109015.imah()
    End Sub
    End Class

    BalasHapus
  7. Dunia Koesong Satoe18 November 2011 pukul 00.21

    Public Class Latihan33B46109047

    Dim itha As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:database password=979264")
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

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

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

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

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

    cari.AturPencarianDataBase("barang", "kodebarang", TB146109047.Text, 1, itha)

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


    Dim muhitha As New OleDb.OleDbCommand
    muhitha = New OleDb.OleDbCommand("insert into barang(kodebarang,namabarang,hargajual,jumlahbarang) Values('" & TB146109047.Text & "','" & TB246109047.Text & "'," & Val(TB346109047.Text) & "," & Val(TB446109047.Text) & ")", itha)

    itha.Open()
    muhitha.ExecuteNonQuery()
    itha.Close()
    muhitha.Dispose()

    TB146109047.Text = ""
    TB246109047.Text = ""
    TB346109047.Text = ""
    TB446109047.Text = ""

    Latihan33A46109047.saya()

    End Sub
    End Class

    BalasHapus
  8. Muhammad Syahril18 November 2011 pukul 04.26

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

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

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

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

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

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

    cari.AturPencarianDataBase("barang", "kodebarang", tb146109044.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('" & tb146109044.Text & "','" & tb246109044.Text & "'," & Val(tb346109044.Text) & "," & Val(tb446109044.Text) & ")", conect)

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

    tb146109044.Text = ""
    tb246109044.Text = ""
    tb346109044.Text = ""
    tb446109044.Text = ""

    Latihan33_A_46109044.ambildata()
    End Sub

    End Class

    BalasHapus
  9. Ibnu Hajar H18 November 2011 pukul 05.42

    Public Class LATIHAN33A46109026
    Dim ibe As New DataTable
    Dim ibhe As New OleDb.OleDbCommand
    Dim tinggal As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb;jet OLEDB:database password=26")

    Private Sub LATIHAN33A46109026_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim adapter As New OleDb.OleDbDataAdapter
    adapter = New OleDb.OleDbDataAdapter("select * from barang", tinggal)
    ibe.Rows.Clear()
    adapter.Fill(ibe)
    adapter.Dispose()
    dtg46109026.DataSource = ibe
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    If LATIHAN33B46109026.Visible = False Then
    LATIHAN33B46109026.Show()
    Else
    LATIHAN33B46109026.Activate()
    End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If LATIHAN33B46109026.Visible = False Then
    LATIHAN33B46109026.Show()
    Else
    LATIHAN33B46109026.Activate()
    End If
    LATIHAN33B46109026.KB.Text = dtg46109026.CurrentRow.Cells("kodebarang").Value
    LATIHAN33B46109026.kb46109026.Text = dtg46109026.CurrentRow.Cells("kodebarang").Value
    LATIHAN33B46109026.nb46109026.Text = dtg46109026.CurrentRow.Cells("namabarang").Value
    LATIHAN33B46109026.hj46109026.Text = dtg46109026.CurrentRow.Cells("jumlahbarang").Value
    LATIHAN33B46109026.jb46109026.Text = dtg46109026.CurrentRow.Cells("hargajual").Value
    End Sub
    End Class

    BalasHapus
  10. Ibnu Hajar H18 November 2011 pukul 05.43

    Public Class LATIHAN33B46109026
    Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
    Dim ibe As New OleDb.OleDbCommand
    Dim xx As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb;jet OLEDB:database password=26")

    Private Sub LATIHAN33B46109026_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    If KB.Text = "" Then
    pencari.AturPencarianDataBase("Barang", "KodeBarang", kb46109026.Text, 1, xx)
    If pencari.JumlanBaris > 0 Then
    MsgBox("kode barang telah ada")
    kb46109026.Text = ""
    Exit Sub
    ElseIf kb46109026.Text.Length = 0 Then
    MsgBox("kode barang harus tercantum")
    Exit Sub
    ElseIf nb46109026.Text.Length = 0 Then
    MsgBox("nama barang harus tercantum")
    Exit Sub
    ElseIf hj46109026.Text.Length = 0 Then
    MsgBox("harga jual harus tercantum")
    Exit Sub
    ElseIf jb46109026.Text.Length = 0 Then
    MsgBox("jumlah barang harus tercantum")
    Exit Sub
    End If
    Dim ibhe As String = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb46109026.Text & "','" & nb46109026.Text & "'," & Val(hj46109026.Text) & "," & Val(jb46109026.Text) & ")"
    ibe = New OleDb.OleDbCommand(ibhe, xx)
    xx.Open()
    ibe.ExecuteNonQuery()
    xx.Close()
    ibe.Dispose()
    kb46109026.Text = ""
    nb46109026.Text = ""
    hj46109026.Text = ""
    jb46109026.Text = ""
    Else
    If KB.Text <> kb46109026.Text Then
    pencari.AturPencarianDataBase("Barang", "KodeBarang", kb46109026.Text, 1, xx)
    If pencari.JumlanBaris > 0 Then
    MsgBox("kode barang tidak dapat diupdate")
    Exit Sub
    End If
    End If
    If kb46109026.Text.Length = 0 Then
    MsgBox("kode barang harus tercantum")
    Exit Sub
    ElseIf nb46109026.Text.Length = 0 Then
    MsgBox("nama barang harus tercantum")
    Exit Sub
    ElseIf hj46109026.Text.Length = 0 Then
    MsgBox("harga jual harus tercantum")
    Exit Sub
    ElseIf jb46109026.Text.Length = 0 Then
    MsgBox("jumlah barang harus tercantum")
    Exit Sub
    End If
    Dim ibnu As String = "update barang set kodebarang = '" & kb46109026.Text & "', namabarang = '" & nb46109026.Text & "', hargajual = " & Val(hj46109026.Text) & ", jumlahbarang = " & Val(jb46109026.Text) & " where kodebarang = '" & KB.Text & "'"
    ibe = New OleDb.OleDbCommand(ibnu, xx)
    xx.Open()
    ibe.ExecuteNonQuery()
    xx.Close()
    ibe.Dispose()
    KB.Text = "-"
    kb46109026.Text = ""
    nb46109026.Text = ""
    hj46109026.Text = ""
    jb46109026.Text = ""
    End If


    End Sub
    End Class

    BalasHapus
  11. vesadeka18 November 2011 pukul 06.22

    Public Class Form33B
    Dim vero As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet oledb:database password=allah swt")
    Dim nika As New ByIskandar.CariKeDataBaseByIskandar

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

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

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

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

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

    nika.AturPencarianDataBase("barang", "kodebarang", vd1_052.Text, 1, vero)

    If nika.JumlanBaris > 0 Then

    MsgBox("data sudah ada")
    Exit Sub
    End If


    Dim vesa As New OleDb.OleDbCommand
    vesa = New OleDb.OleDbCommand("insert into barang(kodebarang,namabarang,hargajual,jumlahbarang) Values('" & vd1_052.Text & "','" & vd2_052.Text & "'," & Val(vd3_052.Text) & "," & Val(vd4_052.Text) & ")", vero)

    vero.Open()
    vesa.ExecuteNonQuery()
    vero.Close()
    vesa.Dispose()

    vd1_052.Text = ""
    vd2_052.Text = ""
    vd3_052.Text = ""
    vd4_052.Text = ""


    End Sub
    End Class

    BalasHapus
  12. Zulfadli18 November 2011 pukul 20.50

    http://kumpulanlatihan46109060.blogspot.com/2011/11/latihan-33.html

    BalasHapus
  13. Taufiq Gooners19 November 2011 pukul 17.48

    http://taufiqgooners.blogspot.com/2011/11/latihan-33-apkom.html

    BalasHapus
  14. Anonim20 November 2011 pukul 06.39

    http://irvanbravely.blogspot.com/2011/11/latihan-33-apkom.html

    BalasHapus
  15. Muhammad Syahril6 Februari 2012 pukul 03.28

    Public Class latihan_33A_46109044
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet oledb:database password=1234")
    Dim cari As New DataTable
    Public Sub lirhas()
    Dim syahril As New OleDb.OleDbDataAdapter
    syahril = New OleDb.OleDbDataAdapter("select * from barang", conect)
    cari.Rows.Clear()
    syahril.Fill(cari)
    syahril.Dispose()
    End Sub
    Private Sub latihan033A_46109044_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    lirhas()
    data46109044.DataSource = cari
    End Sub

    Private Sub E46109044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles E46109044.Click
    If latihan_33B_46109044.Visible = False Then
    latihan_33B_46109044.Show()
    Else
    latihan_33B_46109044.Activate()
    End If
    End Sub

    Private Sub T46109044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T46109044.Click
    If latihan_33B_46109044.Visible = False Then
    latihan_33B_46109044.Show()
    Else
    latihan_33B_46109044.Activate()
    End If
    latihan_33B_46109044.kode146109044.Text = data46109044.CurrentRow.Cells("KODEBARANG").Value
    latihan_33B_46109044.kode46109044.Text = data46109044.CurrentRow.Cells("KODEBARANG").Value
    latihan_33B_46109044.nama46109044.Text = data46109044.CurrentRow.Cells("NAMABARANG").Value
    latihan_33B_46109044.harga46109044.Text = data46109044.CurrentRow.Cells("HARGAJUAL").Value
    latihan_33B_46109044.jumlah46109044.Text = data46109044.CurrentRow.Cells("JUMLAHBARANG").Value
    End Sub

    Private Sub H46109044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H46109044.Click
    Dim syahril As New OleDb.OleDbCommand
    syahril = New OleDb.OleDbCommand("DELETE * FROM BARANG WHERE KODEBARANG='" & data46109044.CurrentRow.Cells("KODEBARANG").Value & "'", conect)
    conect.Open()
    syahril.ExecuteNonQuery()
    conect.Close()
    syahril.Dispose()
    lirhas()
    End Sub
    End Class

    BalasHapus
  16. Muhammad Syahril6 Februari 2012 pukul 03.28

    Public Class latihan_33B_46109044
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet oledb:database password=1234")
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar
    Private Sub S46109044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109044.Click
    If kode46109044.Text.Length = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If

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

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

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

    cari.AturPencarianDataBase("barang", "kodebarang", kode46109044.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('" & kode46109044.Text & "','" & nama46109044.Text & "'," & Val(harga46109044.Text) & "," & Val(jumlah46109044.Text) & ")", conect)

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

    kode46109044.Text = ""
    nama46109044.Text = ""
    harga46109044.Text = ""
    jumlah46109044.Text = ""

    latihan_33A_46109044.lirhas()
    End Sub

    Private Sub latihan_33B_46109044_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    End Class

    BalasHapus

Langganan: Posting Komentar (Atom)