SubsDotNet: Show Confirmation Box, PopUp and Crystal Report in VB.NET

Ans:-
Here i have done in 1st page- one Confirmation Box will show while click the Show Button and then while Click OK option of Confirmation Box- then only PopUp(PopUp is the 2nd page) will show which is Redirect to the 2nd page and then in 2nd page one Hyperlink is there in DataGridview Column while click that Hyperlink this page is Redirect to the 3rd page where i have added Crystal Report to show the data in Report format and one Back Button to go back again to 2nd page.

below as some Pics..

1st page..

1st page while clicking the show button..Confirmation Box is Showing..

Redirecting to 2nd page after clicking OK option of Confirmation Box..

Redirecting to 3rd page after clicking the Hyperlink of DataGridView Column(Code)..

Again Redirecting to 2nd page while clicking the Back Button in 3rd page..

1st Normal (.aspx)Page-
ConfirmBoxOrPopup5.aspx:-

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

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Confirmation Box And Pop Up Show Page</title>
<script language="javascript" type="text/javascript">

function Approve() {
var txtCount = document.getElementById('txtCount');
if (parseInt(txtCount.value) < 1) {
alert("You can not show the premiums for this Policy");
return false;
}
else {
var sConfirm;
sConfirm = confirm("Are you sure you want to Show Data on Pop Up.");
if (sConfirm == true) {
var txtspStr1 = document.getElementById('txtspStr1');

window.open("ForPopupPage5_1.aspx?strParm=" + txtspStr1.value + "", 'Window', 'height=700,width=900,left=150,top=150,resizable=no,scrollbars=yes,toolbar=no,status=no');
}
else
{ return false; }
}
}

</script>
</head>
<body>
<form id="form1" runat="server">
<asp:ScriptManager ID="ScriptManager1" runat="server">
</asp:ScriptManager>

<div>
<center>
<table>
<tr>
<td>
<asp:Label ID="Label1" Text="Policy : " runat="server" Font-Bold="True" ></asp:Label>
</td>
<td>
<telerik:radcombobox ID="ddlCode" runat="server" AllowCustomText="true" AutoPostBack="true"
BorderColor="#666666" BorderStyle="Solid" BorderWidth="1px" DropDownCssClass="RadComboBox_Sunset"
EmptyMessage="Select Insurance Company"
EnableEmbeddedSkins="False" EnableLoadOnDemand="true"
EnableViewState="false" EnableVirtualScrolling="True"
Font-Names="Verdana" Font-Size="8.5pt"
MarkFirstMatch="true" ShowMoreResultsBox="True" Skin="Sunset"
Width="300px" TabIndex="12">
</telerik:radcombobox>
</td>
</tr>
<tr><td><br /></td><td><br /></td></tr>
<tr><td><br /></td><td><br /></td></tr>
<tr>
<td>
<asp:Label ID="Label2" Text="Policy Code : " runat="server" Font-Bold="True" ></asp:Label>
</td>
<td>
<asp:TextBox runat="server" ID="txtPolicyCode" Width="144" ReadOnly="True" Rows="10"
TabIndex="3"></asp:TextBox>
</td>
</tr>
<tr>
<td>
<asp:Label ID="Label3" Text="Policy Name : " runat="server" Font-Bold="True" ></asp:Label>
</td>
<td>
<asp:TextBox runat="server" ID="txtPolicyName" Width="144" ReadOnly="True" Rows="10"
TabIndex="3"></asp:TextBox>
</td>
</tr>
<tr>
<td>
<asp:Label ID="Label4" Text="Provider Code : " runat="server" Font-Bold="True" ></asp:Label>
</td>
<td>
<asp:TextBox runat="server" ID="txtProviderCode" Width="144" ReadOnly="True" Rows="10"
TabIndex="3"></asp:TextBox>
</td>
</tr>
<tr>
<td>
<asp:Label ID="Label5" Text="Provider Name : " runat="server" Font-Bold="True" ></asp:Label>
</td>
<td>
<asp:TextBox runat="server" ID="txtProviderName" Width="144" ReadOnly="True" Rows="10"
TabIndex="3"></asp:TextBox>
</td>
</tr>
<tr>
<td>
<asp:Label ID="Label6" Text="User Id : " runat="server" Font-Bold="True" ></asp:Label>
</td>
<td>
<asp:TextBox runat="server" ID="txtUserid" Width="144" ReadOnly="True" Rows="10"
TabIndex="3"></asp:TextBox>
</td>
</tr>
<tr>
<td colspan='2'>
<asp:Label ID="lblResult" runat="server" Font-Bold="True" Width="542px" ></asp:Label>
<asp:TextBox runat="server" ID="txtRowCount" Height="1" Width="1" ></asp:TextBox>

<asp:TextBox ID="txtCount" runat="server" BorderColor="ActiveCaptionText" BorderStyle="None"
Font-Size="3pt" ForeColor="White" Height="1px" Width="1px"></asp:TextBox>
<asp:TextBox ID="txtspStr1" runat="server" BorderColor="ActiveCaptionText" BorderStyle="None"
Font-Size="3pt" ForeColor="White" Height="1px" Width="1px"></asp:TextBox>
</td>
</tr>
<tr>
<td></td>
<td align="center">
<asp:ImageButton ID="btnShow" runat="server" AccessKey="D" ImageUrl="~/Images/btnshow.gif"
TabIndex="56" ToolTip="Alt+d" Visible="true" />
</td>
</tr>
</table>

</center>
</div>
</form>
</body>
</html>

ConfirmBoxOrPopup5.aspx.vb:-

Imports System

Imports System.Data

Imports System.Data.SqlClient

Imports System.Web.UI.WebControls

Imports Telerik.Web.UI

Partial Class ConfirmingWhileDelete

Inherits System.Web.UI.Page

Dim sqlcon As SqlConnection

Dim sqlcmd As SqlCommand

Dim sqlad As SqlDataAdapter

Dim sqldr As SqlDataReader

Dim dt As New DataTable

Dim ds As New DataSet

Dim obj As New Class1

Dim spStr() As String

Dim dsComm As New DataSet

Dim sFlag As Integer = 0

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

sqlcon = New SqlConnection(obj.Connect) : sqlcon.Open()

btnShow.Attributes.Add("onclick", "return Approve()")

End Sub

Protected Sub ddlCode_ItemsRequested(ByVal sender As Object, ByVal e As Telerik.Web.UI.RadComboBoxItemsRequestedEventArgs) Handles ddlCode.ItemsRequested

Try

If sqlcon.State = ConnectionState.Closed Then sqlcon.Open()

'sqlad = New SqlDataAdapter("select cast(policyid as varchar)+'-'+policyname as Policy from tblpolicy where (policyname Like '" + e.Text + "%' or policyid Like '" + e.Text + "%')", sqlcon)

sqlad = New SqlDataAdapter("select ltrim(rtrim(policyid))+'-'+ltrim(rtrim(policyname)) as Policy from tblpolicy where (policyname Like '" + e.Text + "%' or policyid Like '" + e.Text + "%')", sqlcon)

sqlad.Fill(dt)

Dim itemsPerRequest As Integer = 20

Dim itemOffset As Integer = e.NumberOfItems

Dim endOffset As Integer = itemOffset + itemsPerRequest

If endOffset > dt.Rows.Count Then

endOffset = dt.Rows.Count

End If

Dim i As Integer = itemOffset

While i < endOffset

ddlCode.Items.Add(New RadComboBoxItem(dt.Rows(i)("Policy").ToString()))

i = i + 1

End While

If dt.Rows.Count > 0 Then

e.Message = [String].Format("Items <b>1</b>-<b>{0}</b> out of <b>{1}</b>", endOffset.ToString(), dt.Rows.Count.ToString())

Else

e.Message = "No matches"

End If

Catch ex As Exception

lblResult.Text = obj.CustomEror(Err.Number)

Finally

sqlcon.Close()

End Try

End Sub

Protected Sub ddlCode_SelectedIndexChanged(ByVal sender As Object, ByVal e As Telerik.Web.UI.RadComboBoxSelectedIndexChangedEventArgs) Handles ddlCode.SelectedIndexChanged

Try

ddlCode.Attributes.Add("style", "display:''")

If Len(ddlCode.Text) > 0 Then

Dim r As Integer = obj.FetchValue("select COUNT(*) from tblpolicy where ltrim(rtrim(policyid))+'-'+ltrim(rtrim(policyname))='" + ddlCode.Text + "'", sqlcon)

If r = 0 Then

obj.MessageBox(Me, "Code not Found.") : ddlCode.Text = ""

ddlCode.Focus() : obj.PageClear(Me) : sFlag = 1 : Exit Sub

Else

spStr = ddlCode.Text.Split("-")

sqlcmd = New SqlCommand("sp_AutoGenerateGrdVw", sqlcon)

sqlcmd.CommandType = CommandType.StoredProcedure

sqlcmd.Parameters.Add(New SqlParameter("@policyid", spStr(0)))

sqlad = New SqlDataAdapter(sqlcmd)

sqlad.Fill(dsComm, "policytbl")

With dsComm.Tables(0).Rows(0)

txtPolicyCode.Text = .Item("policyid")

txtPolicyName.Text = .Item("policyname")

txtProviderCode.Text = .Item("providerid")

txtProviderName.Text = .Item("providername")

txtUserid.Text = .Item("uid")

End With

ViewState("policytbl") = dsComm

txtRowCount.Text = dsComm.Tables("policytbl").Rows.Count

lblResult.Text = "" : sFlag = 0

End If

Catch ex As Exception

lblResult.Text = obj.CustomEror(Err.Number)

End Try

End Sub

Protected Sub btnShow_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnShow.Click

txtspStr1.Text = "A~" + txtPolicyCode.Text & "~" & txtPolicyName.Text & "~" & txtProviderCode.Text & "~" & txtProviderName.Text & "~" & txtUserid.Text & "~Add"

txtCount.Text = obj.FetchValue("select COUNT(*) from tblpolicy where policyid=" & txtPolicyCode.Text & "", sqlcon)

End Sub

End Class

2nd for generate PopUp (.aspx)Page-

ForPopupPage5_1.aspx:-

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

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

<title>Untitled Page</title>

</head>

<body>

<div>

<p>Show Data on PopUp Show</p>

<table>

<tr>

<td>

<asp:Label ID="Label2" Text="Policy Code : " runat="server" Font-Bold="True" ></asp:Label>

</td>

<td>

<asp:TextBox runat="server" ID="txtPolicyCode" Width="144" ReadOnly="True" Rows="10"

TabIndex="3"></asp:TextBox>

</td>

</tr>

<tr>

<td>

<asp:Label ID="Label3" Text="Policy Name : " runat="server" Font-Bold="True" ></asp:Label>

</td>

<td>

<asp:TextBox runat="server" ID="txtPolicyName" Width="144" ReadOnly="True" Rows="10"

TabIndex="3"></asp:TextBox>

</td>

</tr>

<tr>

<td>

<asp:Label ID="lblResult" runat="server" Font-Bold="True" Width="542px" ></asp:Label>

</td>

</tr>

<tr>

<td>

<asp:TextBox ID="txtCount" runat="server" BorderColor="ActiveCaptionText" BorderStyle="None"

Font-Size="3pt" ForeColor="White" Height="1px" Width="1px"></asp:TextBox>

</td>

<td>

<asp:TextBox ID="txtspStr1" runat="server" BorderColor="ActiveCaptionText" BorderStyle="None"

Font-Size="3pt" ForeColor="White" Height="1px" Width="1px"></asp:TextBox>

</td>

</tr>

</table>

<br />

<asp:DataGrid ID="dgrPolicy" runat="server" AutoGenerateColumns="False" CellPadding="4"

Font-Bold="False" Font-Names="Verdana" Font-Size="XX-Small" ForeColor="#333333"

GridLines="None" Height="23px" Width="567px" >

<%--<asp:BoundColumn DataField="policyid" HeaderText="PolicyCode">

</asp:BoundColumn>--%>

<asp:TemplateColumn HeaderText="Code">

<asp:LinkButton ID="lbllnkBtnCode" runat="server" CausesValidation="false" CommandName="policyid"

Text='<%# Eval("policyid") %>' CommandArgument="Actual"></asp:LinkButton>

</ItemTemplate>

<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"

Font-Underline="False" HorizontalAlign="Left" />

<HeaderStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"

Font-Underline="False" HorizontalAlign="Left" />

</asp:TemplateColumn>

<asp:BoundColumn DataField="policyname" HeaderText="PolicyName">

</asp:BoundColumn>

<asp:BoundColumn DataField="providerid" HeaderText="HospitalCode">

</asp:BoundColumn>

<asp:BoundColumn DataField="providername" HeaderText="Hospital">

</asp:BoundColumn>

<asp:BoundColumn DataField="uid" HeaderText="UserId">

</asp:BoundColumn>

</Columns>

</asp:DataGrid>

</center>

</div>

</form>

</body>

</html>

ForPopupPage5_1.aspx.vb:-

Imports System.Web.UI.WebControls

Imports System

Imports System.Data

Imports System.Configuration

Imports System.Collections

Imports System.Web

Imports System.Web.Security

Imports System.Web.UI

Imports System.Web.UI.WebControls.WebParts

Imports System.Web.UI.HtmlControls

Imports System.Data.SqlClient

Partial Class ForPopupPage

Inherits System.Web.UI.Page

Dim sqlcon As SqlConnection

Dim sqlcmd As SqlCommand

Dim sqldr As SqlDataReader

Dim Par As SqlParameter

Dim sqlds As New DataSet

Dim sqlda As SqlDataAdapter

Dim obj As New Class1

Dim spStr() As String

Dim spStr1(), spstrmem() As String

Dim POL() As String

Dim ClassCode As Integer

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Try

sqlcon = New SqlConnection(obj.Connect) : sqlcon.Open()

ViewState("strParm") = Request.QueryString("strParm")

spStr = Split(ViewState("strParm"), "~")

If Not IsPostBack Then

If spStr(0) = "A" Then

txtPolicyCode.Text = spStr(1)

txtPolicyName.Text = spStr(2)

sqlcmd = New SqlCommand("sp_AutoGenerateGrdVw", sqlcon)

sqlcmd.CommandType = CommandType.StoredProcedure

sqlcmd.Parameters.Add(New SqlParameter("@policyid", txtPolicyCode.Text))

sqlda = New SqlDataAdapter(sqlcmd)

sqlda.Fill(sqlds, "policytbl")

dgrPolicy.DataSource = sqlds

dgrPolicy.DataBind()

End If

Catch ex As Exception

lblResult.Text = obj.CustomEror(Err.Number)

End Try

End Sub

Protected Sub dgrPolicy_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgrPolicy.ItemCommand

'Dim PolicyCode As Integer

Dim PolicyName As String

Dim providerid As Integer

Dim providername As String

Dim uid As Integer

If e.CommandArgument = "Actual" Then

'PolicyCode = e.Item.Cells(0).Text

PolicyName = e.Item.Cells(1).Text

providerid = e.Item.Cells(2).Text

providername = e.Item.Cells(3).Text

uid = e.Item.Cells(4).Text

txtspStr1.Text = "A~" + txtPolicyCode.Text & "~" & PolicyName & "~" & providerid & "~" & providername & "~" & uid & "~Add"

txtCount.Text = obj.FetchValue("select COUNT(*) from tblpolicy where policyid=" & txtPolicyCode.Text & "", sqlcon)

If txtCount.Text < 1 Then

lblResult.Text = "You can not show the premiums for this Policy" 'If Policy is not created then it will not show.

Else

Response.Redirect("ShowReportFromPopUp5_2.aspx?strParm=" + txtspStr1.Text + "") 'On Same Page its redirect to another page.

End If

End Sub

End Class

3rd for generate Report in (.aspx) Page-

ShowReportFromPopUp5_2.aspx:-

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

<%@ Register Assembly="CrystalDecisions.Web, Version=10.5.3700.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"

Namespace="CrystalDecisions.Web" TagPrefix="CR" %>

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

<title>Show Report From PopUp Page</title>

</head>

<body>

<div>

<table>

<tr>

</tr>

</table>

<tr>

<asp:HyperLink ID="HyperLink1" runat="server" Font-Bold="True">Debit Notes</asp:HyperLink></td>

<asp:ImageButton ID="Button1" runat="server" ImageUrl="~/Images/btnback.gif"/></td>

</tr>

<tr>

<asp:Label ID="lblResult" runat="server" Width="798px"></asp:Label></td>

</tr>

<tr>

<CR:CrystalReportViewer ID="CrystalReportViewer1" runat="server"

AutoDataBind="True" Height="1039px" ReportSourceID="CrystalReportSource1"

Width="901px" />

<CR:CrystalReportSource ID="CrystalReportSource1"

runat="server">

</report>

</CR:CrystalReportSource>

</td>

</tr>

</table>

</div>

</form>

</body>

</html>

ShowReportFromPopUp5_2.aspx.vb:-

Imports System.Web.UI.WebControls

Imports System

Imports System.Data

Imports System.Configuration

Imports System.Collections

Imports System.Web

Imports System.Web.Security

Imports System.Web.UI

Imports System.Web.UI.WebControls.WebParts

Imports System.Web.UI.HtmlControls

Imports System.Data.SqlClient

Imports System.ComponentModel

Imports CrystalDecisions.Shared

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.ReportAppServer.ClientDoc

Partial Class ShowReportFromPopUp5_2

Inherits System.Web.UI.Page

Dim sqlcon As SqlConnection

Dim sqlcmd As SqlCommand

Dim sqlad As SqlDataAdapter

Dim sqldr As SqlDataReader

Dim ds As New DataSet

Dim obj As New Class1

Dim spStr() As String

Dim spStr1() As String

Dim spStr2() As String

Dim sFlag As Integer = 0

Dim strParm As String

Dim name As String

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

sqlcon = New SqlConnection(obj.Connect) : sqlcon.Open()

ViewState("strParm") = Request.QueryString.Get("strParm")

spStr = Split(ViewState("strParm"), "~")

'If spStr.Length = 6 Then

' name = spStr(5)

'End If

Call ShowReport()

End Sub

Private Sub ShowReport()

Try

If spStr.Length <= 15 Then

sqlcmd = New SqlCommand("sp_AutoGenerateGrdVw", sqlcon)

sqlcmd.CommandType = CommandType.StoredProcedure

spStr = Split(Request.QueryString.Get("strParm"), "~")

sqlcmd.Parameters.Add(New SqlParameter("@policyid", spStr(1)))

sqlad = New SqlDataAdapter(sqlcmd)

sqlad.Fill(ds, "ShowRpt")

CrystalReportSource1.ReportDocument.SetDataSource(ds.Tables("ShowRpt"))

End If

Catch ex As Exception

lblResult.Text = obj.CustomEror(Err.Number)

End Try

End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles Button1.Click

'If name = "Add" Then

Response.Redirect("ForPopupPage5_1.aspx?strParm=" + ViewState("strParm"))

'End If

End Sub

End Class

and then add Crystal Report in this application through our Asp.Net Application as Add New Item /or through Crystal Report 9....and get connection from DB.

Class1.vb:-

Imports Microsoft.VisualBasic

Imports System.Web.UI.WebControls

Imports System

Imports System.Data

Imports System.Configuration

Imports System.Collections

Imports System.Web

Imports System.Web.Security

Imports System.Web.UI

Imports System.Web.UI.WebControls.WebParts

Imports System.Web.UI.HtmlControls

Imports System.Data.SqlClient

Imports System.Data.Odbc

Imports Telerik.Web.UI

Public Class Class1

Dim sqlcmd As SqlCommand

Dim sqldr As SqlDataReader

Public dsImport As New DataSet

Public Function Connect() As String

Connect = "Data source=192.168.0.200;Database=SubsDB;Uid=sa;Pwd=amtpl@123;Pooling=true;Min Pool Size=2;Max Pool Size=1000"

End Function

Public Sub AddComboTi(ByVal CntName As RadComboBox, ByVal SqlStr As String, ByVal sCon As SqlConnection)

'Which will fill the DropdownList Based on Query

Try

CntName.Items.Clear()

'Dim Str As String = String.Empty

' CntName.Items.Add(New RadComboBoxItem(""))

sqlcmd = New SqlCommand(SqlStr, sCon)

sqldr = sqlcmd.ExecuteReader()

While sqldr.Read

CntName.Items.Add(New RadComboBoxItem(sqldr(0)))

End While

sqldr.Close() : sqlcmd.Dispose()

Catch ex As Exception

'MsgBox(ex.Message)

End Try

End Sub

Public Sub AddCombo(ByVal CntName As DropDownList, ByVal SqlStr As String, ByVal sCon As SqlConnection)

'Which will fill the DropdownList Based on Query

Try

CntName.Items.Clear()

CntName.Items.Add("")

sqlcmd = New SqlCommand(SqlStr, sCon)

sqldr = sqlcmd.ExecuteReader()

While sqldr.Read

CntName.Items.Add(sqldr(0))

End While

sqldr.Close() : sqlcmd.Dispose()

Catch ex As Exception

'MsgBox(ex.Message)

End Try

End Sub

Public Function getDataSet(ByVal Sqlstr As String, ByVal Sqcon As SqlConnection) As DataSet

Dim getDS As New DataSet

Try

Dim sqlad As New SqlDataAdapter(Sqlstr, Sqcon)

sqlad.Fill(getDS)

getDataSet = getDS

Catch ex As Exception

getDataSet = getDS

End Try

End Function

Public Function FetchValue(ByVal qStr As String, ByVal sCon As SqlConnection) As String

'Which will give the Find Value Based on Query

Try

Dim sqlFetch = New SqlCommand(qStr, sCon)

FetchValue = sqlFetch.ExecuteScalar()

sqlFetch.Dispose()

Catch ex As Exception

FetchValue = ""

End Try

End Function

Public Sub MessageBox(ByVal pName As Page, ByVal strMsg As String)

Dim lbl As New Label

lbl.Text = "<script language='javascript'>" & Environment.NewLine & "window.alert(" & "'" & strMsg & "'" & ")</script>"

pName.Controls.Add(lbl)

End Sub

Public Sub PageClear(ByVal pName As Page)

'-----------------------------------

'Which will Clear the Form

'-----------------------------------

Dim cCount As Control

Dim control As Control

For Each cCount In pName.Controls

For Each control In cCount.Controls

If TypeOf control Is TextBox Then

Dim TextBox As TextBox = control

TextBox.Text = ""

ElseIf TypeOf control Is DropDownList Then

Dim DropDownList As DropDownList = control

DropDownList.SelectedIndex = -1

ElseIf TypeOf control Is ListBox Then

Dim ListBox As ListBox = control

ListBox.SelectedIndex = -1

ElseIf TypeOf control Is RadioButton Then

Dim RadioButton As RadioButton = control

RadioButton.Checked = False

ElseIf TypeOf control Is CheckBox Then

Dim CheckBox As CheckBox = control

CheckBox.Checked = False

ElseIf TypeOf control Is RadDatePicker Then

Dim RadDatePicker As RadDatePicker = control

RadDatePicker.Clear()

RadDatePicker.Calendar.SelectedDates.Clear()

ElseIf TypeOf control Is RadDateTimePicker Then

Dim RadDateTimePicker As RadDateTimePicker = control

RadDateTimePicker.Clear()

RadDateTimePicker.Calendar.SelectedDates.Clear()

End If

End Sub

Public Function CustomEror(ByVal ErrCode As String) As String

If ErrCode = 5 Then

CustomEror = "Invalid procedure call or argument"

ElseIf ErrCode = 6 Then

CustomEror = "Overflow"

ElseIf ErrCode = 7 Then

CustomEror = "Out of memory"

ElseIf ErrCode = 9 Then

CustomEror = "Subscript out of range"

ElseIf ErrCode = 10 Then

CustomEror = "Array fixed or temporarily locked"

ElseIf ErrCode = 11 Then

CustomEror = "Division by zero"

ElseIf ErrCode = 13 Then

CustomEror = "Type mismatch"

ElseIf ErrCode = 14 Then

CustomEror = "Out of string space"

ElseIf ErrCode = 28 Then

CustomEror = "Out of stack space"

ElseIf ErrCode = 35 Then

CustomEror = "Sub or Function not defined"

ElseIf ErrCode = 48 Then

CustomEror = "Error in loading DLL"

ElseIf ErrCode = 51 Then

CustomEror = "Internal error"

ElseIf ErrCode = 53 Then

CustomEror = "File not found"

ElseIf ErrCode = 57 Then

CustomEror = "Device I/O error"

ElseIf ErrCode = 58 Then

CustomEror = "File already exists"

ElseIf ErrCode = 61 Then

CustomEror = "Disk full"

ElseIf ErrCode = 67 Then

CustomEror = "Too many files"

ElseIf ErrCode = 70 Then

CustomEror = "Permission denied"

ElseIf ErrCode = 75 Then

CustomEror = "Path/File access error"

ElseIf ErrCode = 76 Then

CustomEror = "Path not found"

ElseIf ErrCode = 91 Then

CustomEror = "Object variable or With block variable not set"

ElseIf ErrCode = 92 Then

CustomEror = "For loop not initialized"

ElseIf ErrCode = 94 Then

CustomEror = "Invalid use of Null"

ElseIf ErrCode = 322 Then

CustomEror = "Can't create necessary temporary file"

ElseIf ErrCode = 424 Then

CustomEror = "Object required"

ElseIf ErrCode = 429 Then

CustomEror = "ActiveX component can't create object"

ElseIf ErrCode = 430 Then

CustomEror = "Class doesn't support Automation"

ElseIf ErrCode = 432 Then

CustomEror = "File name or class name not found during Automation operation"

ElseIf ErrCode = 438 Then

CustomEror = "Object doesn't support this property or method"

ElseIf ErrCode = 440 Then

CustomEror = "Automation error"

ElseIf ErrCode = 445 Then

CustomEror = "Object doesn't support this action"

ElseIf ErrCode = 446 Then

CustomEror = "Object doesn't support named arguments"

ElseIf ErrCode = 447 Then

CustomEror = "Object doesn't support current local setting"

ElseIf ErrCode = 448 Then

CustomEror = "Named argument not found"

ElseIf ErrCode = 449 Then

CustomEror = "Argument not optional"

ElseIf ErrCode = 450 Then

CustomEror = "Wrong number of arguments or invalid property assignment"

ElseIf ErrCode = 451 Then

CustomEror = "Object not a collection"

ElseIf ErrCode = 453 Then

CustomEror = "Specified DLL function not found"

ElseIf ErrCode = 455 Then

CustomEror = "Code resource lock error"

ElseIf ErrCode = 457 Then

CustomEror = "This key already associated with an element of this "

ElseIf ErrCode = 458 Then

CustomEror = "Variable uses an Automation type not supported in VBScript"

ElseIf ErrCode = 500 Then

CustomEror = "Variable is undefined"

ElseIf ErrCode = 501 Then

CustomEror = "Illegal assignment"

ElseIf ErrCode = 502 Then

CustomEror = "Object not safe for scripting"

ElseIf ErrCode = 503 Then

CustomEror = "Object not safe for initializing"

ElseIf ErrCode = 1001 Then

CustomEror = "Out of memory"

ElseIf ErrCode = 1002 Then

CustomEror = "Syntax error"

ElseIf ErrCode = 1003 Then

CustomEror = "Expected ':'"

ElseIf ErrCode = 1004 Then

CustomEror = "Expected ';'"

ElseIf ErrCode = 1005 Then

CustomEror = "Expected '('"

ElseIf ErrCode = 1006 Then

CustomEror = "Expected ')'"

ElseIf ErrCode = 1007 Then

CustomEror = "Expected ']'"

ElseIf ErrCode = 1008 Then

CustomEror = "Expected '{'"

ElseIf ErrCode = 1009 Then

CustomEror = "Expected '}'"

ElseIf ErrCode = 1010 Then

CustomEror = "Expected identifier"

ElseIf ErrCode = 1011 Then

CustomEror = "Expected '='"

ElseIf ErrCode = 1012 Then

CustomEror = "Expected 'If'"

ElseIf ErrCode = 1013 Then

CustomEror = "Expected 'To'"

ElseIf ErrCode = 1014 Then

CustomEror = "Expected 'End'"

ElseIf ErrCode = 1015 Then

CustomEror = "Expected 'Function'"

ElseIf ErrCode = 1016 Then

CustomEror = "Expected 'Sub'"

ElseIf ErrCode = 1017 Then

CustomEror = "Expected 'Then'"

ElseIf ErrCode = 1018 Then

CustomEror = "Expected 'Wend'"

ElseIf ErrCode = 1019 Then

CustomEror = "Expected 'Loop'"

ElseIf ErrCode = 1020 Then

CustomEror = "Expected 'Next'"

ElseIf ErrCode = 1021 Then

CustomEror = "Expected 'Case'"

ElseIf ErrCode = 1022 Then

CustomEror = "Expected 'Select'"

ElseIf ErrCode = 1023 Then

CustomEror = "Expected expression"

ElseIf ErrCode = 1024 Then

CustomEror = "Expected statement"

ElseIf ErrCode = 1025 Then

CustomEror = "Expected end of statement"

ElseIf ErrCode = 1026 Then

CustomEror = "Expected integer constant"

ElseIf ErrCode = 1027 Then

CustomEror = "Expected 'While' or 'Until'"

ElseIf ErrCode = 1028 Then

CustomEror = "Expected 'While', 'Until', or end of statement"

ElseIf ErrCode = 1029 Then

CustomEror = "Too many locals or arguments"

ElseIf ErrCode = 1030 Then

CustomEror = "Identifier too long"

ElseIf ErrCode = 1031 Then

CustomEror = "Invalid number"

ElseIf ErrCode = 1032 Then

CustomEror = "Invalid character"

ElseIf ErrCode = 1033 Then

CustomEror = "Unterminated string constant"

ElseIf ErrCode = 1034 Then

CustomEror = "Unterminated comment"

ElseIf ErrCode = 1035 Then

CustomEror = "Nested comment"

ElseIf ErrCode = 1037 Then

CustomEror = "Invalid use of 'Me' keyword"

ElseIf ErrCode = 1038 Then

CustomEror = "'Loop' without 'Do'"

ElseIf ErrCode = 1039 Then

CustomEror = "Invalid 'Exit' statement"

ElseIf ErrCode = 1040 Then

CustomEror = "Invalid 'For' loop control variable"

ElseIf ErrCode = 1041 Then

CustomEror = "Name redefined"

ElseIf ErrCode = 1042 Then

CustomEror = "Must be first statement on the line"

ElseIf ErrCode = 1043 Then

CustomEror = "Can't assign to non-ByVal argument"

ElseIf ErrCode = 1044 Then

CustomEror = "Can't use parens when calling a Sub"

ElseIf ErrCode = 1045 Then

CustomEror = "Expected literal constant"

ElseIf ErrCode = 1046 Then

CustomEror = "Expected 'In'"

ElseIf ErrCode = 32766 Then

CustomEror = "TRUE"

ElseIf ErrCode = 32767 Then

CustomEror = "FALSE"

ElseIf ErrCode = 32811 Then

CustomEror = "Element not found"

Else

CustomEror = "Sorry, Unexception Error found"

End If

End Function

End Class

DB script-

create table tblpolicy(policyid int primary key,policyname varchar(30),uid int,providerid int foreign key references providertbl(providerid))

create table tblprovider(providerid int primary key,providername varchar(30))

create proc sp_AutoGenerateGrdVw(@policyid int)

begin

select distinct po.policyid,po.policyname,pr.providername,pr.providerid,po.[uid] from tblpolicy po inner join tblprovider pr on po.providerid=pr.providerid

where po.policyid=@policyid

end

SubsDotNet

Sunday, 22 June 2014

Show Confirmation Box, PopUp and Crystal Report in VB.NET

No comments:

Post a Comment