Script Menghapus Data Sekaligus dengan ASP

Program ini dibuat  mendadak,  sehubungan dengan pertanyaan dari salah seorang anggota milis master.web.id mengenai cara membuat script untuk menghapus beberapa data sekaligus.

Tampilannya kira-kira seperti ini. Anda dapat menghapus lebih dari 1 item atau beberapa item sekaligus.

--	No.Urut	Kode Barang	Nama Barang
	1	AM120	Ampethamin
	2	GG560	Ganja
	3	H560	Heroin
	4	BK123	Pil BK
	5	MGD091	Magadon
	6	SHB145	Shabu-shabu
	7	IN450	Inex
	8	MY780	Mariyuana
	9	PK810	Pil Koplo
	10	GG560	Gele
	11	EKX450	Ekstacy

Source program ini terdiri dari 2 file yaitu

1.      view.asp

2.      barangharam.mdb

Vew.asp merupakan scirpt dan barangharam.mdb merupakan file dari database access 97.

Script ini akan menampilkan data yang didapat dari file mdb dan kemudian akan menghapus beberapa item data tergantung dari permintaan user. User dapat menghapusnya dengan men’check’ kotak pilihan yang terssedia.

<%

' Iseng-iseng...bantuin temen sesama anggota milis di master.web.id

' bikin cara hapus data sekaligus

' oleh Kukuh TW

' http://www.kukuhtw.com

' kukuhw@kukuhtw.com

'

Seperti biasa, kode dibawah ini berfungsi untuk membuka koneksi dengan database access 97

'DSNless connection to Access Database

Set Conn=Server.Createobject("ADODB.Connection")

DSNtemp = "DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp = DSNtemp & "DBQ=" & Server.Mappath("barangharam.mdb") & "; "

Conn.Open DSNtemp

strMode        = Request("mode")

strPrgName     = Request.ServerVariables("SCRIPT_NAME")

Select Case strMode

   case "pilih"

     pilih()

   

            case else

            tampil()

                       

end select        %>

Sub Tampl() adalah routine untuk menampilkan semua barang yang ada dalam database. Input type=hidden dengan mode yang memiliki value=”pilih” berfungsi untuk mengganti halaman menampilkan data berpindah ke halaman menghapus item barang

<% sub tampil() %>

<form action="<%=strPrgName%>" method="POST">

<input type="hidden" name="mode" value="pilih"> 

<table border=1>

  <tr>

    <td>--</td>

    <td>No.Urut</td>

    <td>Kode Barang</td>

    <td>Nama Barang</td>

  </tr>

  <%

                          sql = "select * from Table_Barang_Haram"

        set rs = Conn.Execute(sql)

           

            do while not rs.eof

            NoUrut=NoUrut+1

            Var_ID=RS("ID")

            Var_Kode=Rs("KodeBarang")

            Var_Barang=RS("namabarang")

            %>     

            <tr>

   <Td>

Gunakan Input type=”checkbox” dan nama variabel “pilihan_n”  dan value=”nama_barangnya” untuk mendeteksi, item-item apa saja yang diberi tanda check oleh user.

   <input type="checkbox" name="pilihan_<%=NoUrut%>" value="<%=var_Barang%>" >

   <input type=hidden name="Delete_<%=var_ID%>" value=<%=var_Barang%>>

  

   </td>

            <Td><%=NoUrut%></td>

            <Td><%=Var_kode%></td>

            <Td><%=Var_Barang%></td>

<% rs.movenext

Loop

%>

    </tr>

   </table><br>  

   <input type="hidden" name="NoUrut" value=<%=NoUrut%>>

   <input type="submit" value="    Hapus !   ">

   </form>        

<% end sub %>

Sub Pilih berfungsi untuk menampilkan halaman yang telah dipilih oleh user agar barang yang diberi tanda ‘check’ oleh user dapat dihapus

<% sub pilih()

AngkaTerakhir = request("NoUrut")

response.write AngkaTerakhir

gunakan command For…Next untuk menghapus item barang

For K=1 to AngkaTerakhir

IDHAPUS = request.form("Pilihan_" & K)

              sqlhapus = "Delete * FROM Table_Barang_Haram " _

     & "WHERE NamaBarang = '" & IDHAPUS & "'"

    

     set rs2 = Conn.execute(sqlhapus)

     Response.write sqlhapus   

     Response.write "<br>"

Next

     

%>

<p>

<a href="view.asp">Kembali ke halaman depan</a>

</font>

<%

conn.close

end sub %>

Program Selesai !!!..Terima Kasih banyak untuk Master.web.id !!

source

By Kukuh TW

http://www.kukuhtw.com

mail:kukutw@kukuhtw.com