1. Inserting New Breadcrumb

   CREATE PROCEDURE [dbo].[addnewbreadcrumb]
     @PageTitleParent AS VARCHAR(100),
   	@PageTitle AS VARCHAR(100),
   	@PageURL AS VARCHAR(100)
   AS
   BEGIN
   DECLARE @ParentLevel INTEGER;
   DECLARE @RecCount INTEGER;
   DECLARE @CheckRecCount INTEGER;
   DECLARE @MyPageTitle VARCHAR(100);
     -- routine body goes here, e.g.
   SET @ParentLevel = (SELECT Rgt FROM [dbo].[breadcrumblinks] WHERE 
   Page_Title = @PageTitleParent);
    
   SET @CheckRecCount = (SELECT COUNT(*) AS RecordCount FROM [dbo].[breadcrumblinks] WHERE 
   Page_Title = @PageTitle);
   	IF @CheckRecCount > 0
     BEGIN 
   		SET @MyPageTitle = 'The following Page_Title is already exists in database: ' +  @PageTitle;
   		SELECT @MyPageTitle;
   		GOTO GoodBye;
     END
    
    
   UPDATE [dbo].[breadcrumblinks] 
      SET Lft = CASE WHEN Lft > @ParentLevel THEN
         Lft + 2
       ELSE
         Lft + 0
       END,
      Rgt = CASE WHEN Rgt >= @ParentLevel THEN
         Rgt + 2
      ELSE
         Rgt + 0
      END
   WHERE  Rgt >= @ParentLevel;
    
   SET @RecCount = (SELECT COUNT(*) FROM [dbo].[breadcrumblinks]);
   	IF @RecCount = 0
       BEGIN
   		-- this is for handling the first record
   		INSERT INTO [dbo].[breadcrumblinks] (Page_Title, Page_URL, Lft, Rgt)
   					VALUES (@PageTitle, @PageURL, 1, 2);
   		END
   	ELSE
       BEGIN
   		-- whereas the following is for the second record, and so forth!
   		INSERT INTO [dbo].[breadcrumblinks] (Page_Title, Page_URL, Lft, Rgt)
   					VALUES (@PageTitle, @PageURL, @ParentLevel, (@ParentLevel + 1));
    
   	  END
    
     GoodBye:
    
   END
   GO

2. Removing or Deleting Breadcrumb

   CREATE PROCEDURE [dbo].[deletebreadcrumbbasedonpagetitle]
     @PageTitle AS VARCHAR(100)
   AS
   BEGIN
    
   DECLARE @DeletedPageTitle VARCHAR(100);
   DECLARE @DeletedLft INTEGER;
   DECLARE @DeletedRgt INTEGER;
    
   SELECT @DeletedPageTitle=Page_Title, @DeletedLft=Lft, @DeletedRgt=Rgt
   FROM   [dbo].[breadcrumblinks] 
   WHERE  Page_Title = @PageTitle;
    
   DELETE FROM [dbo].[breadcrumblinks]
   WHERE Lft BETWEEN @DeletedLft AND @DeletedRgt;
    
   UPDATE [dbo].[breadcrumblinks]
      SET Lft = CASE WHEN Lft > @DeletedLft THEN
                Lft - (@DeletedRgt - @DeletedLft + 1)
             ELSE
                Lft
             END,
          Rgt = CASE WHEN Rgt > @DeletedLft THEN
                Rgt - (@DeletedRgt - @DeletedLft + 1)
             ELSE
                Rgt
             END
      WHERE Lft > @DeletedLft
         OR Rgt > @DeletedLft;
   END
   GO

3. Moving Breadcrumb to Another Parent

   CREATE PROCEDURE [dbo].[movebreadcrumb]
     @CurrentRoot AS VARCHAR(100),
   	@NewParent AS VARCHAR(100)
   AS
   BEGIN
     -- routine body goes here, e.g.
     DECLARE @Origin_Lft INTEGER;
   	DECLARE @Origin_Rgt INTEGER;
   	DECLARE @NewParent_Rgt INTEGER;
    
   SELECT @Origin_Lft=Lft, @Origin_Rgt=Rgt
   	FROM [dbo].breadcrumblinks 
   	WHERE Page_Title = @CurrentRoot;
   SET @NewParent_Rgt = (SELECT Rgt FROM [dbo].breadcrumblinks
   	WHERE Page_Title = @NewParent);
   UPDATE [dbo].breadcrumblinks 
   	SET Lft = Lft + 
   	CASE
   		WHEN @NewParent_Rgt < @Origin_Lft
   			THEN CASE
   				WHEN Lft BETWEEN @Origin_Lft AND @Origin_Rgt
   					THEN @NewParent_Rgt - @Origin_Lft
   				WHEN Lft BETWEEN @NewParent_Rgt	AND @Origin_Lft - 1
   					THEN @Origin_Rgt - @Origin_Lft + 1
   				ELSE 0 END
   		WHEN @NewParent_Rgt > @Origin_Rgt
   			THEN CASE
   				WHEN Lft BETWEEN @Origin_Lft	AND @Origin_Rgt
   					THEN @NewParent_Rgt - @Origin_Rgt - 1
   				WHEN Lft BETWEEN @Origin_Rgt + 1 AND @NewParent_Rgt - 1
   					THEN @Origin_Lft - @Origin_Rgt - 1
   				ELSE 0 END
   			ELSE 0 END,
   	Rgt = Rgt + 
   	CASE
   		WHEN @NewParent_Rgt < @Origin_Lft
   			THEN CASE
   		WHEN Rgt BETWEEN @Origin_Lft AND @Origin_Rgt
   			THEN @NewParent_Rgt - @Origin_Lft
   		WHEN Rgt BETWEEN @NewParent_Rgt AND @Origin_Lft - 1
   			THEN @Origin_Rgt - @Origin_Lft + 1
   		ELSE 0 END
   		WHEN @NewParent_Rgt > @Origin_Rgt
   			THEN CASE
   				WHEN Rgt BETWEEN @Origin_Lft AND @Origin_Rgt
   					THEN @NewParent_Rgt - @Origin_Rgt - 1
   				WHEN Rgt BETWEEN @Origin_Rgt + 1	AND @NewParent_Rgt - 1
   					THEN @Origin_Lft - @Origin_Rgt - 1
   				ELSE 0 END
   			ELSE 0 END;
    
   END
   GO

Hope it helps!

1. Copy this following function to your .bas module:

   Public Function SecondsToDateTimeSerial(ByVal Sec As Long) As String
     Dim lngSecParam As Long
     Dim lngSeconds As Long
     Dim lngHours As Long
     Dim lngMinutes As Long
    
     Dim tempSecParam As Long
    
     lngSecParam = Sec
     lngSeconds = lngSecParam \ 86400
     lngSecParam = lngSecParam - (lngSeconds * 86400)
    
     lngHours = lngSecParam \ 3600
     lngSecParam = lngSecParam - (lngHours * 3600)
    
     lngMinutes = lngSecParam \ 60
     lngSecParam = lngSecParam - (lngMinutes * 60)
    
     tempSecParam = lngSecParam
    
     SecondsToDateTimeSerial = _
       IIf(Sec >= 86400, lngSeconds & " day(s), ", vbNullString) & _
       IIf(Sec >= 0, Format(lngHours, "0#") & ":", vbNullString) & _
       Format(lngMinutes, "0#") & ":" & Format(tempSecParam, "0#")
   End Function

2. Try that function by using this following example code:

   MsgBox SecondsToDateTimeSerial(175) '<-- this will give you an output: "00:02:55"
   MsgBox SecondsToDateTimeSerial(294625) '<-- this will give you an output: "3 day(s), 09:50:25"

Not all characters in Browser View column could be displayed properly for all browsers. It depends on the capability of the browser you use. Have a nice try!

Okay. Here is the solution that I made from Visual Basic 6. First of all, you should create a new function for this.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

Option Explicit
 
Private Declare Function GetTimeZoneInformation Lib "KERNEL32.dll" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
 
Private Type SYSTEMTIME
   wYear                As Integer
   wMonth               As Integer
   wDayOfWeek           As Integer
   wDay                 As Integer
   wHour                As Integer
   wMinute              As Integer
   wSecond              As Integer
   wMilliseconds        As Integer
End Type
 
Private Type TIME_ZONE_INFORMATION
   Bias                 As Long
   StandardName         As String * 64
   StandardDate         As SYSTEMTIME
   StandardBias         As Long
   DaylightName         As String * 64
   DaylightDate         As SYSTEMTIME
   DaylightBias         As Long
End Type
 
Private Const TIME_ZONE_ID_DAYLIGHT As Long = 2
Private Const Unix1970   As Long = 25569 'CDbl(DateSerial(1970, 1, 1))

Public Function Unix2Date(vUnixDate As Long, ByVal bReturnUTC As Boolean) As Date
   Unix2Date = DateAdd("s", vUnixDate, Unix1970) - IIf(bReturnUTC, 0, GetCurrentTZOffset)
End Function
 
Public Function GetCurrentTZOffset() As Double
   Dim tz               As TIME_ZONE_INFORMATION
   Dim lRet             As Long
   'Quickest way to see if we are in
   'Daylight savings is to check lRet
   lRet = GetTimeZoneInformation(tz)
   'Offset in minutes
   GetCurrentTZOffset = tz.Bias + IIf(lRet = TIME_ZONE_ID_DAYLIGHT, tz.DaylightBias, tz.StandardBias)
   GetCurrentTZOffset = GetCurrentTZOffset / 1440
End Function
 
Private Sub Command1_Click()
   MsgBox "UTC   = " & Unix2Date(1206980969, True) 'March 31, 2008 16:29:29 (UTC)
   MsgBox "Local = " & Unix2Date(1206980969, False) 'March 31, 2008 23:29:29 (UTC + 7)
End Sub

From the code above, the conclusion is: We can use the Unix2Date function which has two parameters in it. The first parameter is the 10 digits numeral value, and the second parameter is the flag whether you want to convert it to UTC or to your local time. If we want to convert it to UTC, then the second parameter value is True, whereas if we want to convert it to the local time (in this case I have UTC + 7), the second parameter value is False.

If the data does not contain of the ‘ character at beginning, it is so easy to convert them become Date value, by using Format Cells feature in Excel. Obviously, it took too long time if I have to remove first the ‘ character for those thousand records, and then do formatting the cell column. Since the date have the ‘ character, then it will take a long time to remove that character one by one. Even if you want to make the special function to remove this.

So, before I export all about those sixteen thousand rows, I analyzed, which one the best way to do this. Well, finally, I think it is better to convert first those 5 digits numeral data directly to the real Date Value data without having to remove the ‘ character. I also have to convert this data become the Date format and order: year-month-date, such as “yyyy-MM-dd”. This “38353″ value should be like 2005-01-01.

Actually, the solution that I made for this, is only by using CDate() function belongs to VBA (Visual Basic Application) that exists in Excel file. Unfortunately, you cannot use formula =CDATE() function directly in the Excel WorkSheet Cell. So, I created this function below from Visual Basic Editor in the Excel file and run it from Macro Excel:

1
2
3
4
5
6
7
8
9
10
11
12
13

Public Function ConvertDateStringToDateValue()
  With Sheet1
    For i = 2 To 16000 'first row is the header column, so we start from the 2nd row
      If IsDate(.Cells(i, 7)) Then 'check whether the Date value in the 7th column
        'among those 16,000 rows, not all rows contain of the DateString
        'so, if the Cell value is a real Date, do nothing here...
      Else 'Else, if the cell value not a Date type
        'let's convert the Cell here, and put the result in to the 11th column
        .Cells(i, 11).Value = Format(CDate(.Cells(i, 7).Value), "yyyy-MM-dd")
      End If
    Next i
  End With
End Function

From the code above, we can see that the 5 digits numeral value located on the seventh column or column G, meanwhile the real Date Value I put on the eleventh column or column K in Excel file.

The conclusion? Well, the solution I made is by using CDate() and Format() function in Visual Basic Application (VBA) from Visual Basic editor belongs to the Excel file. We cannot use the Excel formula directly on the Sheet.  It took only moreless about a few seconds to convert the 5 digits numeral to the Date Value. Meanwhile, the export process itself from the Excel file into the Access database file took only a few seconds, too.  I just used the Get External Data from the Access database file from menu: “File -> Get External Data -> Import…”.

Thanks to the CDate() and Format() functions that available in VBA Excel, and also to the Get External Data feature that available in Microsoft Access.