Gaurav Taneja

Check & Kill Process

Gaurav Taneja — Mon, 29 Jun 2009 10:36:11 GMT

{

myHashtable =

{

myHashtable.Add(ExcelProcess.Id, iCount);

iCount = iCount + 1;

}

{

private void CheckExcellProcesses()Process[] AllProcesses = Process.GetProcessesByName("excel");new Hashtable();int iCount = 0;foreach (Process ExcelProcess in AllProcesses)private void KillExcel()Process[] AllProcesses = Process.GetProcessesByName("excel");// check to kill the right process

{

ExcelProcess.Kill();

}

AllProcesses =

}

foreach (Process ExcelProcess in AllProcesses)if (myHashtable.ContainsKey(ExcelProcess.Id) == false)null;

Truncating All Tables

Gaurav Taneja — Mon, 29 Jun 2009 10:21:30 GMT

Create

Procedure GT_DeleteRecords_AllTables

/*********************************************************

Stored Procedure: GT_DeleteRecords_AllTables

Do not excute this proc

Purpose: Delete ALL records within ALL the tables in a DB with ease.

Test: Exec GT_DeleteRecords_AllTables**********************************************************/

Set

Exec

nocount on sp_MSForEachTable 'Alter Table ? NoCheck Constraint All'

Exec

sp_MSForEachTable

If ObjectProperty(Object_ID(''?''), ''TableHasForeignRef'')=1

Begin

-- Just to know what all table used delete syntax.

Print ''Delete from '' + ''?''

Delete From ?

End

Else

Begin

-- Just to know what all table used Truncate syntax.

Print ''Truncate Table '' + ''?''

Truncate Table ?

End

Exec

sp_MSForEachTable 'Alter Table ? Check Constraint All'

To change the colour of TAB control

Gaurav Taneja — Thu, 11 Dec 2008 05:34:14 GMT

To change the color of Tab control

Add this event handler

DrawMode property to OwnerDrawFixed.
Override the DrawItem event handler definition.

tabControl2.DrawItem += new DrawItemEventHandler(OnDrawItem);

step 2

private void OnDrawItem(object sender, DrawItemEventArgs e)

{

TabPage CurrentTab = tabControl2.TabPages[e.Index];

Rectangle ItemRect = tabControl2.GetTabRect(e.Index);

SolidBrush FillBrush = new SolidBrush(Color.Red);

SolidBrush TextBrush = new SolidBrush(Color.White);

StringFormat sf = new StringFormat();

sf.Alignment = StringAlignment.Center;

sf.LineAlignment = StringAlignment.Center;

//If we are currently painting the Selected TabItem we'll

//change the brush colors and inflate the rectangle.

if (System.Convert.ToBoolean(e.State & DrawItemState.Selected))

{

FillBrush.Color = Color.PaleTurquoise;

TextBrush.Color = Color.Red;

ItemRect.Inflate(2, 2);

}

//Set up rotation for left and right aligned tabs

if (tabControl2.Alignment == TabAlignment.Left || tabControl2.Alignment == TabAlignment.Right)

{

float RotateAngle = 90;

if (tabControl2.Alignment == TabAlignment.Left)

RotateAngle = 270;

PointF cp = new PointF(ItemRect.Left + (ItemRect.Width / 2), ItemRect.Top + (ItemRect.Height / 2));

e.Graphics.TranslateTransform(cp.X, cp.Y);

e.Graphics.RotateTransform(RotateAngle);

ItemRect = new Rectangle(-(ItemRect.Height / 2), -(ItemRect.Width / 2), ItemRect.Height, ItemRect.Width);

}

//Next we'll paint the TabItem with our Fill Brush

e.Graphics.FillRectangle(FillBrush, ItemRect);

//Now draw the text.

e.Graphics.DrawString(CurrentTab.Text, e.Font, TextBrush, (RectangleF)ItemRect, sf);

//Reset any Graphics rotation

e.Graphics.ResetTransform();

//Finally, we should Dispose of our brushes.

FillBrush.Dispose();

TextBrush.Dispose();

}

Creating a Dll(asembly dynamically) + vb.net

Gaurav Taneja — Thu, 11 Dec 2008 05:32:54 GMT

CREATING DLL DYNAMICALLY

you need to complie this code

Public Function CreateResourceAssembly() As Boolean

Dim currentpageHashVal As Hashtable = New Hashtable()

Dim intArrIndx As Integer

Dim strTextVal As String

Dim blnIsSuccess As Boolean

Dim strAsmFileName As String = FetchTest.resources.dll

Dim strPathAssmbly As String = strAppPath + FetchTest.resources.dll"

Dim appdomain As AppDomain = Thread.GetDomain()

Dim asmName As New AssemblyName()

Dim strVersion As String = Nothing

Dim strKey As String = Nothing

Dim hashResPage As Hashtable = New Hashtable()

Dim ItemEnumeratorPage As System.Collections.IDictionaryEnumerator

Dim blnIdExist As Boolean = False

asmName.Name = Wpms.resources.dl

Dim resourceName As String = Wpms.resources"

asmName.CodeBase = strPath

Dim strDate As String

strDate = Date.Now.ToString("dd/MM/yyyy").Replace("/", "")

intBuild = CType(strDate, Integer)

intRev = intRev + 1

strVersion = "1.0.0" & "." & CType(intRev, String)

asmName.Version = New Version(1, 0, 0, intRev)

asmName.CultureInfo = New CultureInfo(strLang)

Dim asmBuilder As AssemblyBuilder = appdomain.DefineDynamicAssembly(asmName, AssemblyBuilderAccess.RunAndSave, strPath)

Dim modulebuilder As ModuleBuilder = asmBuilder.DefineDynamicModule(strAsmFileName, strAsmFileName)

Dim resWriter As System.Resources.IResourceWriter

Dim blnGenEngRes As Boolean = True

resWriter = modulebuilder.DefineResource(resourceName, "MyDescription", ResourceAttributes.Public)

‘ writing in resource file below is a n example ….

Dim ItemEnumerator As System.Collections.IDictionaryEnumerator

ItemEnumerator = resHastable.GetEnumerator()

Do While ItemEnumerator.MoveNext

resWriter.AddResource(CType(ItemEnumerator.Key, String), CType(ItemEnumerator.Value, String))

Loop

asmBuilder.Save(strAsmFileName) ‘ SAVING ASSEMBLY

Return blnIsSuccess

End Function

Reading Assembly into bytes + vb.net

Gaurav Taneja — Thu, 11 Dec 2008 05:25:41 GMT

Reading a dll into bytes

Dim strPathAssmbly As String ="c:\abc.dll"

Dim btByte() As Byte = File.ReadAllBytes(strPathAssmbly)

Displaying the controls of page

Gaurav Taneja — Thu, 11 Dec 2008 04:51:55 GMT

Diplaying the controls

Public Sub DisplayControlName(ByVal oControl As Control, ByVal strPageName As String)

Dim txtBox As TextBox

Dim ddlLst As DropDownList

Dim rdBtn As RadioButton

Dim rdBtnLst As RadioButtonList

Dim chkBx As CheckBoxList

Dim chkBx1 As CheckBox

Dim lblVal As System.Web.UI.WebControls.Label

Dim htmTbl As System.Web.UI.HtmlControls.HtmlTable

Dim btnVal As System.Web.UI.WebControls.Button

' Checks for all the WebBased Control in the web page

Select Case oControl.GetType.ToString

'Case "System.Web.UI.WebControls.TextBox" ' for textbox control

' txtBox = oControl.FindControl(oControl.ID)

' If Not txtBox.ID Is Nothing Then

' If Not txtBox.Text.ToString() Is Nothing Then

' If txtBox.Text.Length > 0 Then

' ArrayLst.Add(New String() {strPageName & "_" & txtBox.ID & "_" & "TextBox" & "_" & "N/A", txtBox.Text.ToString()})

' End If

Case MultiLang_DropDownListControl ' for Dropdownlist control

ddlLst = oControl.FindControl(oControl.ID)

If Not ddlLst Is Nothing Then

End If

Case MultiLang_RadioButtonControl ' for radio button control

rdBtn = oControl.FindControl(oControl.ID)

If Not rdBtn Is Nothing Then

ArrayLst.Add(New String() {strPageName & "_" & rdBtn.ID & "_" MultiLang_RadioButton & "_" & MultiLang_NA, rdBtn.Text.ToString()})

End If

Case MultiLang_RadioButtonListControl ' for radio button control

rdBtnLst = oControl.FindControl(oControl.ID)

If Not rdBtnLst Is Nothing Then

Dim MyItem As ListItem

For Each MyItem In rdBtnLst.Items

ArrayLst.Add(New String() {strPageName & "_" & rdBtnLst.ID & "_" & MultiLang_RadioButtonList & "_" & MyItem.Value & "_" & MultiLang_NA, MyItem.Text.ToString()})

End If

Case MultiLang_CheckBoxListControl

chkBx = oControl.FindControl(oControl.ID)

If Not chkBx Is Nothing Then

Dim MyItem As ListItem

For Each MyItem In chkBx.Items

ArrayLst.Add(New String() {strPageName & "_" & chkBx.ID & "_" & MultiLang_CheckBoxList & "_" & MyItem.Value & "_" & MultiLang_NA, MyItem.Text.ToString()})

End If

Case MultiLang_CheckBoxControl ' for checkbox control

Try

'Dim strVal As Object

If Not TypeOf oControl.NamingContainer Is CheckBoxList Then

chkBx1 = oControl.FindControl(oControl.ID)

If Not chkBx1 Is Nothing Then

If Not chkBx1.Text.Equals("") Then

ArrayLst.Add(New String() {strPageName & "_" & chkBx1.ID & "_" & MultiLang_CheckBox & "_" & MultiLang_NA, chkBx1.Text.ToString()})

End If

Catch ex As Exception

End Try

Case MultiLang_LabelControl ' for label control

Try

lblVal = oControl.FindControl(oControl.ID)

' HttpContext.Current.Response.Write(" " & "Label:- " & lblVal.Text)

If Not lblVal Is Nothing Then

If Not lblVal.Text.Equals("") Then

ArrayLst.Add(New String() {strPageName & "_" & lblVal.ID & "_" & MultiLang_Label & "_" & MultiLang_NA, lblVal.Text.ToString()})

End If

Catch ex As Exception

End Try

Case MultiLang_HtmlTableControl ' for fetching table control

htmTbl = oControl.FindControl(oControl.ID)

Dim MyRow As System.Web.UI.HtmlControls.HtmlTableRow

Dim mycell As System.Web.UI.HtmlControls.HtmlTableCell

Try

' Travesing each row in the table and then traversing the cells

For Each MyRow In htmTbl.Rows

For Each mycell In MyRow.Cells

If mycell.Controls(0).GetType().ToString().Equals( MultiLang_LiteralControl) Then

' If mycell.InnerText.Length > 0 Then

If Not mycell.ID Is Nothing Then

If Not mycell.InnerText.ToString() Is Nothing Then

If mycell.InnerText.Length > 0 Then

ArrayLst.Add(New String() {strPageName & "_" & mycell.ID & "_" & MultiLang_td & "_" & MultiLang_NA, mycell.InnerText.ToString()})

End If

'End If

End If

Catch ex As Exception

End Try

Case MultiLang_ButtonControl ' for fetching button control

btnVal = oControl.FindControl(oControl.ID)

If Not btnVal Is Nothing Then

ArrayLst.Add(New String() {strPageName & "_" & btnVal.ID & "_" & MultiLang_Button & "_" & MultiLang_NA, btnVal.Text.ToString()})

End If

End Select

End Sub

Fecting Page controls Dynamically + vb.net

Gaurav Taneja — Thu, 11 Dec 2008 04:49:59 GMT

How to fetch Page controls of web form Dynamically in vb.net

To Find the Page Controls in a Web Page

Public Function FindPageControl(ByVal oControlCollection As ControlCollection, ByVal strPageName As String) As ArrayList

' Traverses all the controls in the page

For Each oControl As Control In oControlCollection

DisplayControlName(oControl, strPageName)

FindPageControl(oControl.Controls, strPageName)

Return ArrayLst

End Function

How to call this function

FindPageControl(Page.Controls, strPgName)

Iterating through controls in form + vb.net

Gaurav Taneja — Mon, 04 Aug 2008 10:23:13 GMT

Looop through the controls...

Private

SetTooltip(oControl, strToolTip)

FindToolTipControl(oControl.Controls, strToolTip)

Sub FindToolTipControl(ByVal oControlCollection As ControlCollection, ByVal strToolTip As String)For Each oControl As Control In oControlCollectionNext

......................

Private Sub SetTooltip(ByVal oControl As Control, ByVal strToolTip As String)Select Case oControl.GetType.ToStringCase "System.Web.UI.WebControls.TextBox"

Response.Write(

Dim otxt As TextBox = oControl.FindControl(oControl.ID)" " & "TextBox:- " & otxt.Text.ToString())Case "System.Web.UI.WebControls.DropDownList"

Response.Write(

Dim oDdl As DropDownList = oControl.FindControl(oControl.ID)" " & "DropDown :- " & oDdl.Text.ToString())Case "System.Web.UI.WebControls.RadioButton"

Response.Write(

Dim oRdbtn As RadioButton = oControl.FindControl(oControl.ID)" " & "RadioButton:- " & oRdbtn.Text.ToString())Case "System.Web.UI.WebControls.CheckBox"

Dim oChkbx As CheckBoxList = oControl.FindControl(oControl.ID)'Response.Write(" " & "Ckeckboxloist" & oChkList.Items.Count.ToString())

Response.Write(

Dim MyItem As ListItemFor Each MyItem In oChkbx.Items" " & "Ckeckbox:- " & MyItem.Text.ToString())Next

Case "System.Web.UI.WebControls.Label"

Response.Write(

Dim oLabel As Label = oControl.FindControl(oControl.ID)" " & "Label:- " & oLabel.Text)Case "System.Web.UI.WebControls.CheckBoxList"

Dim oChkList As CheckBoxList = oControl.FindControl(oControl.ID)'Response.Write(" " & "Ckeckboxloist" & oChkList.Items.Count.ToString())

Response.Write(

Dim MyItem As ListItemFor Each MyItem In oChkList.Items" " & "Ckeckboxlist:- " & MyItem.Text.ToString())Next

Case "System.Web.UI.HtmlControls.HtmlTableRow"

Dim oTbrw As HtmlTableRow = oControl.FindControl(oControl.ID)'Response.Write(" " & "Table row:- " & oTbrw.InnerText.ToString())

End Select

End Sub

Count No of Procedure in Database

Gaurav Taneja — Mon, 05 May 2008 22:02:13 GMT

Count Procedure

select count(*) from sysobjects where xtype='P'

other option is below

select CASE(XType) WHEN 'C' THEN 'CHECK constraint'
WHEN 'D' THEN 'Default or DEFAULT constraint'
WHEN 'F' THEN 'FOREIGN KEY constraint'
WHEN 'L' THEN 'Log'
WHEN 'FN' THEN 'Scalar function'
WHEN 'IF' THEN 'Inlined table-function'
WHEN 'P' THEN 'Stored procedure'
WHEN 'PK' THEN 'PRIMARY KEY constraint (type is K)'
WHEN 'RF' THEN 'Replication filter stored procedure'
WHEN 'S' THEN 'System table'
WHEN 'TF' THEN 'Table function'
WHEN 'TR' THEN 'Trigger'
WHEN 'U' THEN 'User table'
WHEN 'UQ' THEN 'UNIQUE constraint (type is K)'
WHEN 'V' THEN 'View'
WHEN 'X' THEN 'Extended stored procedure' END Type
, Count(*) as total from sysObjects
GROUP BY xtype

URL rewrtting

Gaurav Taneja — Fri, 18 Apr 2008 00:02:43 GMT

UrlRewriting is one of the interesting and advance topics in ASP.Net, following is the link shows the comprehensive information on URLRewriting.

Scott has give a fantastic detailed article on URL Rewriting. here

http://weblogs.asp.net/scottgu/archive/2007/02/26/tip-trick-url-rewriting-with-asp-net.aspx

http://msdn.microsoft.com/asp.net/community/authors/scottmitchell/default.aspx?pull=/library/en-us/dnaspp/html/urlrewriting.asp

The following link is the example with source code available

http://urlrewriting.net/en/Download.aspx
http://weblogs.asp.net/fmarguerie/archive/2004/11/18/265719.aspx

Failed to access IIS metabase problem

Gaurav Taneja — Fri, 18 Apr 2008 00:01:19 GMT

Possible Cause:-
When you install IIS AFTER .NET 2.0 framework, the rights of the ASPNET user had not been set correctly.

Resolution
Repair (Uninstall if repair does not work for you) .NET Framework 2.0

Simply run the following from command line to reset the IIS registry settings for aspnet user. Usually framework directory for .Net Framework 2.0 resides under C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727

Sys.WebForms.PageRequestManagerParserErrorException + Ajax

Gaurav Taneja — Thu, 17 Apr 2008 03:50:21 GMT

Well while implementing Ajax i had received error due to Sys.WebForms.PageRequestManagerParserErrorException

the best solution that i could figure out to over come is catch this exception and byPass it.. if any body has a good way of catching this exception why this arise Please do let me know.

i has to modify the script

<script type="text/javascript">
 Sys.WebForms.PageRequestManager.getInstance().add_endRequest(function (sender, args)
 {

 if (args.get_error()!=null)
 {

 if (args.get_error().name === 'Sys.WebForms.PageRequestManagerParserErrorException')
 {

 // remember to set errorHandled = true to keep from getting a popup from the AJAX library itself
 args.set_errorHandled(true);
 window.location.href='Login.aspx?Message=SessionExpired';
 }
 if ( args.get_error().name === 'Sys.WebForms.PageRequestManagerTimeoutException')
 {

 // remember to set errorHandled = true to keep from getting a popup from the AJAX library itself
 args.set_errorHandled(true);
 window.location.href='Login.aspx?Message=SessionExpired';
 }

 }
 }
 );
 </script>

Passing Multiple Fields With GridView HyperLink Column

Gaurav Taneja — Tue, 08 Apr 2008 04:42:22 GMT

Below is the solution

<asp:GridView ID="gvSubject" runat="server" >

<asp:HyperLinkField DataTextField="CategoryName" DataNavigateUrlFields="SubjectID,SubjectName,Description" DataNavigateUrlFormatString="TargetPage.aspx?SubjectID={0}&SubjectName={1}&description={2}" />

</Columns>

</asp:GridView>

Checks Image Exist at an URL

Gaurav Taneja — Mon, 07 Apr 2008 03:30:04 GMT

public static bool CheckImageExist(string strImageURL)
        {
            bool blnImageExist = true;
            System.Net.HttpWebRequest httpImageRequest = null;
            System.Net.HttpWebResponse httpImageResponse = null;

            // Sends the HttpWebRequest and waits for the response.
            try
            {
                httpImageRequest = (System.Net.HttpWebRequest)System.Net.WebRequest.Create(strImageURL);
                httpImageResponse = (System.Net.HttpWebResponse)httpImageRequest.GetResponse();
            }
            catch (Exception ex)
            {
                blnImageExist = false;
            }

            return blnImageExist;
        }

WrapCharacters

Gaurav Taneja — Mon, 07 Apr 2008 03:27:56 GMT

WrapCharacters

public static string WrapCharacters(object objstr, int intNum)
 {
 if (objstr == System.DBNull.Value)
 { return ""; }

 string str = (string)objstr;
 int intLen = str.Length / intNum;
 int intInsertedChars = 0;

 if (intLen < 1)
 {
 return str;
 }
 int intStartIndex = 0;
 if (str.IndexOf(" ", 0) < intNum && str.IndexOf(" ", 0) != -1)
 {
 intStartIndex = str.IndexOf(" ", 0) + 1;
 intLen = str.Length - intStartIndex;
 intLen = intLen / intNum;
 }
 for (int intCount = 0; intCount < intLen; intCount++)
 {

 if (intCount > 0)
 intStartIndex = intCount * intNum + 1;

 if (str.IndexOf(" ", intStartIndex) == -1 || str.IndexOf(" ", intStartIndex) > intNum)
 {
 int intInsertIndex = (intNum * intCount) + intNum + intInsertedChars;
 string strSubPart = "";
 intStartIndex = intStartIndex + intInsertedChars;
 if (intStartIndex + intNum > str.Length)
 {
 strSubPart = str.Substring(intStartIndex, str.Length - intStartIndex);
 }
 else
 {
 strSubPart = str.Substring(intStartIndex, intNum);
 }
 if (strSubPart.IndexOf(" ") == -1)
 {
 str = str.Insert(intInsertIndex, " ");
 intInsertedChars++;
 }

 }
 }
 return str.Trim();
 }