My Work

select query to compare one column with another column in SQL.

2014-01-06T15:11:00.000+05:30

ID Column to be Checked if Exists in IDTemp, Display Result Column.

SELECT a.*, CASE WHEN a.ID IN (b.IDTEMP) THEN 'Yes' ELSE 'No' END AS [Result]

FROM TempTable a

FULL JOIN

(

SELECT IDTemp

FROM TempTable

GROUP BY IDTemp

HAVING count(IDTemp) >= 1

) b ON a.ID = b.IDTemp

ORDER BY a.ID

OUTPUT:

Parallel looping in .Net

2013-10-21T09:30:00.000+05:30

Parallel.For method loops the For loop in a parallel order.
This function is a time saving function.
I used this function while sending emails to list of customers, which took less time to execute comparing to the normal For loop because it uses the Threading class.

Example:
VB.Net

Imports System.Threading.Tasks

Module Example
   Public Sub Main()
      Dim result As ParallelLoopResult = Parallel.For(0, 100, Sub(ctr)
                                                                 Dim rnd As New Random(ctr * 100000)
                                                                 Dim bytes(99) As Byte
                                                                 rnd.NextBytes(bytes)
                                                                 Dim sum As Integer 
                                                                 For Each byt In bytes
                                                                    sum += byt
                                                                 Next
                                                                 Console.WriteLine("Iteration {0,2}: {1:N0}", ctr, sum)
                                                              End Sub)
      Console.WriteLine("Result: {0}", If(result.IsCompleted, "Completed Normally", 
                                                             String.Format("Completed to {0}", result.LowestBreakIteration)))
   End Sub 
End Module 
' The following is a portion of the output displayed by the example: 
'       Iteration  0: 12,509 
'       Iteration 50: 12,823 
'       Iteration 51: 11,275 
'       Iteration 52: 12,531 
'       Iteration  1: 13,007 
'       Iteration 53: 13,799 
'       Iteration  4: 12,945 
'       Iteration  2: 13,246 
'       Iteration 54: 13,008 
'       Iteration 55: 12,727 
'       Iteration 56: 13,223 
'       Iteration 57: 13,717 
'       Iteration  5: 12,679 
'       Iteration  3: 12,455 
'       Iteration 58: 12,669 
'       Iteration 59: 11,882 
'       Iteration  6: 13,167 
'       ... 
'       Iteration 92: 12,275 
'       Iteration 93: 13,282 
'       Iteration 94: 12,745 
'       Iteration 95: 11,957 
'       Iteration 96: 12,455 
'       Result: Completed Normally

C#

using System;
using System.Threading.Tasks;

public class Example
{
   public static void Main()
   {
      ParallelLoopResult result = Parallel.For(0, 100, ctr => { Random rnd = new Random(ctr * 100000);
                                                                Byte[] bytes = new Byte[100];
                                                                rnd.NextBytes(bytes);
                                                                int sum = 0;
                                                                foreach(var byt in bytes)
                                                                    sum += byt;
                                                                Console.WriteLine("Iteration {0,2}: {1:N0}", ctr, sum);
                                                              });
      Console.WriteLine("Result: {0}", result.IsCompleted ? "Completed Normally" : 
                                                             String.Format("Completed to {0}", result.LowestBreakIteration));
   }
}
// The following is a portion of the output displayed by the example: 
//       Iteration  0: 12,509 
//       Iteration 50: 12,823 
//       Iteration 51: 11,275 
//       Iteration 52: 12,531 
//       Iteration  1: 13,007 
//       Iteration 53: 13,799 
//       Iteration  4: 12,945 
//       Iteration  2: 13,246 
//       Iteration 54: 13,008 
//       Iteration 55: 12,727 
//       Iteration 56: 13,223 
//       Iteration 57: 13,717 
//       Iteration  5: 12,679 
//       Iteration  3: 12,455 
//       Iteration 58: 12,669 
//       Iteration 59: 11,882 
//       Iteration  6: 13,167 
//       ... 
//       Iteration 92: 12,275 
//       Iteration 93: 13,282 
//       Iteration 94: 12,745 
//       Iteration 95: 11,957 
//       Iteration 96: 12,455 
//       Result: Completed Normally

Passing comma separated values in Select statement dynamically

2013-08-13T08:15:00.001+05:30

The split functions splits the given values. click here to get the split function

declare @idList varchar(max)
set @idList = 'Vijay,Ranveer'
select * from tbldata where name in (select val from dbo.split(@idList,','))

Bind PieChartControl in Code behind

2013-08-13T07:56:00.001+05:30

With PieChartControl

Dim CashSeries As New Series("Cash", ViewType.Pie)

With CashSeries

' Populate the series with points.
.Points.Add(New SeriesPoint("Food", New Double() {30.0}))
.Points.Add(New SeriesPoint("Others", New Double() {40.0}))
.Points.Add(New SeriesPoint("Beverages", New Double() {30.0}))

' Adjust the point options of the series.
.Label.PointOptions.PointView = PointView.Values
.Label.PointOptions.ValueNumericOptions.Format = NumericFormat.Percent
.Label.PointOptions.ValueNumericOptions.Precision = 0

.LegendPointOptions.PointView = PointView.Argument

.Label.BackColor = Color.Transparent
.Label.TextColor = Color.Black
.Label.Border.Visible = False
.Label.Font = New Font("Arial", 8, FontStyle.Bold)
CType(.Label, PieSeriesLabel).Position = PieSeriesLabelPosition.Radial
CType(.Label, PieSeriesLabel).ResolveOverlappingMode = ResolveOverlappingMode.Default

''.LabelsVisibility = DevExpress.Utils.DefaultBoolean.False
.SeriesPointsSorting = SortingMode.Descending
.SeriesPointsSortingKey = PointView.Values

End With

' Add the series to the chart.
.Series.Add(CashSeries)

' Aligns the Legend section in center vise
.Legend.AlignmentVertical = LegendAlignmentVertical.Center

End With

Split function to separate the values into multiple strings using delimiter specified and returns as table

2013-07-31T08:06:00.000+05:30

Example:

delimitedString = 'Vijay,Ranveer'

delimiter = ','

CREATE FUNCTION split(
    @delimitedString NVARCHAR(MAX),
    @delimiter NVARCHAR(100)
) RETURNS @t TABLE (id INT IDENTITY(1,1), val NVARCHAR(MAX))
AS
BEGIN
    DECLARE @xml XML
    SET @xml = N'<t>' + REPLACE(@delimitedString,@delimiter,'</t><t>') + '</t>'
    INSERT INTO @t(val)
    SELECT  r.value('.','varchar(MAX)') as item
    FROM  @xml.nodes('/t') as records(r)
    RETURN
END

Set the Culture and UI Culture for ASP.NET Web Site Globalization

2013-06-03T20:00:00.001+05:30

The following shows the Web site culture for UK and US

UK:
<system.web>
<globalization uiCulture="en-GB" culture="en-GB"/>
</system.web>

US:
<system.web>
<globalization uiCulture="es" culture="es-MX"/>
</system.web>

Dynamically create a Zip File and download in a web site

2013-06-03T20:00:00.000+05:30

creates a ZIP file using some collection of files and downloads the zip file.

Code Source File

Change Master Page dynamically in code behind.

2013-05-21T15:10:00.001+05:30

VB.Net

Protected Sub Page_PreInit(ByVal sender As Object, ByVal e As EventArgs) Handles Me.PreInit

Try

Me.MasterPageFile = "~/Main/PageMaster.Master"

Catch ex As Exception

End Try

End Sub

Page_PreInit(object sender, EventArgs e)

{

try {

this.MasterPageFile = "~/Main/PageMaster.Master";

} catch (Exception ex) {

}

Adding a Web Service reference dynamically at Runtime

2013-04-07T22:11:00.000+05:30

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml
Imports System.Data.SqlClient
Imports System.Data
Imports System.IO

Imports System.Security.Permissions
Imports System.Web.Services.Description
Imports System.CodeDom
Imports System.CodeDom.Compiler
Imports System.Reflection

Namespace WSRuntime

Friend Class WsProxy
<SecurityPermissionAttribute(SecurityAction.Demand, Unrestricted:=True)> _
Friend Shared Function CallWebService(ByVal webServiceAsmxUrl As String, ByVal serviceName As String, ByVal methodName As String, ByVal args As Object()) As Object

Dim client As New System.Net.WebClient()

' Connect To the web service

Dim stream As System.IO.Stream = client.OpenRead(webServiceAsmxUrl + "?wsdl")

' Now read the WSDL file describing a service.

Dim description As ServiceDescription = ServiceDescription.Read(stream)

''// LOAD THE DOM /////////

' Initialize a service description importer.

Dim importer As New ServiceDescriptionImporter()

importer.ProtocolName = "Soap12"
' Use SOAP 1.2.
importer.AddServiceDescription(description, Nothing, Nothing)

' Generate a proxy client.

importer.Style = ServiceDescriptionImportStyle.Client

' Generate properties to represent primitive values.

importer.CodeGenerationOptions = System.Xml.Serialization.CodeGenerationOptions.GenerateProperties

' Initialize a Code-DOM tree into which we will import the service.

Dim nmspace As New CodeNamespace()

Dim unit1 As New CodeCompileUnit()

unit1.Namespaces.Add(nmspace)

' Import the service into the Code-DOM tree. This creates proxy code that uses the service.

Dim warning As ServiceDescriptionImportWarnings = importer.Import(nmspace, unit1)

If warning = 0 Then
' If zero then we are good to go

' Generate the proxy code

Dim provider1 As CodeDomProvider = CodeDomProvider.CreateProvider("VisualBasic")

' Compile the assembly proxy with the appropriate references

Dim assemblyReferences As String() = New String(4) {"System.dll", "System.Web.Services.dll", "System.Web.dll", "System.Xml.dll", "System.Data.dll"}

Dim parms As New CompilerParameters(assemblyReferences)

Dim results As CompilerResults = provider1.CompileAssemblyFromDom(parms, unit1)

' Check For Errors

If results.Errors.Count > 0 Then

For Each oops As CompilerError In results.Errors

System.Diagnostics.Debug.WriteLine("========Compiler error============")

System.Diagnostics.Debug.WriteLine(oops.ErrorText)
Next

Throw New System.Exception("Compile Error Occured calling webservice. Check Debug ouput window.")
End If

' Finally, Invoke the web service method

Dim wsvcClass As Object = results.CompiledAssembly.CreateInstance(serviceName)

Dim mi As MethodInfo = wsvcClass.[GetType]().GetMethod(methodName)

Return mi.Invoke(wsvcClass, args)
Else
Return Nothing
End If

End Function
End Class

End Namespace

Create VB.Net class dynamically from Sql Server table

2013-04-07T22:09:00.001+05:30

-- This script will build a class file with
-- private fields and public properties from
-- the table specified in the @TableName variable.
----------------------------------

DECLARE @TableName varchar(50)
SET @TableName = 'TableName'

SET NOCOUNT ON; -- Hide row count so printed output is not affected

DECLARE @DataTypeName varchar(50)
DECLARE @NewLine char
DECLARE @ColumnName varchar(50)
DECLARE @DataType varchar(50)
DECLARE @FieldName varchar(50)

--SET @NewLine = char(13)

-- Start Output
--PRINT '' + @NewLine;
PRINT 'Public Class ' + @TableName;
PRINT '';
PRINT '#Region "Declarations"';
PRINT '';

-- Declarations
DECLARE DeclarationCursor CURSOR SCROLL FOR
SELECT
columns.name [ColumnName],
CASE
WHEN columns.system_type_id = 34 THEN 'Byte[]'
WHEN columns.system_type_id = 35 THEN 'String'
WHEN columns.system_type_id = 36 THEN 'System.Guid'
WHEN columns.system_type_id = 48 THEN 'Byte'
WHEN columns.system_type_id = 52 THEN 'Short'
WHEN columns.system_type_id = 56 THEN 'Integer'
WHEN columns.system_type_id = 58 THEN 'System.DateTime'
WHEN columns.system_type_id = 59 THEN 'float'
WHEN columns.system_type_id = 60 THEN 'Decimal'
WHEN columns.system_type_id = 61 THEN 'System.DateTime'
WHEN columns.system_type_id = 62 THEN 'double'
WHEN columns.system_type_id = 98 THEN 'Object'
WHEN columns.system_type_id = 99 THEN 'String'
WHEN columns.system_type_id = 104 THEN 'Boolean'
WHEN columns.system_type_id = 106 THEN 'Decimal'
WHEN columns.system_type_id = 108 THEN 'Decimal'
WHEN columns.system_type_id = 122 THEN 'Decimal'
WHEN columns.system_type_id = 127 THEN 'long'
WHEN columns.system_type_id = 165 THEN 'Byte[]'
WHEN columns.system_type_id = 167 THEN 'String'
WHEN columns.system_type_id = 173 THEN 'Byte[]'
WHEN columns.system_type_id = 175 THEN 'string'
WHEN columns.system_type_id = 189 THEN 'Long'
WHEN columns.system_type_id = 231 THEN 'String'
WHEN columns.system_type_id = 239 THEN 'String'
WHEN columns.system_type_id = 241 THEN 'String'
WHEN columns.system_type_id = 241 THEN 'String'
END [DataType]
FROM sys.tables tables
INNER JOIN sys.schemas schemas ON (tables.schema_id = schemas.schema_id )
INNER JOIN sys.columns columns ON (columns.object_id = tables.object_id)
WHERE
tables.name = @TableName
ORDER BY
columns.object_id ASC;

OPEN DeclarationCursor;

FETCH NEXT FROM DeclarationCursor
INTO @ColumnName, @DataType;

WHILE @@FETCH_STATUS = 0
BEGIN
SET @FieldName = '_' + LOWER(SUBSTRING(@ColumnName, 1,1)) + SUBSTRING(@ColumnName, 2, LEN(@ColumnName)-1)
PRINT ' Private ' + @FieldName + ' As ' + @DataType;

FETCH NEXT FROM DeclarationCursor
INTO @ColumnName, @DataType;
END
PRINT '';
PRINT '#End Region';
PRINT '';
PRINT '#Region "Properties"';
PRINT '';

FETCH FIRST FROM DeclarationCursor
INTO @ColumnName, @DataType;

WHILE @@FETCH_STATUS = 0
BEGIN
SET @FieldName = '_' + LOWER(SUBSTRING(@ColumnName, 1,1)) + SUBSTRING(@ColumnName, 2, LEN(@ColumnName)-1)

PRINT ' Public Property ' + @ColumnName + ' As ' + @DataType;
PRINT ' Get';
PRINT ' Return ' + @FieldName;
PRINT ' End Get';
PRINT ' Set';
PRINT ' ' + @FieldName + ' = value';
PRINT ' End Set';
PRINT ' End Property';
PRINT '';

FETCH NEXT FROM DeclarationCursor
INTO @ColumnName, @DataType;
END

PRINT '';
PRINT '#End Region';
PRINT '';

DECLARE @FIELDS varchar(max)
SET @FIELDS = ''

FETCH FIRST FROM DeclarationCursor
INTO @ColumnName, @DataType;

WHILE @@FETCH_STATUS = 0
BEGIN
SET @FieldName = LOWER(SUBSTRING(@ColumnName, 1,1)) + SUBSTRING(@ColumnName, 2, LEN(@ColumnName)-1)
SET @FIELDS = @FIELDS + 'byval ' + @FieldName + ' as ' + @DataType + ', '

FETCH NEXT FROM DeclarationCursor
INTO @ColumnName, @DataType;
END

SET @FIELDS = SUBSTRING(@FIELDS, 1, (LEN(@FIELDS) - 1))

PRINT '#Region "Constructors"';
PRINT '';
PRINT ' Public Sub New()';
PRINT ' ';
PRINT ' End Sub';
PRINT '';
PRINT ' Public Sub New(' + @FIELDS + ')'
PRINT ' Me.New()';
PRINT ' End Sub';
PRINT '';
PRINT '#End Region';
PRINT '';

CLOSE DeclarationCursor;
DEALLOCATE DeclarationCursor;

-- End of Class
PRINT 'End Class';

Get ASPxClientControl object in JavaScript using ClientInstance name of the editor control

2013-04-06T13:48:00.001+05:30

does not works.

//var ASPxClientControl = document.getElementById(ASPxClientControlClientId);

This one will work.
var ASPxClientControl = ASPxClientControl.GetControlCollection().GetByName(ASPxClientControlClientId);
alert(ASPxClientControl.GetText());

Web page Scrollbar design using CSS

2013-03-19T17:50:00.001+05:30

Works only in chrome.

::-webkit-scrollbar{width:11px;height:17px;background-color:#f0f0f0;border:none}
::-webkit-scrollbar-thumb{background-color:#666666;border:1px solid #f0f0f0; -webkit-box-shadow: inset 0 0 6px rgba(0,0,0,0.3); border-radius: 10px;}
::-webkit-scrollbar-thumb:hover{background-color:#dadada}
::-webkit-scrollbar-thumb:active{background-color:#dadada}
::-webkit-scrollbar-thumb:disabled{background-color:#666666}
::-webkit-scrollbar-corner{background-color:#f0f0f0}

To check Image is present or not in SQL table.

2013-03-19T17:42:00.002+05:30

SELECT CASE ISNULL(CONVERT(VARCHAR(255),CONVERT(VARBINARY(255),Image_Column_Name)),'') WHEN '' Then '0' ELSE '1' END AS [ImageExists]
FROM Table_Name

Update Columns of table from another table in SQL

2013-03-19T17:39:00.001+05:30

update T2
set T2.Column = T1.Column
from Table2 T2
inner join Table T1
on T2.Key = T1.key

where T2.Key is null -- and other conditions you might want

Leave image column and select other columns from table in SQL

2013-03-19T17:37:00.000+05:30

DECLARE @strTableName VARCHAR(MAX), @strcolumn VARCHAR(MAX), @strSQL VARCHAR(MAX);

SET @strTableName = 'Table_Name';
SET @strcolumn='';
SELECT @strcolumn=@strcolumn+column_name+',' FROM INFORMATION_SCHEMA.COLUMNS WHERE table_name=@strTableName
AND data_type NOT IN ('image');

IF CHARINDEX(',', REVERSE(@strcolumn))=1
BEGIN
SELECT @strcolumn=SUBSTRING(@strcolumn,0,LEN(@strcolumn));
END

SET @strSQL = 'select ' + @strcolumn + ' from ' + @strTableName + ' WHERE Condition';

EXEC (@strSQL);

Using jQuery to Detect if User has Scrolled to the Bottom or Top of a Page

2013-03-05T17:14:00.001+05:30

To detect the page is scrolled to the Top or bottom.

<script type="text/javascript" language="javascript">
         $(function () {
             var $win = $(window);

             $win.scroll(function () {
                 if ($win.scrollTop() == 0)
                     alert('Scrolled to Page Top');
                 else if ($win.height() + $win.scrollTop()
                                == $(document).height()) {
                     alert('Scrolled to Page Bottom');
                 }
             });
         });
    </script>

Response.Redirect not working while Callback using DevExpress Controls

2013-03-04T19:04:00.000+05:30

DevExpress.Web.ASPxClasses.ASPxWebControl.RedirectOnCallback("URL")

Get the current source path for the website in code behind.

2013-02-14T11:45:00.001+05:30

System.AppDomain.CurrentDomain.BaseDirectory()

Set Default Image to ASPXImageSlider in Javascript

2013-02-09T12:06:00.001+05:30

ASPxClientImageSlider.SetActiveItem(ASPxClientImageSlider.GetItemByName('Default.jpg'));

This will set the default Image for Devexpress Image Slider in Javascript.

Get Selected Image Text from ASPxImageSlider in Javascript

2013-02-09T12:02:00.002+05:30

ASPxClientImageSlider.GetItem(ASPxClientImageSlider.GetActiveItemIndex()).text;

This will get the name of the image selected from the Devexpress Image Slider in Javascript.

Set Height and Width dynamically for ASPxPopupControl in Javascript

2013-01-25T11:43:00.000+05:30

ASPxClientPopupControl.SetSize(
width : int,
height : int
)

Sets the height and width of the popup dynamically in Javascript.

Assigning Client-Side event Javascript function for ASPxButton dynamically.

2013-01-23T11:59:00.000+05:30

We can pass a function to assign the button or put a static function in the button event.

function AssignScripts(DynamicFunction) {

ASPxClientButtonStatic.Click.ClearHandlers();
ASPxClientButtonStatic.Click.AddHandler(function (s, e) { alert('Static Function alert.'); });

ASPxClientButtonDynamic.Click.ClearHandlers();
ASPxClientButtonDynamic.Click.AddHandler(DynamicFunction);

}

function OnInitButtonDynamic(s,e) {
AssignScripts(DynamicFunctionAlert);
}

function DynamicFunctionAlert(s,e) {
alert('Dynamic Function alert.');
}

This worked for be prety good.

CallByName with ByRef parameters

2012-12-05T17:24:00.002+05:30

CallByName does not appear to work with ByRef params.
but i found that this works amazingly well with ByRef and ByVal parmas

Class CommonClass
    Sub HelloWorld(ByRef message As String)
        message = "Hi " & message 
    End Sub
End Class

Private Sub CallMethod()
    Dim objCommonClass As New CommonClass
    Dim strReturnMessage As String = "Vijay"
objCommonClass.GetType().GetMethod("HelloWorld").Invoke(objCommonFunction,strReturnMessage)
End Sub

This works great.

The strReturnMessage contains the message with the prefix of "Hi"

Calling a Class Function or Method using a string name.

2012-12-05T17:16:00.001+05:30

VB.Net:

Class CommonClass
    Function HelloWorld(ByVal message As String) As Boolean
        Return message
    End Function 
End Class

In the calling method call like the following.

Private Sub CallMethod()
    Dim objCommonClass As New CommonClass
    Dim strReturnMessage As String = CallByName(objCommonClass, "HelloWorld", 
       Microsoft.VisualBasic.CallType.Method, "Hello"))
End Sub

The strReturnMessage has the return value.

Open an URL in Windows Application.

2012-11-19T17:32:00.000+05:30

[VB]
Private Sub OpenURL()
System.Diagnostics.Process.Start("http://www.vijaykumarmahato.blogspot.com/")
End Sub

[C#]

private void OpenURL()
{
System.Diagnostics.Process.Start("http://www.vijaykumarmahato.blogspot.com/");
}