' Simpan detail For Each row As DataRow In dtDetail.Rows cmd = New OleDbCommand("INSERT INTO detail_penjualan (no_faktur, kode_barang, qty, subtotal) VALUES (@faktur, @kode, @qty, @sub)", conn, trans) cmd.Parameters.AddWithValue("@faktur", txtNoFaktur.Text) cmd.Parameters.AddWithValue("@kode", row("kode_barang")) cmd.Parameters.AddWithValue("@qty", row("qty")) cmd.Parameters.AddWithValue("@sub", row("subtotal")) cmd.ExecuteNonQuery()
transaksi.Commit() MsgBox("Transaksi berhasil disimpan!") KosongkanKeranjang() GenerateNoTransaksi() Catch ex As Exception transaksi.Rollback() MsgBox("Gagal menyimpan transaksi: " & ex.Message) Finally conn.Close() End Try contoh aplikasi program penjualan dengan vb.net 2008