Input Record Dari Web Form Menggunakan VB.Net & SQL Server


Dalam sebuah website dinamis yang menyajikan berbagai macam informasi tentu saja dibutuhkan suatu cara untuk proses peng-update-an data. Dalam proses pembangunan website dinamis, sudah pasti dibutuhkan suatu atau beberapa database. Dan dalam masa pembangunan website juga, setelah database terbentuk dan untuk menambahkan beberapa record ke dalam database biasanya sang developer menggunakan berbagai cara yang salah satunya lewat database engine-nya. Disini saya menggunakan SQL Server 2008 dan Visual Studio 2010 dengan bahasa yang digunakan yaitu VB.

Untuk sebuah website saya rasa cara yang paling efektif dalam proses peng-update-an data yaitu melalui web form selain lewat engine databasenya dan dengan cara lainnya. Baik, saya akan mencoba mendokumentasikan apa yang baru saja saya kerjakan dalam peng-update-an database.

Berikut adalah script .aspx


<%@ Page Language="VB" AutoEventWireup="false" CodeFile="input_dua.aspx.vb" Inherits="input_dua" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
 <title>Input Dua</title>
 <!--<script src="Scripts/update.js" type="text/javascript"></script>-->
 <script language="javascript" >
 function closeIt() {
 close();
 }

</script>
</head>
<body>
 <form id="form1" runat="server">
 <asp:Panel id="pnlAdd" runat="server">
 <table width="340" style="background-color: #CCCCCC">
 <tbody>
 <tr>
 <td colspan="2" style="font-family: tahoma; font-size: medium; font-weight: bold;
 font-variant: small-caps; color: #333333; text-align: center">
 Please Input Data
 </td>
 </tr>
 <tr>
 <td width="102">
 <asp:Label id="lblrepid" runat="server" text="Report ID"></asp:Label></td>
 <td width="235">
 <asp:TextBox id="txtrepid" runat="server" Width="150px"></asp:TextBox>
 </td>
 </tr>
 <tr>
 <td>
 <asp:Label id="lbldatrep" runat="server" text="Date Report"></asp:Label></td>
 <td>
 <asp:TextBox id="txtdatrep" runat="server" Width="150px"></asp:TextBox>
 </td>
 </tr>
 <tr>
 <td>
 <asp:Label id="lblcat" runat="server" text="Category"></asp:Label></td>
 <td>
 <asp:DropDownList ID="dropcat" runat="server">
 <asp:ListItem Selected="True" Value="Leakage"></asp:ListItem>
 <asp:ListItem Value="Complaint"></asp:ListItem>
 <asp:ListItem Value="Maintenance"></asp:ListItem>
 <asp:ListItem Value="New Pipe"></asp:ListItem>
 </asp:DropDownList>
 </td>
 </tr>
 <tr>
 <td>
 <asp:Label id="lblrepby" runat="server" text="Report By"></asp:Label></td>
 <td>
 <asp:TextBox id="txtrepby" runat="server" Width="150px"></asp:TextBox>
 </td>
 </tr>
 <tr>
 <td>
 <asp:Label id="lblcustid" runat="server" text="Customer ID"></asp:Label></td>
 <td>
 <asp:TextBox id="txtcustid" runat="server" Width="150px"></asp:TextBox>
 </td>
 </tr>
 <tr>
 <td>
 <asp:Label id="lblloc" runat="server" text="Location"></asp:Label></td>
 <td>
 <asp:TextBox id="txtloc" runat="server" Width="150px"></asp:TextBox>
 </td>
 </tr>
 <tr>
 <td>
 <asp:Label id="lblinrep" runat="server" text="Info Report"></asp:Label></td>
 <td>
 <asp:TextBox id="txtinrep" runat="server" Width="150px"></asp:TextBox>
 </td>
 </tr>
 <tr>
 <td>
 <asp:Label id="lblrecby" runat="server" text="Received By"></asp:Label></td>
 <td>
 <asp:TextBox id="txtrecby" runat="server" Width="150px"></asp:TextBox>
 </td>
 </tr>
 <tr>
 <td>
 <asp:Label id="lbllat" runat="server" text="Latitude"></asp:Label></td>
 <td>
 <asp:TextBox id="txtlat" runat="server" Width="150px"></asp:TextBox>
 </td>
 </tr>
 <tr>
 <td>
 <asp:Label id="lbllon" runat="server" text="Longitude"></asp:Label></td>
 <td>
 <asp:TextBox id="txtlon" runat="server" Width="150px"></asp:TextBox>
 </td>
 </tr>
 <tr>
 <td>
 <asp:Label id="lblstyle" runat="server" text="Style"></asp:Label></td>
 <td>
 <asp:TextBox id="txtstyle" runat="server" Width="150px"></asp:TextBox>
 </td>
 </tr>
 <tr>
 <td>
 <asp:Label id="lblprinx" runat="server" text="Prinx"></asp:Label></td>
 <td>
 <asp:TextBox id="txtprinx" runat="server" Width="150px"></asp:TextBox>
 </td>
 </tr>
 <tr>
 <td>
 <asp:Label id="lblgeom" runat="server" text="Geometry"></asp:Label></td>
 <td>
 <asp:TextBox id="txtgeom" runat="server" Width="150px"></asp:TextBox>
 </td>
 </tr>
 </tbody>
 </table>
 <br />
 <asp:Button id="btnSave" onclick="btnSave_Click" runat="server" Text="Save"></asp:Button>
 <input type="button" value="Cancel" onclick="closeIt()" />
 <br />
 </asp:Panel>
 <asp:Label id="lblStatus" runat="server" visible="False"></asp:Label>
 </form>
</body>
</html>

Setelah selesai kita juga harus mengkondisikannya di code behind.


Imports System.Data
Imports System.Data.SqlClient

Partial Class input_dua
 Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

End Sub

Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As EventArgs)
 Dim objConn As New SqlConnection
 Dim objCmd As New SqlCommand
 Dim strConnString, strSQL As String

strConnString = "Data Source=WISAKA-72F7BE55\KIKISERVER;Initial Catalog=eagle_eyes;Integrated Security=True"

strSQL = "INSERT INTO DBREPORTCUSTOM (ReportID,DateReport,Category,ReportBy,CustomerID,Location,InfoReport,ReceivedBy,Latitude,Longitude,Mi_Style,Mi_prinx,sp_geometry) " & _
 " VALUES " & _
 " ('" & Me.txtrepid.Text & "','" & Me.txtdatrep.Text & "','" & Me.dropcat.SelectedValue & "', " & _
 " '" & Me.txtrepby.Text & "','" & Me.txtcustid.Text & "','" & Me.txtloc.Text & "', " & _
 " '" & Me.txtinrep.Text & "','" & Me.txtrecby.Text & "','" & Me.txtlat.Text & "', " & _
 " '" & Me.txtlon.Text & "','" & Me.txtstyle.Text & "','" & Me.txtprinx.Text & "', '" & Me.txtgeom.Text & "')"
 objConn.ConnectionString = strConnString
 objConn.Open()
 With objCmd
 .Connection = objConn
 .CommandText = strSQL
 .CommandType = CommandType.Text
 End With

Me.pnlAdd.Visible = False

Try
 objCmd.ExecuteNonQuery()
 Me.lblStatus.Text = "Record Insert Sucessful."
 Me.lblStatus.Visible = True
 Catch ex As Exception
 Me.lblStatus.Visible = True
 Me.lblStatus.Text = "Record Cannot Insert : Error (masukan data dengan benar)"
 End Try

objConn.Close()
 objConn = Nothing

End Sub
End Class

Dibawah ini merupakan penampakan sebelum data di input:

Dan berikut adalah penampakan setalah proses data di input:

 Demikian yang saya bisa dokumentasikan. Mohon koreksinya jika ada kekeliruan, karena saya juga masih belajar dalam memahami pemograman.

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s