 | Artikel Visual Basic |
| Basis Data - Database |
| Pemrograman Grafis |
| E-Book Tutorial |
| Video Kursus - Tutorial |
| Software - Open Source code |
| W E B Programming |
| Windows System |
| XBasicFramework |
| Berbagi Pengalaman |
| Quick Basic |
|
Software gratis! Open Source
Code
|
|
|
|
|
MENU>Basis Data - Database>Microsoft SQL Server>Tabel Cursor
|
Update Data dengan Table Cursor
SQL Server |
|
Mengupdate data dapat dilakukan di sisi server langsung
dengan Script TSQL di SQL Server melalui Stored Procedure maupun dengan menggunakan
Objek ActiveX Data Objek (ADO) melalui objek recordset.
Pada terapann
aplikasi nya mungkin saja anda ingin membuat stored procedure untuk menghitung ulang
jumlah barang yang ada pada Table Stok_Barang dan menjumlahkan dengan mutasi pada
Table Barang Masuk atau Pembelian .
Anggap saja kita punya tabel barang seperti gambar di bawah ini:
Sedangkan kita juga mencatat barang masuk pada tabel Barang_Masuk seperti gambar
di bawah ini:
Dengan menggunakan script TSQL kita dapat mengupdate Stok_Barang dari tabel Barang_Masuk.
Scriptnya adalah seperti gambr di bawah ini:
DECLARE @kdbrg_masuk char(10)
DECLARE @qty_masuk float
DECLARE TC CURSOR FOR
SELECT kd_brg,qty from barang_masuk
OPEN TC
FETCH FROM TC INTO @kdbrg_masuk,@qty_masuk
WHILE @@FETCH_STATUS = 0
BEGIN
UPDATE STOK_BARANG SET qty_in = @qty_masuk,
qty_akhir = qty_akhir + @qty_masuk
WHERE kd_brg = @kdbrg_masuk
FETCH NEXT FROM TC INTO @kdbrg_masuk,@qty_masuk
END
CLOSE TC
DEALLOCATE TC
Anda dapat menjalankan script diatas langsung di SQL
Query Analizer atau menjadikannya sebagai Stored Procedure (Prosedur Tersimpan)
lalu memanggilnya melalui SQL Query Analizer atau dengan Visual Basic.
Setelah anda jalankan maka hasilnya akan terlihat seperti gambar di bawah ini:
Setelah kita lihat hasilnya pada gambar di atas qty_in masing-masing jadi 2 ini
disebabkan oleh script ini: UPDATE STOK_BARANG
SET qty_in = @qty_masuk
Sedangkan qty_akhir masing-masing ditambahkan dengan angka 2. Ini disebabkan karena
script ini: qty_akhir = qty_akhir + @qty_masuk
Untuk melihat penjelasan detail dari masing-masing
script nya anda bisa membaca E-Book saya yang berjudul
TRIK N-Tier Programming Visual Basic 6.0
Untuk melihat penggunaanya pada aplikasi program POS (Point Of Sales) anda bisa
lihat pada software buatan saya
SOFTWARE POS (POINT OF SALES) - PROGRAM KASIR full version |
|