if you want more related search please click here
please help to other
http://scriptquery.blogspot.in/
here we are learing about 3-tier using vb.net (insert delete search and clear)
here i am explaing about :
1)how to insert and delete and search and clear
2)using 3-tier architecture
3)request and response also
4)BO,DAO,UI layers
5)using vb.net
step 1):
first you need to create Request and response
response(bo)
Public Class IDSRequest
Private slnoValue As String
Public Property slnno() As String
Get
Return insertValue
End Get
Set(ByVal value As String)
insertValue = value
End Set
End Property
Private empidValue As String
Public Property empid() As String
Get
Return deleteValue
End Get
Set(ByVal value As String)
deleteValue = value
End Set
End Property
Private empphValue As String
Public Property empno() As String
Get
Return searchValue
End Get
Set(ByVal value As String)
searchValue = value
End Set
End Property
Private empadressValue As String
Public Property empadress() As String
Get
Return clearValue
End Get
Set(ByVal value As String)
clearValue = value
End Set
End Property
Private insertValue As String
Public Property Insert() As String
Get
Return insertValue
End Get
Set(ByVal value As String)
insertValue = value
End Set
End Property
Private deleteValue As String
Public Property Delete() As String
Get
Return deleteValue
End Get
Set(ByVal value As String)
deleteValue = value
End Set
End Property
Private searchValue As String
Public Property Search() As String
Get
Return searchValue
End Get
Set(ByVal value As String)
searchValue = value
End Set
End Property
Private editValue As String
Public Property Edit() As String
Get
Return editValue
End Get
Set(ByVal value As String)
editValue = value
End Set
End Property
Private clearValue As String
Public Property Clear() As String
Get
Return clearValue
End Get
Set(ByVal value As String)
clearValue = value
End Set
End Property
Private showValue As String
Public Property Show() As String
Get
Return showValue
End Get
Set(ByVal value As String)
showValue = value
End Set
End Property
End Class
Response(bO)................
Public Class IDSResponse
Private dataTableValue As DataTable
Public Property DataDT() As DataTable
Get
Return dataTableValue
End Get
Set(ByVal value As DataTable)
dataTableValue = value
End Set
End Property
Private dtSearchValue As DataTable
Public Property DtSearch() As DataTable
Get
Return dtSearchValue
End Get
Set(ByVal value As DataTable)
dtSearchValue = value
End Set
End Property
Sub Write(ByVal p1 As String)
Throw New NotImplementedException
End Sub
Private dtdeleteValue As String
Public Property DtDelete() As String
Get
Return dtdeleteValue
End Get
Set(ByVal value As String)
dtdeleteValue = value
End Set
End Property
Private updateValue As String
Public Property Update() As String
Get
Return updateValue
End Get
Set(ByVal value As String)
updateValue = value
End Set
End Property
Private editValue As String
Public Property Edit() As String
Get
Return editValue
End Get
Set(ByVal value As String)
editValue = value
End Set
End Property
Private cancelValue As String
Public Property Cancel() As String
Get
Return cancelValue
End Get
Set(ByVal value As String)
cancelValue = value
End Set
End Property
Private showtableValue As String
Public Property ShowTableRecord() As String
Get
Return showtableValue
End Get
Set(ByVal value As String)
showtableValue = value
End Set
End Property
End Class
step 2):
-------
second you need to create DAO layer( data access layer)
DAO......................
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports BussinessEntites
Imports BussinessLayer
Public Class DAOClass
Public Shared Function insert(ByVal request As IDSRequest) As IDSResponse 'here parameters as REQUEST and returns as RESPONSE
Dim response = New IDSResponse()
Dim con As New SqlConnection()
Dim cmd As New SqlCommand()
Dim dt As New DataTable()
Dim da As New SqlDataAdapter
Dim connectionstring As String
connectionstring = "server=SSPLDEV9;database=testing;User ID =sa; password=svt123;integrated security=false"
con = New SqlConnection(connectionstring)
con.Open()
cmd.CommandText = "Getemployeedetails"
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@slnno", request.slnno)
cmd.Parameters.AddWithValue("@empid", request.empid)
cmd.Parameters.AddWithValue("@empno", request.empno)
cmd.Parameters.AddWithValue("@empadress", request.empadress)
cmd.Connection = con
cmd.ExecuteNonQuery()
cmd = New SqlCommand("select * from empdetails", con)
da.SelectCommand = cmd
da.Fill(dt)
response.DataDT = dt 'here the datatable response is sending to idsresponse
con.Close()
Return response
End Function
Public Shared Function Search(ByVal request As IDSRequest) As IDSResponse 'here parameters as REQUEST and returns as RESPONSE
Dim response = New IDSResponse()
Dim con As New SqlConnection()
Dim cmd As New SqlCommand()
Dim dt As New DataTable()
Dim da As New SqlDataAdapter
Dim connectionstring As String
connectionstring = "server=SSPLDEV9;database=testing;User ID =sa; password=svt123;integrated security=false"
con = New SqlConnection(connectionstring)
con.Open()
cmd.CommandText = "SP_SEARCH"
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@slnno", request.slnno)
cmd.Connection = con
da.SelectCommand = cmd
da.Fill(dt)
response.DtSearch = dt
cmd.ExecuteNonQuery()
con.Close()
Return response
End Function
Public Shared Function delete(ByVal request As IDSRequest) As IDSResponse 'here parameters as REQUEST and returns as RESPONSE
Dim response = New IDSResponse()
Dim con As New SqlConnection()
Dim cmd As New SqlCommand()
Dim dt As New DataTable()
Dim da As New SqlDataAdapter
Dim connectionstring As String
connectionstring = "server=SSPLDEV9;database=testing;User ID =sa; password=svt123;integrated security=false"
con = New SqlConnection(connectionstring)
con.Open()
cmd.CommandText = "SP_DELETE"
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@slnno", request.slnno)
cmd.Connection = con
cmd.ExecuteNonQuery()
cmd = New SqlCommand("select * from empdetails", con)
cmd.Connection = con
da.SelectCommand = cmd
da.Fill(dt)
response.DtDelete = dt.ToString()
con.Close()
Return response
End Function
Public Shared Function update(ByVal request As IDSRequest) As IDSResponse
Dim response = New IDSResponse()
Dim con As New SqlConnection()
Dim cmd As New SqlCommand()
Dim dt As New DataTable()
Dim da As New SqlDataAdapter
Dim connectionstring As String
connectionstring = "server=SSPLDEV9;database=testing;User ID =sa; password=svt123;integrated security=false"
con = New SqlConnection(connectionstring)
con.Open()
cmd.CommandText = "SP_UPDATE"
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = con
cmd = New SqlCommand("select * from empdetails where slnno=@slnno, empid=@empid", con)
cmd.Connection = con
da.SelectCommand = cmd
da.Fill(dt)
response.DtSearch = dt
con.Close()
Return response
End Function
Public Shared Function showrecords(ByVal request As IDSRequest) As IDSResponse 'here parameters as REQUEST and returns as RESPONSE
Dim response = New IDSResponse()
Dim con As New SqlConnection()
Dim cmd As New SqlCommand()
Dim dt As New DataTable()
Dim da As New SqlDataAdapter
Dim connectionstring As String
connectionstring = "server=SSPLDEV9;database=testing;User ID =sa; password=svt123;integrated security=false"
con = New SqlConnection(connectionstring)
con.Open()
cmd.CommandText = "SHOW"
cmd.CommandType = CommandType.StoredProcedure
'cmd.Parameters.AddWithValue("@slnno", request.slnno)
'cmd.Parameters.AddWithValue("@empid", request.empid)
'cmd.Parameters.AddWithValue("@empno", request.empno)
'cmd.Parameters.AddWithValue("@empadress", request.empadress)
cmd.Connection = con
cmd.ExecuteNonQuery()
cmd = New SqlCommand("select * from empdetails", con)
da.SelectCommand = cmd
da.Fill(dt)
response.DataDT = dt 'here the datatable response is sending to idsresponse
con.Close()
Return response
End Function
End Class
step 3):
-------
you need to create User interface (UI) layer
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports BussinessEntites
Imports BussinessLayer
Imports ClassLibrary3
Partial Class Home_UI_
Inherits System.Web.UI.Page
Public Sub input()
End Sub
Protected Sub clearBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles clearBtn.Click
txtbxempid.Text = ""
txtbxempno.Text = ""
txtbxadress.Text = ""
txtbxslnno.Text = ""
End Sub
Protected Sub insertbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles insertbtn.Click
Try
Dim request = New IDSRequest()
request.slnno = txtbxslnno.Text
request.empid = txtbxempid.Text
request.empno = txtbxempno.Text
request.empadress = txtbxadress.Text
Dim Response = DAOClass.insert(request)
GridView1.DataSource = Response.DataDT
GridView1.DataBind()
Catch ex As Exception
End Try
End Sub
Protected Sub deletebtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles deletebtn.Click
Dim request = New IDSRequest()
request.slnno = txtbxsearch.Text
Dim Response = DAOClass.delete(request)
GridView1.DataSource = Response.DtSearch
GridView1.DataBind()
txtbxempid.Text = ""
txtbxempno.Text = ""
txtbxadress.Text = ""
txtbxslnno.Text = ""
End Sub
Protected Sub searchbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles searchbtn.Click
Try
Dim request = New IDSRequest()
request.slnno = txtbxsearch.Text
Dim Response = DAOClass.Search(request)
txtbxslnno.Text = Response.DtSearch.Rows(0).Item("slnno").ToString()
txtbxempid.Text = Response.DtSearch.Rows(0).Item("empid").ToString()
txtbxempno.Text = Response.DtSearch.Rows(0).Item("empno").ToString()
txtbxadress.Text = Response.DtSearch.Rows(0).Item("empaddress").ToString()
GridView1.DataSource = Response.DataDT
GridView1.DataBind()
Catch ex As Exception
End Try
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
cancelbtn.Visible = False
updatebtn1.Visible = False
End Sub
Protected Sub cancelbtn_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cancelbtn.Click
cancelbtn.Visible = False
updatebtn1.Visible = False
End Sub
Protected Sub show_Click(ByVal sender As Object, ByVal e As EventArgs) Handles show.Click
Try
Dim request = New IDSRequest()
Dim Response = DAOClass.showrecords(request)
GridView1.DataSource = Response.DataDT
GridView1.DataBind()
Catch ex As Exception
End Try
End Sub
Protected Sub editbtn_Click(ByVal sender As Object, ByVal e As EventArgs) Handles editbtn.Click
If txtbxsearch.Text = "" Then
ScriptManager.RegisterStartupScript(Me, [GetType](), "showalert", "alert('first you can search your record in the search box');", True)
Else
cancelbtn.Visible = True
updatebtn1.Visible = True
End If
End Sub
Protected Sub updatebtn1_Click1(ByVal sender As Object, ByVal e As EventArgs) Handles updatebtn1.Click
Try
Dim request = New IDSRequest()
request.slnno = txtbxslnno.Text
request.empid = txtbxempid.Text
request.empno = txtbxempno.Text
request.empadress = txtbxadress.Text
Dim Response = DAOClass.update(request)
GridView1.DataSource = Response.DataDT
GridView1.DataBind()
Catch ex As Exception
End Try
End Sub
End Class
step4;)
finally you need to design just copy and paste in html (source view)
you can create the control as you like or what ever you want.
<%@ Page Language="VB" AutoEventWireup="false" Inherits="New_App.Home_UI_" Codebehind="Home(UI).aspx.vb" %>
<!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>3tierIDS</title>
<style type="text/css">
#form1
{
height: 679px;
width: 984px;
}
</style>
<style type="text/css">
.blink
{
text-decoration:blink
}
</style>
</head>
<body>
<form id="form1" runat="server">
<div>
<marquee behavior="scroll" bgcolor="yellow" loop="-1" onmouseover="this.stop();" onmouseout="this.start();" style="height: 24px; width: 100%">Manupulation of data.</marquee></div>
<br />
<div>
<asp:LinkButton ID="lnkButton" runat="server" CssClass="blink">SoftVent</asp:LinkButton>
</div>
<br />
<br />
slnNO
<asp:TextBox ID="txtbxslnno" runat="server"></asp:TextBox>
<br />
empid:
<asp:TextBox ID="txtbxempid" runat="server"></asp:TextBox>
<br />
empph:<asp:TextBox ID="txtbxempno" runat="server"></asp:TextBox>
<br />
adress:<asp:TextBox ID="txtbxadress" runat="server"></asp:TextBox>
<asp:Button ID="show" runat="server" Height="26px" Text="ShowTableRecord"
Width="134px" />
search here with slnNO
<asp:TextBox ID="txtbxsearch" runat="server"></asp:TextBox>
<asp:DropDownList ID="DropDownList1" runat="server" Height="20px" Width="146px">
<asp:ListItem>--SELECT--</asp:ListItem>
<asp:ListItem>Male</asp:ListItem>
<asp:ListItem>Female</asp:ListItem>
</asp:DropDownList>
<br />
<asp:Button ID="clearBtn" runat="server" Height="28px" Text="Clear"
Width="106px" onclick="clearBtn_Click" />
<asp:Button ID="insertbtn" runat="server" Height="28px" Text="insert"
Width="106px" />
<asp:Button ID="deletebtn" runat="server" Height="28px" Text="Delete"
Width="106px" />
<asp:Button ID="editbtn" runat="server" Height="28px" Text="edit"
Width="108px" />
<asp:Button ID="searchbtn" runat="server" Height="28px" Text="search"
Width="106px" />
<br />
<asp:Button ID="updatebtn1" runat="server" Text="update" />
<asp:Button ID="cancelbtn" runat="server" Text="cancel" />
<br />
<asp:GridView ID="GridView1" runat="server" CellPadding="4"
ForeColor="#333333" GridLines="None" Height="307px" Width="665px">
<AlternatingRowStyle BackColor="White" />
<Columns>
<asp:CheckBoxField />
</Columns>
<FooterStyle BackColor="#990000" Font-Bold="True" ForeColor="White" />
<HeaderStyle BackColor="#990000" Font-Bold="True" ForeColor="White" />
<PagerStyle BackColor="#FFCC66" ForeColor="#333333" HorizontalAlign="Center" />
<RowStyle BackColor="#FFFBD6" ForeColor="#333333" />
<SelectedRowStyle BackColor="#FFCC66" Font-Bold="True" ForeColor="Navy" />
<SortedAscendingCellStyle BackColor="#FDF5AC" />
<SortedAscendingHeaderStyle BackColor="#4D0000" />
<SortedDescendingCellStyle BackColor="#FCF6C0" />
<SortedDescendingHeaderStyle BackColor="#820000" />
</asp:GridView>
<asp:ListBox ID="ListBox1" runat="server" Height="106px" Width="669px">
</asp:ListBox>
</form>
</body>
</html>
if you want more related search please click here
please help to other
http://scriptquery.blogspot.in/
11:31 PM
Share:
0 comments: