get Running total from Array

-


        Dim data() As Int16 = {1, 2, 3, 5, 6, 7, 3}
        Dim U As Integer = data.Aggregate(0, Function(a, b) a + b)

Comments

Post a Comment

Popular posts from this blog

Rebuild Index

-
DECLARE @TableName VARCHAR(255) DECLARE @sql NVARCHAR(500) DECLARE @fillfactor INT SET @fillfactor = 80 DECLARE TableCursor CURSOR FOR SELECT OBJECT_SCHEMA_NAME([object_id])+'.'+name AS TableName FROM sys.tables OPEN TableCursor FETCH NEXT FROM TableCursor INTO @TableName WHILE @@FETCH_STATUS = 0 BEGIN SET @sql = 'ALTER INDEX ALL ON ' + @TableName + ' REBUILD WITH (FILLFACTOR = ' + CONVERT(VARCHAR(3),@fillfactor) + ')' EXEC (@sql) FETCH NEXT FROM TableCursor INTO @TableName END CLOSE TableCursor DEALLOCATE TableCursor GO
Read more

Exclude property of Class Object from Serialization

-
Exclude property of Class Object from Serialization   Json.NET has the ability to conditionally serialize properties by placing a ShouldSerialize method on a class. This functionality is similar to the XmlSerializer ShouldSerialize feature.     ShouldSerialize To conditionally serialize a property, add a method that returns boolean with the same name as the property and then prefix the method name with ShouldSerialize. The result of the method determines whether the property is serialized. If the method returns true then the property will be serialized, if it returns false then the property will be skipped.     Live Code We need to exclude hsn and Doc_issue when they are nothing in runtime (Same is done Nothing when not to be Serialized)   Public Structure Json_Parent         Public Property gstin As String         Public Property fp As String           Public P...
Read more

Multiple Connection from Config File

-
Config File Change     AppDB_1 ;Data Source= MyPC\Sql2008 " />     AppDB_2 " connectionString="Password= 123456 ;Persist Security Info=False;User ID=sa;Initial Catalog= AppDB_2 ;Data Source=MyPC\Sql2008" />    Front End Change Dim strConnection As String = System.Configuration.ConfigurationManager.ConnectionStrings(" AppDB_1 ").ToString cnAppDB_1 = New SqlClient.SqlConnection(strConnection) cnAppDB_1 .Open() System.Configuration.ConfigurationManager.ConnectionStrings(" AppDB_2 ").ToString cnAppDB_2  = New SqlClient.SqlConnection(strConnection) cnAppDB_2 .Open()
Read more