Minggu, 23 Maret 2014
Rabu, 05 Maret 2014
Update stock barang dengan VB.Net
10.03
No comments
Bagi agan yang membutuhkan codingan untuk update stock barang dengan menggunakan VB.Net,ini codingannya :
Public Sub simpan2()
conn.Open()
Dim a As Integer
Try
For a = 0 To DataGridView1.Rows.Count - 1
Dim dab = New OleDbDataAdapter("INSERT INTO detailpenjualan (dnpenjualan,kode_barang,nama_barang,jumlah,harga_barang,total_harga) VALUES('" & DataGridView1.Rows(a).Cells(0).Value & "','" & DataGridView1.Rows(a).Cells(1).Value & "','" & DataGridView1.Rows(a).Cells(2).Value & "','" & DataGridView1.Rows(a).Cells(3).Value & "','" & DataGridView1.Rows(a).Cells(4).Value & "','" & DataGridView1.Rows(a).Cells(5).Value & "')", conn)
Dim dataset As New DataSet
dab.Fill(dataset, "detailpenjualan")
Dim dab2 = New OleDbDataAdapter("update databarang set stok_barang = stok_barang - '" & DataGridView1.Rows(a).Cells(3).Value & "' WHERE kode_barang = '" & DataGridView1.Rows(a).Cells(1).Value & "'", conn)
Dim data As New DataSet
dab2.Fill(data, "databarang")
Next
MsgBox("Datagrid berhasil disimpan")
Catch ex As Exception
MsgBox("Data Berhasil Diapprove")
End Try
conn.Close()
End Sub
Private Sub cmdsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsave.Click
simpan2()
Clear()
Clear2()
generate()
cmdadd.Enabled = False
cmdsave.Enabled = False
cmdedit.Enabled = False
cmddelete.Enabled = False
End Sub
Public Sub simpan2()
conn.Open()
Dim a As Integer
Try
For a = 0 To DataGridView1.Rows.Count - 1
Dim dab = New OleDbDataAdapter("INSERT INTO detailpenjualan (dnpenjualan,kode_barang,nama_barang,jumlah,harga_barang,total_harga) VALUES('" & DataGridView1.Rows(a).Cells(0).Value & "','" & DataGridView1.Rows(a).Cells(1).Value & "','" & DataGridView1.Rows(a).Cells(2).Value & "','" & DataGridView1.Rows(a).Cells(3).Value & "','" & DataGridView1.Rows(a).Cells(4).Value & "','" & DataGridView1.Rows(a).Cells(5).Value & "')", conn)
Dim dataset As New DataSet
dab.Fill(dataset, "detailpenjualan")
Dim dab2 = New OleDbDataAdapter("update databarang set stok_barang = stok_barang - '" & DataGridView1.Rows(a).Cells(3).Value & "' WHERE kode_barang = '" & DataGridView1.Rows(a).Cells(1).Value & "'", conn)
Dim data As New DataSet
dab2.Fill(data, "databarang")
Next
MsgBox("Datagrid berhasil disimpan")
Catch ex As Exception
MsgBox("Data Berhasil Diapprove")
End Try
conn.Close()
End Sub
Private Sub cmdsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsave.Click
simpan2()
Clear()
Clear2()
generate()
cmdadd.Enabled = False
cmdsave.Enabled = False
cmdedit.Enabled = False
cmddelete.Enabled = False
End Sub
Rabu, 18 Desember 2013
Tugas SQL 1 DIII Manajemen Infomatika STIKOM Surabaya
12.01
No comments
Nama
Kelompok
|
||
1
|
Gilang
Alfian Rianto
|
09.39010.0065
|
2
|
Agung
Kurniawan
|
10.39010.0022
|
3
|
Andi
Setiawan
|
10.39010.0019
|
4
|
Jenny
Ediarty
|
11.39010.0002
|
5
|
Puji
Kurniawan
|
11.39010.0019
|
6
|
Priyatama
Krisyudha A
|
11.39010.0022
|
7
|
Nabilla
S.P
|
11.39010.0036
|
Nama Dosen : Titik Lusiani,OCP
Alamat : http://blog.stikom.edu/lusiani/2013/12/12/post-categories-pengumpulan-tugas-rangkuman-mk-sql-i-semester-13-1/#comments
Tugas Akhir Mata Kuliah
INDEX & SYNONIM
·
Index
Sebuah objek sistem database
yang dapat mempercepat proses pencarian (query) data
·
Berikut ini
adalah beberapa alasan kenapa index diperlukan:
1.
Kolom sering
digunakan dalam klausa WHERE atau dalam kondisi join
2.
Kolom berisi
nilai dengan jangkauan yang luas
3.
Kolom berisi
banyak nilai null
4.
Beberapa kolom
sering digunakan dalam klausa WHERE atau dalam kondisi join
5.
Tabel berukuran
besar dan sebagian besar query menampilkan data kurang dari 2-4%.
·
Perlu kita
perhatikan bahwa terdapat beberapa kondisi dimana tidak diperlukan kehadiran
index, yaitu ketika:
1.
Table kecil
2.
Kolom tidak sering digunakan sebagai kondisi dalam query
3.
Kebanyakan query menampilkan data lebih dari 2-4% dari seluruh data
4.
Table sering di-update
·
INDEX dapat dibuat dengan 2 cara yaitu :
1.
Secara Otomatis
Index secara otomatis dibuat ketika kita mendefinisikan sebuah primary key atau UNIQUE Constraint dalam mendefinisikan sebuah tabel
Index secara otomatis dibuat ketika kita mendefinisikan sebuah primary key atau UNIQUE Constraint dalam mendefinisikan sebuah tabel
2.
Secara Manual
User
dapat membuat index yang sama pada kolom untuk meningkatkan kecepatan akses
data
·
Tipe – tipe
INDEX
1.
Unique
Memastikan kalau value dari kolom harus bersifat unique dan dibuat secara otomatis
Memastikan kalau value dari kolom harus bersifat unique dan dibuat secara otomatis
2.
Non-Unique
Memastikan cara tercepat untuk mencari data dan dibuat secara manual oleh user
Memastikan cara tercepat untuk mencari data dan dibuat secara manual oleh user
3.
Single Column
Hanya terdapat satu kolom dalam satu index
Hanya terdapat satu kolom dalam satu index
4.
Concatenated atau composite
Dapat terdiri hingga 16 kolom dalam satu index
Dapat terdiri hingga 16 kolom dalam satu index
·
Sintaks untuk
membuat Indeks:
CREATE INDEX index_name
ON table_name (column_name1,column_name2... )
ON table_name (column_name1,column_name2... )
Sabtu, 19 Oktober 2013
Tugas Rangkuman ke 1 Structure Query Language I
00.59
No comments
Structure Query Language I
Mata Kuliah : Structure Query
Language I
Dosen : Titik Lusiani, M.Kom,OCP
Alamat blog dosen : http://blog.stikom.edu/lusiani
1. Tugas
Employee_ID
|
Nama
|
Salary
|
201
|
Joko
|
20000
|
202
|
Toyib
|
4000
|
203
|
Judi
|
500
|
·
Contoh
subquery :
SELECT Salary From Employee Where nim =” 201”;
v
Penjelasan
:
Menampilkan
salary dari tabel employee dimana nim yang di cari “201”
·
Contoh
Single Row :
Function
|
Hasil
|
Deskripsi
|
Lower (‘ MANAJEMEN
INFORMATIKA’)
|
manajemen informatika
|
Mengkonversi nilai-nilai karakter
huruf yang besar merubah ke karakter huruf kecil.
|
Upper (‘manajemen informatika’)
|
MANAJEMEN INFORMATIKA
|
Mengkonversi nilai-nilai karakter
huruf menjadi huruf besar
|
Initcap(‘MI Stikom’)
|
Mi Stikom
|
Mengkonversi nilai-nilai alpha
karakter huruf menjadi uppercase untuk huruf pertama dari tiap kata,seua
huruf-huruf lain lowercase.
|
Concat (‘MI’,’DIII’)
|
MIDIII
|
Menggabungkan nilai karakter pertama
ke karakter kedua :sama dengan operator penggabungan
|
Substr (‘MI’,1,5)
|
MI
|
Menghasilkan karakter-karakter
tertentu dari nilai karakter dimulai pada posisi karakter ke awal,akhir
panjang karakter jika awal adalah negatif,dihitung mulai dari akhir nilai
karakter
|
Length (‘MIDIII’)
|
6
|
Mengembalikan jumlah karakter dalam
ekspresi
|
Instr (‘MISTIKOM’,’S’)
|
3
|
Mengembalikan posisi numerik dari
suatu rangkaian penamaan.
|
LPAD (salary,5,’*’)
|
***20
|
Mengisi nilai karakter perataan kanan
ke suatu lebar ke suatu lebar tota
|
RPAD(salary,5,’*’)
|
20***
|
Mengisi nilai karakter perataan kanan
ke suatu lebar ke suatu lebar tota
|
Replace (‘Stikom and
Siis’,’S’,’BO’)
|
Botikom and Boiis
|
Mencari suatu ekspresi teks untuk
suatu rangkaian karakter dan,jika ditemukan,digantikan dengan rangkaian yang
telah ditentukan
|
Trim(‘M’ From ‘MI’)
|
I
|
Memngkinkan untuk memotong karakter
|
·
Contoh
Multiple-row
SELECT nim,min(nilai)
FROM MHS
GROUP BY nim
HAVING min (nilai) >
(SELECT min(nilai)
FROM MHS
WHERE nim=3.5);
·
Penjelasan
:
Dalam contoh di atas menggunakan
group function pada nilai dengan SELECT pada nim
Karena adanya nim,maka kita harus
melakukan pengelompokan berdasarkan nim pada GROUP BY.Pada HAVING dengan
komposisi kondisi yang sama seperti WHERE.
RESUME
Pertemuan 1 4-9-2013
“
SQL “
·
Database
: sekumpulan data yang disimpan dengan beberapa cara pengorganisasian
·
Tabel : file terstruktur yang dapat menyimpan
data dengan tipe khusus
·
1
database digunakan banyak user
·
Constraint
: aturan yang mengikat tabel dan kolom
·
Type
:
1. Not null : harus ada isinya
2. Unique : berbeda
3. Primary Key : harus ada isinya(not
null & unique)
4. Foreign Key : mengacu ke tabel
5. Check : pengecheckan
·
Constraint
: kenapa harus diberi nama => agar bisa di update
·
ERD
(Entity Relationship Diagram) =>hubungan antar diagram > file harus
terhubung
·
CDM
(Concept Data Model)
·
PDM
(Phycal Data Model)
·
Projection
=kolom
·
Selection
= baris : harus ada kondisi (where)
·
Aliases(AS)
: untuk memberi nama judul
·
Concatenation
Operator : penggabungan
·
Dinstinct
= menampilkan tidak kembar
·
SQL
dikelompokan :
*DDL (Data Definition Language)
Bahasa dalam DBMS yang digunakan untuk membuat/mendefinisikan
objek-objek di dalam database.
*DML(Data Manipulation Language)
Merupaka kelompok perintah berfungsi untuk manipulasi data dalam basis
data.
*Perinta-perintah :
select,insert,delete,update
*Join : lebih dari Satu
·
Perintah
Projection
Select (primary key yang ada di
tabel) from (nama tabel)
·
Perintah
Selection
Select nim,kdmk
From m.mhs,k.krs,a.mk
Where m.nim,k.nim and
k.kmk,a.kdmk
Pertemuan 2 11/9/2013
“
Sorting Data”
·
Kapan
data di sorting
Memudahkan mencari data/filter
·
Whalen:
menampilkan huruf yang sama kenapa petik satu,
w Between…..and….=> angka
terbesar ke kecil
w Like = (=) => menampilkan
kondisi => yang dikenal (%),(-)
Syntax Like :huruf yang dicari
(-) mewakili banyak karakter
·
Is
null = kosong
·
Logical
Condition
1.
And
: kedua-duanya benar
2.
Or
: salah satu benar
3.
Not
L salah semua
·
ORDER
BY : Mengurutkan
Pertemuan 3 18/9/2013
“
Using Single-Row Function”
·
Single
row function :
Bisa melakukan beberapa perintah
antara lain karakter,date,etc
·
Kapan
menggunakan manipulation Functions.
Ingin mencari data menggunakan
lower menggunakan petik satu
·
Trim
(dipotong)
·
Concat
(menggabungkan)
·
Number
function :
Round : pembulatan ke atas
Trunc : pembulatan ke bawah
Mod : sisa pembagian
·
From
Dual L table yang ada di oracle / bawaan
·
Date
Function
Mengoperasikan tipenya data
·
Month-
between : antara bulan berapa
·
Sysdate
: function yang sudah ada di oracle,tanggal sekarang atau tanggal kembali
·
Perintah
Function Oracle tidak harus huruf besar
Attributes : harus huruf kecil
·
Concat
: menggabungkan karakter
·
Initcap,lower,upper
:mengubah karakter awal suatu kata
·
Lower
: huruf kecil
·
Upper
:huruf capital
·
SubStr
: mengambil huruf pertama sampai keberapa
·
Length
: menghitung huruf
·
Instr
: menghitung huruf terletak pada huruf keberapa
·
LPAD
: nilaiada bintang sebelah kiri dengan jumlah yang diinginkan
·
Replace
: menambah huruf / kata
·
Trim
: menghapus huruf
Pertemuan 4 25/9/2013
“
General Function”
·
ANSAL
=> header
·
NVL
Fucntion : fungsi default,nilai kosong
diset nilai tertentu
·
Commission_pct
: kolom
·
NullIf:
ketika data dibandingkan sama diisi kosong,data berbeda di ambil data pertama
·
Coalesce
: membandingkan
“Conditional Expressions”
·
Joins
: mengambil dari tabel berbeda (min 2 tabel)
·
Menyimpan
: user.tabel.colums
·
Natural
join : syarat : - tipe data sama
-kolom sama
·
Join_in
: tipe data sama,nama berbeda
·
Join_using
: nama sama,tipe sama
·
Left\right\full
outer join => salah satu kosong
Pertemuan 5 2/10/2013
“
Group Function”
·
AVG
: mencari nilai rata-rata
·
Count
:menjumlahkan baris
·
Stddev
: menghitung nilai standar
·
Variance
: menghitung nilai variance
·
Having
: prinsip sama dengan where
- Fungsi karakter
Berikut ini adalah fungsi yang
termasuk dalam kategori ini.
CHR
LTRIM
InStr
ASCII
RTRIM
INSTRB
CONCAT
TRIM
LENGTH
INITCAP
REPLACE
LENGTH
UPPER
substr
LPAD
SUBSTRB
RPAD
Pertemuan 6 9/10/2013
“
Subqueries”
·
Kapan
digunakans aat mencari sesuatu yang tidak diketahui kondisinya
(SELECT IPK
FROM MHS
WHERE nim=”….”)
·
Didalam
subquery ada subquery = boleh => unlimited
·
Tipe
Subquery
1. Single
Row : Fungsi
Single-baris mengembalikan baris hasil tunggal untuk setiap baris dari sebuah
tabel tanya atau melihat. Fungsi ini dapat muncul dalam daftar pilih, klausa
WHERE, MULAI DENGAN dan klausa CONNECT BY, HAVING dan klausa.
2.
Multiple Row :
Langganan:
Postingan (Atom)





