Advertisement
Guest User

Untitled

a guest
Jan 25th, 2017
122
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SQL 2.82 KB | None | 0 0
  1. /* -- START: PEMBUATAN TABEL -- */
  2. CREATE TABLE customer (
  3.    kd_customer CHAR(10) CONSTRAINT pk_kdpelanggan PRIMARY KEY,
  4.    nm_customer VARCHAR(25),
  5.    alamat VARCHAR(50),
  6.    telepon VARCHAR(15),
  7.    contact VARCHAR(50),
  8.    kota VARCHAR(50)
  9.    );
  10.  
  11. DROP TABLE customer;
  12. /* -- END: PEMBUATAN TABEL -- */
  13.  
  14. /* -- START: PENGINPUTAN DATA -- */
  15. INSERT INTO customer ( kd_customer, nm_customer, alamat, telepon, contact, kota ) VALUES
  16.    ( 'A0001', 'Yadi Purdianto', 'Jl. Cicadas No. 34 Bandung', '082130996113', 'yadipurdianto@gmail.com', 'Bandung' ),
  17.    ( 'A0002', 'Vania Putrika', 'Jl. Garuda No. 71 Bandung', '08821456382', 'vnaiaputrika@gmail.com', 'Bandung' ),
  18.    ( 'A0003', 'Xena Devi Zerlinda', 'Jl. Garuda No. 71 Bandung', '085720126852', 'devi.xena@gmail.com', 'Bandung' ),
  19.    ( 'A0004', 'Nanang Suptriatna', 'Jl. Leuwigajah No 12A Cimahi', '088015254203', 'nanangsanud21@gmail.com', 'Cimahi' ),
  20.    ( 'A0005', 'Saripudin', 'Jl. Babakan Hilir No. 3 Cianjur', '089621354683', 'sarip@gmail.com', 'Cianjur' ),
  21.    ( 'A0006', 'Komarudin Saepuloh', 'Komp. Permata Indah Blok A3 Cimahi', '0838216546873', 'komar.sae@gmail.com', 'Cimahi' );
  22.  
  23. SELECT * FROM customer;
  24. /* -- END: PENGINPUTAN DATA -- */
  25.  
  26. /* -- START: STORE PROCEDURE DENGAN LOOPING -- */
  27. SET QUOTED_IDENTIFIER OFF
  28. GO
  29. SET ANSI_NULLS OFF
  30. GO
  31.  
  32. CREATE PROCEDURE sp_NoPelanggan AS
  33.    DECLARE @vKd_customer CHAR(5)
  34.    DECLARE @vNm_customer VARCHAR(25)
  35.    DECLARE @vAlamat VARCHAR(50)
  36.    DECLARE @vTelepon VARCHAR(15)
  37.    DECLARE @vContact VARCHAR(50)
  38.    DECLARE @vKota VARCHAR(50)
  39.    DECLARE @vNoUrut INT
  40.    
  41.    DECLARE @TempPelanggan TABLE (
  42.       NoUrut INT,
  43.       kd_customer CHAR(10) DEFAULT NULL,
  44.       nm_customer VARCHAR(25) DEFAULT NULL,
  45.       alamat VARCHAR(50) DEFAULT NULL,
  46.       telepon VARCHAR(15) DEFAULT NULL,
  47.       contact VARCHAR(50) DEFAULT NULL,
  48.       kota VARCHAR(50) DEFAULT NULL )
  49.    
  50.    DECLARE cPelanggan CURSOR FOR SELECT kd_customer, nm_customer, alamat, telepon, contact, kota FROM customer
  51.    OPEN cPelanggan
  52.    FETCH NEXT FROM cPelanggan INTO
  53.    @vKd_customer, @vNm_customer, @vAlamat, @vTelepon, @vContact, @vKota
  54.    SET @vNoUrut = 0 WHILE (@@FETCH_STATUS = 0)
  55.       BEGIN
  56.          SET @vNoUrut = @vNoUrut + 1
  57.          INSERT INTO @TempPelanggan ( NoUrut, kd_customer, nm_customer, alamat, telepon, contact, kota ) VALUES
  58.             ( @vNoUrut, @vKd_customer, @vNm_customer, @vAlamat, @vTelepon, @vContact, @vKota )
  59.          FETCH NEXT FROM cPelanggan INTO
  60.             @vKd_customer, @vNm_customer, @vAlamat, @vTelepon, @vContact, @vKota
  61.       END
  62.       CLOSE cPelanggan
  63.       DEALLOCATE cPelanggan
  64.       SELECT NoUrut, kd_customer, nm_customer, alamat, telepon, contact, kota FROM @TempPelanggan
  65.    GO
  66.    SET QUOTED_IDENTIFIER OFF
  67.    GO
  68.    SET ANSI_NULLS ON
  69.    GO
  70.  
  71. EXECUTE sp_NoPelanggan;
  72. /* -- END: STORE PROCEDURE DENGAN LOOPING -- */
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement