1.
Membuat form input simpan dengan makul.aspx
|
atau
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="makul.aspx.vb"
Inherits="makul" %>
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<table>
<tr>
<td>Kode</td>
<td>
<asp:TextBox ID="tbkdmk" runat="server"></asp:TextBox></td>
</tr>
<tr>
<td>Nama Makul</td>
<td>
<asp:TextBox ID="tbnmmk" runat="server"></asp:TextBox></td>
</tr>
<tr>
<td>Sks</td>
<td>
<asp:TextBox ID="tbsks" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
Prodi<br />
</td>
<td>
<asp:DropDownList ID="TbProdi" runat="server">
<asp:ListItem Value="MI-D3">Manajeman
Informatika D3</asp:ListItem>
<asp:ListItem Value="KA-D3">Komputer
akuntasi D3</asp:ListItem>
<asp:ListItem Value="TI-D3">Teknik
Informatika D3</asp:ListItem>
<asp:ListItem Value="SI-S1">Sistem
Informasi S1</asp:ListItem>
<asp:ListItem Value="TI-S1">Teknik
Informatika S1</asp:ListItem>
</asp:DropDownList>
</td>
</tr>
<tr>
<td> </td>
<td>
<asp:Button ID="btSimpan" runat="server" Text="Klik Simpan"
/>
<a href="Listmkl.aspx">Kembali Ke List</a></td>
</tr>
</table>
<asp:Label ID="lbPesan" runat="server" Text=""></asp:Label>
</div>
<p> </p>
</form>
</body>
</html>
|
|
|
Di makul.aspx vb dengan cara klik
2 kali pada button klik simpan
Imports System.Data.SqlClient
Partial Class makul
Inherits
System.Web.UI.Page
'deklarasikan objek koneksi'
Dim
conn As SqlConnection = Nothing
Dim
constr As String = ""
Protected
Sub btSimpan_Click(sender As Object, e As EventArgs) Handles btSimpan.Click
'deklarasikan objek koneksi'
Dim
conn As SqlConnection = Nothing
Dim
constr As String = ""
Try
'membuat koneksi'
constr = ConfigurationManager.ConnectionStrings("SQLSvrConnection").ConnectionString
conn = New SqlConnection(constr)
'membuka koneksi'
conn.Open()
'mendeklrarasikan objek commend'
Dim
cmd As SqlCommand = Nothing
Dim
sql As String = "INSERT INTO
matakuliah (kdmk,nmmk,sks,prodi) VALUES ('" & tbkdmk.Text & "','" & tbnmmk.Text & "','" & tbsks.Text & "','" & TbProdi.Text & "')"
'membuat objek command'
cmd = New SqlCommand()
cmd.Connection = conn
cmd.CommandText = sql
'mengeksekusi perintah sql'
Dim
jmlrecord As Integer = 0
jmlrecord = cmd.ExecuteNonQuery
'menampilkan hasil eksekusi'
If
jmlrecord > 0 Then
lbPesan.Text = "InputBox data
mahasiswa sukses bro"
Else
lbPesan.Text = "InputBox data
mahasiswa gagal"
End
If
Catch
ex As SqlException
lbPesan.Text = " ada kesalahan
entry data pekok baleni meneh ya!! proses input dibatalkan sek (err: " & ex.ErrorCode & ")"
Exit Sub
End
Try
End
Sub
Protected
Sub page_load(sender As Object, e As EventArgs) Handles Me.Load
Try
'membuat koneksi'
constr = ConfigurationManager.ConnectionStrings("SQLSvrConnection").ConnectionString
conn = New SqlConnection(constr)
'membuka koneksi'
conn.Open()
Catch
ex As Exception
lbPesan.Text = "ada kesalahan
koneksi"
End
Try
End
Sub
Protected
Sub Page_Unload(sender As Object, e As EventArgs) Handles Me.Unload
Try
'menutup koneksi'
conn.Close()
Catch
ex As Exception
lbPesan.Text = "ada kesalahan
koneksi"
End
Try
End
Sub
End Class
Kemudian bisa langsung dicoba
mengunkan browser
2.
Membuat
form list makul simpan dengan nama listmkl.aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="listmkl.aspx.vb" Inherits="listmkl" %>
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
Prodi <asp:DropDownList ID="tbprodi" runat="server">
<asp:ListItem Value="MI-D3">Manajeman
Informatika D3</asp:ListItem>
<asp:ListItem Value="KA-D3">Komputer
akuntasi D3</asp:ListItem>
<asp:ListItem Value="TI-D3">Teknik
Informatika D3</asp:ListItem>
<asp:ListItem Value="SI-S1">Sistem
Informasi S1</asp:ListItem>
<asp:ListItem Value="TI-S1">Teknik
Informatika S1</asp:ListItem>
</asp:DropDownList>
<asp:Button ID="bttampil" runat="server" Text="View" />
</div>
<asp:Label ID="lbData" runat="server" Text=""></asp:Label>
</form>
<div id="msg" runat="server"></div>
<p><a href="makul.aspx">Tambah Data Makul</a></p>
</body>
</html>
Kemudan klik 2 kali view nanti
akan menuju di listmkl.aspx.vb
Imports System.Data.SqlClient
Partial Class listmkl
Inherits
System.Web.UI.Page
'deklarasikan objek koneksi'
Dim
conn As SqlConnection = Nothing
Dim
constr As String = ""
Protected
Sub bttampil_Click(sender As Object, e As EventArgs) Handles bttampil.Click
Try
'membuat koneksi'
constr = ConfigurationManager.ConnectionStrings("SQLSvrConnection").ConnectionString
conn = New SqlConnection(constr)
'membuka koneksi'
conn.Open()
'mendeklrarasikan objek commend'
Dim
cmd As SqlCommand = Nothing
Dim
sql As String = "SELECT
kdmk,nmmk,sks,prodi from matakuliah WHERE prodi='" &
tbprodi.SelectedValue & "'
"
'membuat objek command'
cmd = New SqlCommand()
cmd.Connection = conn
cmd.CommandText = sql
'mengeksekusi perintah sql'
Dim
reader As SqlDataReader = Nothing
reader = cmd.ExecuteReader
'menampilkan hasil eksekusi'
If
reader.HasRows Then
Dim
strTabel As String = "<table border=1>"
strTabel = strTabel & "<tr>"
strTabel = strTabel & "<th>Kode
Makul</th>"
strTabel = strTabel & "<th>Nama
Makul</th>"
strTabel = strTabel & "<th>Sks</th>"
strTabel = strTabel & "<th>Prodi</th>"
strTabel = strTabel & "<th
colspan='2'>Aksi</th>"
strTabel = strTabel & "</tr>"
Do While reader.Read
strTabel = strTabel &
"<tr>"
strTabel = strTabel &
"<td>" & reader.GetString(0)
& "</td>"
strTabel = strTabel &
"<td>" & reader.GetString(1)
& "</td>"
strTabel = strTabel &
"<td>" &
reader.GetInt32(2).ToString & "</td>"
strTabel = strTabel &
"<td>" & reader.GetString(3)
& "</td>"
strTabel = strTabel &
"<td><a
href=Updatemk.aspx?kdmk="
& reader.GetString(0) & ">Update</a></td>"
strTabel = strTabel &
"<td><a
href=Deletemk.aspx?kdmk="
& reader.GetString(0) & ">Hapus</a></td>"
strTabel = strTabel &
"</tr>"
Loop
strTabel = strTabel & "</table>"
lbData.Text = strTabel
Else
lbData.Text = "Datane Durung ono
Bro"
End
If
Catch
ex As SqlException
lbData.Text = " ada kesalahan
entry data (err: " & ex.Message & ")"
Exit Sub
End
Try
End
Sub
Protected
Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If
Request.Params("msg") <> "" Then
msg.InnerHtml = Request.Params("msg")
End
If
Try
'membuat koneksi'
constr = ConfigurationManager.ConnectionStrings("SQLSvrConnection").ConnectionString
conn = New SqlConnection(constr)
'membuka koneksi'
conn.Open()
Catch
ex As Exception
lbData.Text = "ada kesalahan
koneksi"
End
Try
End
Sub
Protected
Sub Page_Unload(sender As Object, e As EventArgs) Handles Me.Unload
Try
'menutup koneksi'
conn.Close()
Catch
ex As Exception
lbData.Text = "ada kesalahan
koneksi"
End
Try
End
Sub
End Class
|
|
|
3.
Kemudia di list makul akan ada juga update dan
delete di aksinya seperti berikut
Tambahkan koding
strTabel = strTabel & "<td><a
href=Updatemk.aspx?kdmk=" &
reader.GetString(0) & ">Update</a></td>"
(untuk update)
strTabel = strTabel & "<td><a href=Deletemk.aspx?kdmk=" & reader.GetString(0) & ">Hapus</a></td>" (untuk delete)
|
|
|
4.
Kemudian
untuk aksi di update kita harus membuat form terlebih dahulu buat form
updatemk.aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="updatemk.aspx.vb" Inherits="updatemk" %>
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<table>
<tr>
<td>kode mk</td>
<td>
<asp:TextBox ID="tbkdmk" runat="server" enabled="false"></asp:TextBox></td>
</tr>
<tr>
<td>Nama mk</td>
<td>
<asp:TextBox ID="tbnmmk" runat="server"></asp:TextBox></td>
</tr>
<tr>
<td>Sks</td>
<td>
<asp:TextBox ID="tbsks" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
Prodi<br />
</td>
<td>
<asp:DropDownList ID="tbprodi" runat="server">
<asp:ListItem Value="MI-D3">Manajeman
Informatika D3</asp:ListItem>
<asp:ListItem Value="KA-D3">Komputer akuntasi D3</asp:ListItem>
<asp:ListItem Value="TI-D3">Teknik
Informatika D3</asp:ListItem>
<asp:ListItem Value="SI-S1">Sistem
Informasi S1</asp:ListItem>
<asp:ListItem Value="TI-S1">Teknik
Informatika S1</asp:ListItem>
</asp:DropDownList>
<br />
</td>
</tr>
<tr>
<td> </td>
<td>
<asp:Button ID="btedit" runat="server" Text="Update" />
<asp:Button ID="btTidak" runat="server" Text="Batal" />
<br />
<a href="listmkl.aspx">Kembali Ke List</a><br />
</td>
</tr>
</table>
<asp:Label ID="lbPesan" runat="server" Text=""></asp:Label>
</div>
</form>
</body>
</html>
Nah
di form kode mk seperti biasa di form tersebut di false jadi di form tersebut
tidak bisa diedit karna di situ sbg primerykey kunci yg peting
Bisa dirumh dengan klik 2 kali
textbox nya kemudian lakukan seperti gambar dibawah
 |
|
|
Lanjut ke update kemudian klik 2
kali update nanti akan masuk ke updatemk.aspx.vb
Imports
System.Data.SqlClient
Partial Class updatemk
Inherits System.Web.UI.Page
Dim conn As SqlConnection = Nothing
Dim constr As String = ConfigurationManager.ConnectionStrings("SQLSvrConnection").ConnectionString
Protected Sub btedit_Click(sender As Object, e As EventArgs) Handles btedit.Click
'deklarasikan objek koneksi'
Dim conn As SqlConnection = Nothing
Dim constr As String = ""
Try
'membuat koneksi'
constr
= ConfigurationManager.ConnectionStrings("SQLSvrConnection").ConnectionString
conn =
New SqlConnection(constr)
'membuka koneksi'
conn.Open()
'mendeklrarasikan objek commend'
Dim cmd As SqlCommand = Nothing
Dim sql As String = "UPDATE
matakuliah SET nmmk ='" &
tbnmmk.Text & "',sks='" & tbsks.Text & "',prodi='" & tbprodi.Text & "'
where kdmk='" & tbkdmk.Text & "'"
Response.Write(sql)
'membuat objek command'
cmd = New SqlCommand()
cmd.Connection = conn
cmd.CommandText
= sql
'mengeksekusi perintah sql'
Dim jmlrecord As Integer = 0
jmlrecord = cmd.ExecuteNonQuery
'menampilkan hasil eksekusi'
If jmlrecord > 0 Then
lbPesan.Text = "Update data
matakuliah sukses bro"
Else
lbPesan.Text = "Update data
matakuliah gagal"
End If
Catch ex As SqlException
lbPesan.Text = " ada kesalahan
entry data!! proses input dibatalkan (err: " & ex.ErrorCode & ")"
Exit Sub
End Try
End Sub
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
Dim kdmk As String = Request.Params("kdmk")
tbkdmk.Text = kdmk
conn =
New SqlConnection(constr)
conn.Open()
Dim sql As String = "select kdmk,nmmk,sks,prodi from matakuliah where
kdmk ='" & kdmk & "'"
Dim cmd As SqlCommand = New SqlCommand(sql,
conn)
Dim reader As SqlDataReader =
cmd.ExecuteReader
If reader.HasRows Then
reader.Read()
tbkdmk.Text = reader.GetString(0)
tbnmmk.Text = reader.GetString(1)
tbsks.Text = reader.GetInt32(2).ToString
tbprodi.Text = reader.GetString(3)
Else
Response.Redirect("listmkl.aspx")
End If
conn.Close()
End If
End Sub
Dan klik 2 kali batal masukan koding
seperti berikut
Protected Sub btTidak_Click(sender As Object, e As EventArgs) Handles btTidak.Click
Response.Redirect("listmkl.aspx")
End Sub
End Class
5.
Setelah
selesai membuat form update lanjut ke delete.aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Deletemk.aspx.vb" Inherits="Deletemk" %>
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
Apa Anda
Yakin Menghapus Data ???<br />
<br />
<asp:Button ID="Bya" runat="server" Text="Ya" />
<asp:Button ID="Btidak" runat="server" Text="Tidak" />
</div>
</form>
</body>
</html>
kemudian klik 2 kali bt ya untuk
lanjut proses hapus
Imports
System.Data.SqlClient
Partial Class Deletemk
Inherits System.Web.UI.Page
Protected Sub Bya_Click(sender As Object, e As EventArgs) Handles Bya.Click
Dim conn As SqlConnection = Nothing
Dim constr As String = _
ConfigurationManager.ConnectionStrings("SQLSvrConnection").ConnectionString
Try
conn =
New SqlConnection(constr)
conn.Open()
'proses command hapus data
Dim sql As String = "DELETE FROM matakuliah Where kdmk='" & Request.Params("kdmk") & " ' "
Dim cmd As SqlCommand = Nothing
cmd = New SqlCommand(sql,
conn)
Dim msg As String = ""
If cmd.ExecuteNonQuery() >
0 Then
Msg = "Berhasil Menghapus
Data"
Else
msg = "Gagal Menghapus
Data"
End If
conn.Close()
'balik ke listMhs.aspx
Response.Redirect("listmkl.aspx?msg=" & msg)
Catch ex As Exception
End Try
End Sub
Kemudian klik 2 kali bt tidak disini
untuk membatalkan proses hapus
Protected Sub Btidak_Click(sender As Object, e As EventArgs) Handles Btidak.Click
Response.Redirect("listmkl.aspx")
End
Sub
End Class
|
|
|
|
|
|
|
|
|
|
|
|
|
|
