Gaurav Taneja

Check & Kill Process

{

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;

posted @ Monday, June 29, 2009 5:36 AM | Feedback (0)

Truncating All Tables

Create

Procedure GT_DeleteRecords_AllTables

As

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

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'

posted @ Monday, June 29, 2009 5:21 AM | Feedback (0)

To change the colour of TAB control

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();

}

posted @ Wednesday, December 10, 2008 11:34 PM | Feedback (0)

Creating a Dll(asembly dynamically) + vb.net

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

posted @ Wednesday, December 10, 2008 11:32 PM | Feedback (0)

Reading Assembly into bytes + vb.net

Reading a dll into bytes

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

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

posted @ Wednesday, December 10, 2008 11:25 PM | Feedback (0)

Displaying the controls of page

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()})

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()})

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

posted @ Wednesday, December 10, 2008 10:51 PM | Feedback (0)

Fecting Page controls Dynamically + vb.net

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)

End Function

How to call this function

FindPageControl(Page.Controls, strPgName)

posted @ Wednesday, December 10, 2008 10:49 PM | Feedback (0)

Iterating through controls in form + vb.net

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

posted @ Monday, August 04, 2008 5:23 AM | Feedback (0)

Count No of Procedure in Database

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

posted @ Monday, May 05, 2008 5:02 PM | Feedback (1)

URL rewrtting

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

posted @ Thursday, April 17, 2008 7:02 PM | Feedback (0)

Failed to access IIS metabase problem

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

posted @ Thursday, April 17, 2008 7:01 PM | Feedback (0)

Sys.WebForms.PageRequestManagerParserErrorException + Ajax

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>

posted @ Wednesday, April 16, 2008 10:50 PM | Feedback (3)

Passing Multiple Fields With GridView HyperLink Column

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>

posted @ Monday, April 07, 2008 11:42 PM | Feedback (0)

Checks Image Exist at an URL

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;
        }

posted @ Sunday, April 06, 2008 10:30 PM | Feedback (0)

WrapCharacters

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();
 }

posted @ Sunday, April 06, 2008 10:27 PM | Feedback (0)

Gaurav Taneja

News

Archives

Post Categories

Image Galleries

Atlas

Error

OutLook

SharePointService

Usefull Site Links