Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dim cmdSelect = New OleDbCommand("SELECT TrTerimaBarangMst.NoBukti, TrTerimaBarangMst.Tgl, TrTerimaBarangMst.KdSupplier, TrTerimaBarangDtl.Kode, TrTerimaBarangDtl.Qtty, TrTerimaBarangDtl.Harga, [Qtty]*[Harga] AS Jumlah, Barang.Nama AS NamaBarang, Supplier.Nama AS NamaSupplier " & _
- "FROM ((TrTerimaBarangMst INNER JOIN TrTerimaBarangDtl ON TrTerimaBarangMst.NoBukti = TrTerimaBarangDtl.NoBukti) INNER JOIN Barang ON TrTerimaBarangDtl.Kode = Barang.Kode) INNER JOIN Supplier ON TrTerimaBarangMst.KdSupplier = Supplier.Kode " & _
- "WHERE tgl BETWEEN ? and ? " &
- "ORDER BY TrTerimaBarangMst.NoBukti", conn)
- cmdSelect.parameters.addWithvalue ("?a", TglFROM.Value.Date)
- cmdSelect.parameters.addWithvalue ("?b", TglEnd.Value.Date.AddDays(1))
- da = New OleDbDataAdapter (cmdSelect)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement