sâmbătă, 29 iunie 2013

On Replacing in Strings in SQL Server - part 1

It’s easy: use the replace function in T-SQL

Select replace('aaaaax', 'a', 'b')

But what if we want to replace multiple strings? We have call replace multiple time within itself until it gets so ugly we immediately disown the code and send it to a boarding school in Switzerland just so we don’t see it anymore:

Select replace(replace(replace(replace('abcdefgh', 'a', 'b'), 'b', 'c'), 'c','d'),'d','e')

And if there are 10 characters to replace, it will look like some monsters from deep inside the depths of hell. Or whatever.

Testing

Let’s first create a table containing a sequence of integers, from 1 to 10000. The first time I saw this technique was in Louis Davidson’s book  

Pro SQL Server 2008 Relational Database Design and Implementation (http://www.amazon.com/Server-Relational-Database-Implementation-Experts/dp/143020866X/ref=sr_1_5?ie=UTF8&qid=1372519918&sr=8-5&keywords=louis+davidson+pro+sql+server)

I really like this approach, so here it is:

USE [Tests]
GO
 
/****** Object:  Table [dbo].[sequence]    Script Date: 6/29/2013 8:35:09 AM ******/
SET ANSI_NULLS ON
GO
 
SET QUOTED_IDENTIFIER ON
GO
 
CREATE TABLE [dbo].[sequence](
    [Number] [int] NULL
) ON [PRIMARY]
 
GO
 
 
;with digits as
(
select (1) as number
Union
select (2) as number
Union
select (3) as number
Union
select (4) as number
Union
select (5) as number
Union
select (6) as number
Union
select (7) as number
Union
select (8) as number
Union
select (9) as number
Union
select (0) as number
)
insert into sequence
select d1.number + 10*d2.number+100*d3.number+1000*d4.number +1 from digits d1 cross join digits d2
cross join digits d3
cross join digits d4

Let’s create a test table that will contain just one column (name) and 10000 rows. This table will be used to test the different replace strategies we will consider.

USE [Tests]
GO
 
/****** Object:  Table [dbo].[ReplaceTest]    Script Date: 6/29/2013 11:29:28 PM ******/
SET ANSI_NULLS ON
GO
 
SET QUOTED_IDENTIFIER ON
GO
 
CREATE TABLE [dbo].[ReplaceTest](
    [Name] [nvarchar](100) NULL
) ON [PRIMARY]
 
GO
 
with InitialString as
(Select 'abcdefghijklmnopqrstuvwxyz' as initial)
insert into ReplaceTest
select InitialString.initial+cast(number as varchar(5)) 
from InitialString cross join sequence

So now we have table containing 10000 strings. Notice there is no index on this table, and this is by design. The goal here is to analyze the replace strategies without indexing the table, focusing only on the algorithm.

The Replace Code from Hell

The first replace code to test is the obvious one:

select replace(replace(replace(replace(replace(ReplaceTest.Name,'a', 'b'), 'b', 'c'), 'c', 'd'), 'd', 'e'), 'e', 'f') from ReplaceTest

Using a trace on the sql server, let’s look at the number of reads and query duration for the code above:

ReplaceOfReplace

So we have 129 reads and 380 ms duration.

Replacing using CTE – A Bad Idea?

Let’s do things… a bit differently. Let’s do some replacing using CTE, recursive CTE and create a more configurable, more friendly SQL code.

;WITH s AS 
(SELECT ROW_NUMBER() OVER (ORDER BY ReplaceTest.Name) AS rono, ReplaceTest.Name AS s FROM dbo.ReplaceTest),
replacetble (id, toReplace, replaceWith)
AS
(select 1 as id, 'a' as toReplace, 'b' as replaceWith
Union ALL
select 2 as id,  'b', 'c'
Union ALL
select 3 as id,   'c', 'd'
Union ALL
select 4 as id,  'd', 'e'
Union ALL
select 5 as id,  'e', 'f'),
replacenow(z, idr ) AS
(
SELECT REPLACE(s.s,(select COALESCE(replacetble.toReplace,'')  from replacetble where id =1 ),(select COALESCE(replacetble.replaceWith,'') from replacetble where id =1 ))AS z,1 AS idr FROM s
UNION ALL
SELECT REPLACE(replacenow.z,(SELECT COALESCE(replacetble.toReplace,'') FROM replacetble
WHERE id = idr),(SELECT COALESCE(replacetble.replaceWith,'') FROM replacetble
WHERE id = idr)) AS z, idr+1 FROM replacenow 
WHERE idr>=1 AND idr<=LEN(replacenow.z)
)
SELECT z,idr FROM replacenow 
WHERE idr=(SELECT max(id) FROM replacetble)+1

Two things are important here: The replacetable CTE that simply defines the rules of the replace (first replace ‘a’ with ‘b’, then ‘b’ with ‘c’ and so on) and the replacenow CTE that uses a recursive strategy and actually performs the replace. I think this code looks better than the first one, it is more configurable - simply add a new UNION ALL at the end of the replacetable CTE with the string you’d want to replace:

Union ALL
select 6 as id,  'f', 'g'

But, it has a problem. It is very slow. How slow? Take a look

Replace_CTE

So we have 583162 reads, we have 1935 ms duration and we even have 221 writes, just to show how slow this code really is.

Coming up in part two: A different take on the whole recursive CTE idea and we’ll have fun with some SQL CLR.

Cheers.

duminică, 27 februarie 2011

Unit Testing TSQL in SQL Server 2005and the tSQLT Framework–part 1

 

Installing tSQLT

Installing tSQLT is pretty simple. You can find the .zip file containing two SQL script files here http://sourceforge.net/projects/tsqlt/ . After downloading the zip and extracting it, run the two .sql files on your desired database in this order: SetClrEnabled.sql, tSQLt.class.sql. That’s it, tSQLT has been installed.

There is also a tutorial here: http://www2.sqlity.net/articles/tSQLtTutorial and an user guide here: http://www2.sqlity.net/tsqlt/tsqlt-user-guide 

After running tSQLt.class.sql, you may get the following warnings:

Compiled at 2011-02-27 12:57:27.803
The module 'DefaultResultFormatter' depends on the missing object 'tSQLt.TableToText'. The module will still be created; however, it cannot run successfully until the object exists.
The module 'RunTestClass' depends on the missing object 'tSQLt.Run'. The module will still be created; however, it cannot run successfully until the object exists.
The module 'Run' depends on the missing object 'tSQLt.private_RunTestClass'. The module will still be created; however, it cannot run successfully until the object exists.
The module 'SetFakeViewOff' depends on the missing object 'tSQLt.private_SetFakeViewOff_SingleView'. The module will still be created; however, it cannot run successfully until the object exists.


You can ignore them for now and take a look at your database, and under  stored procedures you should see a whole bunch using the tsql schema:

tsql_storedprocs

tSQLt created those, along with a view, some tables, table-valued functions, scalar-valued functions and other objects, including a CLR assembly.

Testing with tSQLt

Let’s start with a simple test. Testing a scalar-valued function that returns the last working day of previous month.

Here is the function we want to test:

CREATE FUNCTION [dbo].[fnGetLastWorkingDayOfPreviousMonth] 
(
-- Add the parameters for the function here

)
RETURNS datetime
AS
BEGIN
declare @lastdayofpreviousmonth datetime
declare @lastworkingdayofpreviousmonth datetime
if(@@DATEFIRST=7)
begin
select @lastdayofpreviousmonth = DATEADD(s,-1,DATEADD(mm, DATEDIFF(m,0,GETDATE()),0))
if(DATEPART(dw, @lastdayofpreviousmonth) between 2 and 6)
set @lastworkingdayofpreviousmonth= @lastdayofpreviousmonth
else
set @lastworkingdayofpreviousmonth = DATEADD(day, -(1+DATEPART(dw, @lastdayofpreviousmonth)%@@DATEFIRST), @lastdayofpreviousmonth)
end
return @lastworkingdayofpreviousmonth

END

First thing to do is set up a test class. This is essentially a schema we assign to all our tests. Using this class, we can run all tests inside it, or choose to run them selectively.

EXEC tSQLt.NewTestClass 'DemoTSQLT';
GO

Creating a test for our function is as easy as creating a stored procedure having the schema 'DemoTSQLT'.  tSQLt provides a nice way to test if two values are equal : tSQLt.assertEquals. The test for our function would look like this:

Create procedure [DemoTSQLT].[test last working day in previous month]
AS
BEGIN
declare @expectedResult datetime
set @expectedResult = cast('01-31-2011' as datetime)
declare @actualResult datetime
select @actualResult = dbo.fnGetLastWorkingDayOfPreviousMonth() 

exec tSQLt.assertEquals @expectedResult, @actualResult
END
GO

Because the function to test was designed to include the time portion of the date, effectively making ‘2011-01-31 23:59:59.000’ the last working day of previous month, this test will fail spectacularly. To run the test and see it fail, we can simply do the following:

tsqlt.Run 'DemoTSQLT'
GO

The output of this test can be seen bellow:

outputasserteqaulsfailed

Here, we ran all tests in  ‘DemoTSQLT ‘ class. To run a specific test, change tsqlt.Run to tsqlt.RunTest like this:

tsqlt.RunTest '[DemoTSQLT].[test last working day in previous month]'
GO

Let’s change the test a bit: Where we cast ‘01-31-2011’  as datetime, let’s change that to ‘2011-01-31 23:59:59.000'. Running the test (tsqlt.Run ‘DemoTSQLT’) now will have this result:

+---------------------+
|Test Execution Sumary|
+---------------------+
 
|No|Test Case Name                                       |Result |
+--+-----------------------------------------------------+-------+
|1 |[DemoTSQLT].[test last working day in previous month]|Success|
-----------------------------------------------------------------------------
Test Case Summary: 1 test case(s) executed, 1 succeeded, 0 failed, 0 errored.
-----------------------------------------------------------------------------

Test succeeded, developer happy, function is ready to be used.

There you have it. There is a lot more to tSQLt to be sure and I will try to cover it as much as possible in the next parts of the series. Have fun and happy testing.

Cheers,
Radu

duminică, 13 februarie 2011

Razor, ASP.NET MVC3 and a quick funny little app

I’ve been trying lately to keep up with Microsoft and the .NET framework but it’s been a loosing battle since the get go. The pace of which Microsoft churns out new features for .NET is amazingly scary if you are not some uber-programmer. So I’ve settled for just some areas, gave up my dreams of learning WPF and Silverlight and now I am focused on ASP.NET MVC (3).

I also have a problem with time management so, to kill  two birds with one stone, here is a little web app that keeps a time log of your actions. The idea is simple: When ever you start doing something that falls into a category or another, simply click the start button for the appropriate category and when you stop… yes, click the stop button. The difference in time (seconds, or minutes, or whatever you choose) is stored in a database, along with the date and time when you completed the action. Here is a little screen:

TimeLogScreenShot

So what do we need?

  1. ASP.NET MVC3
  2. JQuery Timers. I got mine from here: http://plugins.jquery.com/project/timers
  3. (Optional). The excellent CSS3 GitHub-like buttons from http://css3buttons.michaelhenriksen.dk/

Let’s begin. First create a new ASP.NET MVC3 Internet Application and choose Razor as your view engine. Razor is so cool, but totally different from the traditional aspx view engine. You will see why when you play a bit with it.

Create a new database with just two tables in it:

TimeLogDBSchema 

And here is the script for creating the two tables:

USE [TimeLog]
GO
IF EXISTS (SELECT * FROM sys.default_constraints WHERE object_id = OBJECT_ID(N'[dbo].[DF_LogEntry_Duration]') AND parent_object_id = OBJECT_ID(N'[dbo].[LogEntry]'))
Begin
IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[DF_LogEntry_Duration]') AND type = 'D')
BEGIN
ALTER TABLE [dbo].[LogEntry] DROP CONSTRAINT [DF_LogEntry_Duration]
END


End
GO
IF EXISTS (SELECT * FROM sys.default_constraints WHERE object_id = OBJECT_ID(N'[dbo].[DF_LogEntry_CreatedOn]') AND parent_object_id = OBJECT_ID(N'[dbo].[LogEntry]'))
Begin
IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[DF_LogEntry_CreatedOn]') AND type = 'D')
BEGIN
ALTER TABLE [dbo].[LogEntry] DROP CONSTRAINT [DF_LogEntry_CreatedOn]
END


End
GO
/****** Object: ForeignKey [FK_LogEntry_Category] Script Date: 02/13/2011 09:15:48 ******/
IF EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_LogEntry_Category]') AND parent_object_id = OBJECT_ID(N'[dbo].[LogEntry]'))
ALTER TABLE [dbo].[LogEntry] DROP CONSTRAINT [FK_LogEntry_Category]
GO
/****** Object: Table [dbo].[LogEntry] Script Date: 02/13/2011 09:15:48 ******/
IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[LogEntry]') AND type in (N'U'))
DROP TABLE [dbo].[LogEntry]
GO
/****** Object: Table [dbo].[Category] Script Date: 02/13/2011 09:15:48 ******/
IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Category]') AND type in (N'U'))
DROP TABLE [dbo].[Category]
GO
/****** Object: Table [dbo].[Category] Script Date: 02/13/2011 09:15:48 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Category]') AND type in (N'U'))
BEGIN
CREATE TABLE [dbo].[Category](
[CategoryId] [int] IDENTITY(1,1) NOT NULL,
[CategoryName] [varchar](100) NULL,
CONSTRAINT [PK_Category] PRIMARY KEY CLUSTERED
(
[CategoryId] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
END
GO
SET ANSI_PADDING OFF
GO
/****** Object: Table [dbo].[LogEntry] Script Date: 02/13/2011 09:15:48 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[LogEntry]') AND type in (N'U'))
BEGIN
CREATE TABLE [dbo].[LogEntry](
[LogId] [int] IDENTITY(1,1) NOT NULL,
[CategoryId] [int] NULL,
[Duration] [decimal](8, 2) NULL,
[CreatedOn] [datetime] NULL,
CONSTRAINT [PK_LogEntry] PRIMARY KEY CLUSTERED
(
[LogId] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
END
GO
/****** Object: Default [DF_LogEntry_Duration] Script Date: 02/13/2011 09:15:48 ******/
IF Not EXISTS (SELECT * FROM sys.default_constraints WHERE object_id = OBJECT_ID(N'[dbo].[DF_LogEntry_Duration]') AND parent_object_id = OBJECT_ID(N'[dbo].[LogEntry]'))
Begin
IF NOT EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[DF_LogEntry_Duration]') AND type = 'D')
BEGIN
ALTER TABLE [dbo].[LogEntry] ADD CONSTRAINT [DF_LogEntry_Duration] DEFAULT ((0)) FOR [Duration]
END


End
GO
/****** Object: Default [DF_LogEntry_CreatedOn] Script Date: 02/13/2011 09:15:48 ******/
IF Not EXISTS (SELECT * FROM sys.default_constraints WHERE object_id = OBJECT_ID(N'[dbo].[DF_LogEntry_CreatedOn]') AND parent_object_id = OBJECT_ID(N'[dbo].[LogEntry]'))
Begin
IF NOT EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[DF_LogEntry_CreatedOn]') AND type = 'D')
BEGIN
ALTER TABLE [dbo].[LogEntry] ADD CONSTRAINT [DF_LogEntry_CreatedOn] DEFAULT (getdate()) FOR [CreatedOn]
END


End
GO
/****** Object: ForeignKey [FK_LogEntry_Category] Script Date: 02/13/2011 09:15:48 ******/
IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_LogEntry_Category]') AND parent_object_id = OBJECT_ID(N'[dbo].[LogEntry]'))
ALTER TABLE [dbo].[LogEntry] WITH CHECK ADD CONSTRAINT [FK_LogEntry_Category] FOREIGN KEY([CategoryId])
REFERENCES [dbo].[Category] ([CategoryId])
GO
IF EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_LogEntry_Category]') AND parent_object_id = OBJECT_ID(N'[dbo].[LogEntry]'))
ALTER TABLE [dbo].[LogEntry] CHECK CONSTRAINT [FK_LogEntry_Category]
GO


Now, go to the Models folder in your MVC app and create a new Entity Framework model based on the database you’ve just created. And that takes care of the back-end.
 
Time for some controller action. There is only one method in your home controller you need to create:
[AcceptVerbs(HttpVerbs.Post)]
public JsonResult InsertTimeLog(int categoryId, int value)
{
LogEntry le = new LogEntry();
Category cat = entities.Categories.First<Category>(c => c.CategoryId == categoryId);
le.Category = cat;
le.Duration = value;
le.CreatedOn = DateTime.Now;
entities.AddToLogEntries(le);
entities.SaveChanges();
return null;
}

You also need to change a bit the Index action to return all the categories in the database. Your home controller should look like this by now:
TimeLogEntities entities = new TimeLogEntities();
public ActionResult Index()
{
ViewBag.Message = "Welcome to ASP.NET MVC!";
List<Category> categories = entities.Categories.ToList<Category>();
return View(categories);
}


[AcceptVerbs(HttpVerbs.Post)]
public JsonResult InsertTimeLog(int categoryId, int value)
{
LogEntry le = new LogEntry();
Category cat = entities.Categories.First<Category>(c => c.CategoryId == categoryId);
le.Category = cat;
le.Duration = value;
le.CreatedOn = DateTime.Now;
entities.AddToLogEntries(le);
entities.SaveChanges();
return null;
}

public ActionResult About()
{
return View();
}
}

Delete the default Index View in the Views/Home Folder and create a new one based on the above controller.

Ok, one more step to go: The index view. This is where I learnt to love Razor… The index view should look like this (explanations below the code):

@model IEnumerable<MvcApplication3.Models.Category>

@{
ViewBag.Title = "Index";
}

<h2>Index</h2>

<p>
<span>Categories</span>
</p>
<div class = "categories">
<ul id="CategoryList">

@foreach (var item in Model) {
<li>
<div class="@item.CategoryName.Replace(" ", "")">
<p>
<span class="Category" >@item.CategoryName</span>
<span style="padding-left:20px"></span>
<a class="big button" id="@String.Concat(@item.CategoryName.Replace(" ", ""),"Start")">Start</a>
<span style="padding-left:20px"></span>
<a style="padding-left:30px;padding-right:30px" class="big negative button" id="@String.Concat(@item.CategoryName.Replace(" ", ""),"Stop")" >Stop</a>
<span id="@String.Concat("timeSpent", @item.CategoryName.Replace(" ", ""))" style="padding-left:20px">0</span>
</p>
</div>

</li>
}

</ul>
</div>
@foreach (var item in Model)
{
<script type="text/javascript">
   1:  
   2:  var categories = $("div.categories");
   3:      var @String.Concat("active", @item.CategoryName.Replace(" ", "")) = false;
   4:      $('.@item.CategoryName.Replace(" ", "")', categories).find('#@String.Concat(@item.CategoryName.Replace(" ", ""),"Start")').css("cursor", "pointer").click(function (i) {
   5:          if (!@String.Concat("active", @item.CategoryName.Replace(" ", ""))) {
   6:              $("#@String.Concat("timeSpent", @item.CategoryName.Replace(" ", ""))").text(0);
   7:              @String.Concat("active", @item.CategoryName.Replace(" ", "")) = !@String.Concat("active", @item.CategoryName.Replace(" ", ""));
   8:              $(this).parents("div").find('#@String.Concat("timeSpent", @item.CategoryName.Replace(" ", ""))').everyTime(1000, '@String.Concat("controlled", @item.CategoryName.Replace(" ", ""))', function (i) {
   9:                  $("#@String.Concat("timeSpent", @item.CategoryName.Replace(" ", ""))").text(i);
  10:              });
  11:          }
  12:      }).end().find('#@String.Concat(@item.CategoryName.Replace(" ", ""),"Stop")').css("cursor", "pointer").click(function (i) {
  13:          if (@String.Concat("active", @item.CategoryName.Replace(" ", ""))) {
  14:              @String.Concat("active", @item.CategoryName.Replace(" ", "")) = !@String.Concat("active", @item.CategoryName.Replace(" ", ""));
  15:              $(this).parents("div").find('#@String.Concat("timeSpent", @item.CategoryName.Replace(" ", ""))').stopTime('@String.Concat("controlled", @item.CategoryName.Replace(" ", ""))');
  16:              $.ajax({
  17:                  url: "/Home/InsertTimeLog/", type: "POST", dataType: "json",
  18:                  data: { categoryId: @item.CategoryId, value: $('#@String.Concat("timeSpent", @item.CategoryName.Replace(" ", ""))').text() },
  19:                  success: function () {
  20:                    ;;
  21:                  }
  22:              })
  23:          }
  24:      });
  25:   
</script>
}

Basically, what this view does is:
  1. For each category insert a little markup with category name, start/stop buttons and a little something to display the time passed
  2. For each category, generate a javascript to handle the start/stop timer and an ajax call to insert the time spent into the database.

That’s allSmile


Caveats: There are many things missing here: a repository, IoC, it only works for one user, a controller and views for categories and a bit many more, but all I wanted was a simple app and this is about as simple as you can get.

sâmbătă, 12 februarie 2011

Parsing T-SQL Queries

I’ve wondered at one point what happens when I click the little “Parse” button inside SSMS. The result is that the query is checked for syntax errors, but what really happens?

ParseSQL

It is amazingly simple: The query executed in SQL Server is:




SET PARSEONLY ON
select dbo.Category.CategoryId from dbo.Category
SET PARSONLY OFF

Yup. that’s all there is to it.

sâmbătă, 22 ianuarie 2011

Technical Writing and why I don’t do it very well at this moment

 

The issue of technical writing and how well a programmer does it hasn’t bothered me in the past before. I used to think that in order to be a good programmer you have to know your programming language, some algorithms and, depending on your domain, some database stuff, some OOP, or, god forbid, some low level assembler or even microcontroller programming.

But for the last 3-4 months my views have shifted towards a more open style of communication and knowledge sharing, and, as I had to write more and more technical documents @ my work place, I started to think about what should be in a TD and the flow of language and ideas that must reside there.

So, why I’m not good @ technical writing? For one, I am not a good writer, of anything. Secondly, I ‘ve started late and need to catch up. Practice makes perfect. And the last one… I must improve my programming skillsSmile

So, there. Three reasons why I’m not good at this…

Improving takes time and you can’t be a great writer without being a good reader, so here are some books I’m going to get this year:

http://www.amazon.com/Developing-Quality-Technical-Information-Handbook/dp/0131477498/ref=sr_1_9?ie=UTF8&qid=1295697433&sr=8-9

http://www.amazon.com/First-Style-Guide-Computer-Industry/dp/0137058268/ref=pd_sim_b_2

http://www.amazon.com/Elements-Technical-Writing-Gary-Blake/dp/0020130856/ref=pd_sim_b_3

joi, 15 aprilie 2010

CRM, OnSave, Activate/Deactivate and changing form fields

A little thing i learned today while cursing and swearing the hell out of CRM is how to change the value of a field when activating/deactivating an entity in CRM 4.0 (The cursing and swearing is, mostly, due to my being a true CRM newb, but CRM has it's faults too. Oh yeah...:)
The scenario is this: When deactivating or reactivating and entity in CRM 4.0, change the value of a field in your form and save it to the db.
Long story short to achieve this goal you must do the following:
1. Customize the OnSave event of the form
2. Check the event.Mode value (remember that 5 is deactivate, while 6 is reactivate)
3. Change the DataValue property of your desired field to whatever you want
5. Throw in some ForceSubmit = true for good measure

So, your code for the OnSave event might look like this
Code:
         if(event.Mode == 5/*Deactivate*/)
           {
                crmForm.all.yourField.DataValue = xxxxxx;
                crmForm.all.yourFiled.ForceSubmit = true;
          }
        if(event.Mode == 6/*Reactivate*/)
           {
                crmForm.all.yourField.DataValue = yyyy;
                crmForm.all.yourFiled.ForceSubmit = true;
          }


Enjoy:)

LINQ, InsertOnSubmit And SubmitChanges

I have been trying to learn LINQ (actually, trying is really an overstatement) and ASP.NET MVC and i came across a little problem that baffled me.
How do you insert a record in a database using LINQ?
The answer is very, very simple and one scenario to go is using InsertOnSubmit and then SubmitChanges.

Quick example:
First, create a database and then a table called Movie with the following structure:
 Ok, now create some LINQ to SQL classes based on the previously created table.
So you should have by now a .dbml that looks like this (actual class definitions in the dbml.cs file in your project):
The next thing is to insert the following code in your desired method:

Code:
          MovieDbDataContext dbContext = new MovieDbDataContext();
         dbContext.Movies.InsertOnSubmit(movie);
         dbContext.SubmitChanges();
where MovieDbDataContext is the name of the DataContext class generated by LINQ and movie holds the data you want to save in the database.
Easy, right? Just don't forget to fire up that SubmitOnChanges method after InsertOnSubmit
Cheers:)