Moving to GitHub

Given that I haven't written a blog post in years, I will concede that maintaining a blog is not a priority to me.

I enjoy writing code more than I like writing about code, so you check out my GitHub profile to see what I'm up to.

Fictitious Data Generators for Web Developers

When creating and testing web pages, developers often need to fill in fields with fake data.

This can be automated with tools such as the Form Filler Extension for Google Chrome, but I prefer to key in data manually.

Why?  Two reasons: 1) the data I fill in will be closer to production data [since I know what production data is like, unlike automated tools] and 2) to become more empathetic to the end users who will be using the page.

When keying in fake data, I could always use "123 First Street" for addresses, and "Joe Smith" for names, but I think it's a good idea to mix things up.  Doing this can also reveal problems with how the page works (for example, a longer address might reveal that the the database field for storing address line 1 is too short).

To get a good variety of fictitious data, I use several sites.

fakenamegenerator.com.  This one's a staple.  It'll give you just about everything you need for a fictitious person.  The one issue I've had with the site is that the product owners will think I'm testing with production data, since the fictitious identities are so convincing.  On one occasion a product owner asked me to use an identity that's obviously fake (e.g. "Joe Sample"), because he was concerned that if a customer saw a screen capture of the page filled with with data from fakenamegenerator.com, they would think that we're divulging customer data!

randompassphrasegenerator.com.  This site is useful for generating strong passwords that are easy to convey verbally and remember.  Good when testing registration pages.

fillerati.com.  This is nice for getting filler text.  Uses some classic works of literature.

pdos.csail.mit.edu/archive/scigen.  This is another site for generating filler text.  The beauty of this site is that it generates random, nonsensical academic papers.  You should read the story behind it -- it's quite amusing.

bing.com/gallery.  A repository of high quality photographs.  When I'm demoing or testing a page where users can upload images, I like using attractive images like these.  Yes, it's Bing.  You can make fun of me.  Doesn't change the fact that the photographs are usually amazing.

frinkiac.com.  I'm a big fan of classic Simpsons.  This site lets you search for your favorite dialog from The Simpsons and download the images.  Remember, no new crap.  Seasons 2-20 only.

@iamthetyson @czabe pic.twitter.com/fdmPd4JhDd

— Ben Osborne (@VisionsFugitive) August 12, 2016

generatedata.com.  This is for when you want to generate a lot of data, most likely to import into your database.  Like a bulk version of fakenamegenerator.com, but more customizable.

placehold.it.  This is for creating placeholder images with specific dimensions.

The final link is my favorite.  I also use it for creating filler text (yes, I'm a big advocate of quality filler text).  The link is:

en.wikipedia.org/wiki/Special:Random

Now, if you're going to bookmark it (and I think you should), don't follow the link and bookmark the page you land on.   You need to bookmark that URL, since you'll get redirected to a random Wikipedia page every time.  It makes filler text fun and educational.

Want to take things to the next level?  Here's what I did -- I created an AutohotKey script with a bunch of shortcuts to random WikiPedia articles.  So I can key in "fil2" and AutoHotkey will replace it with an entire random article.  If you have a meeting when you're demoing a page or pages where you have to fill in textareas, try this technique.  For one thing it saves time, but you might also get a laugh or two.

Right now the WikiPedia articles are hard-coded in my AHK script, but I have an idea for a project where users can generate AHK scripts with keyboard shortcuts for n random articles.  If/when I create that, I'll post the code here.

In the meantime, if you're a web developer, I hope you find something useful in my list.

The Easy Way to Optimize a Stored Procedure

I noticed a stored procedure in SQL Server (2008) -- let's call it p_TheProcedure -- taking about 10 seconds to run on production,  Since this is a procedure that generally should run in under a second, that was a problem that I needed to fix.

So I created a copy of called p_TheProcedure_test that I could use to fine-tune without affecting anything on the live site.  (Before you lecture me on testing things on production, let me just point out that this procedure doesn't update any tables other than temp tables).  So I ran p_TheProcedure_test and noticed that it ran in under 1 second.  That's funny, let me try p_TheProcedure again -- 10 seconds.  What's going on?  The code is exactly the same in both procedures.

So, I tried this:

drop procedure dbo.p_TheProcedure

go

create procedure dbo.p_TheProcedure
...

After than, running dbo.p_TheProcedure is back down to below 1 second.  Problem solved.

I'm guessing this has to do with a bad query execution plan.  I could research the exact technical reason, but I'm not a theoretician, and I have work to do.

Excel Needs a Custom Formula Sandbox

Today I found myself in need of an Excel function to search a string from right to left (the opposite of the built-in FIND function).  I wasn't sure if Excel had a function for that, so I Googled it to find that Excel does not have that function, but it can be done using a complicated formula.

Of course it can be also done with a macro, which is what I ended up doing.  Since I have a personal macro workbook with a lot of custom functions, so I'm not adverse to creating new ones whenever I need to.

A lot of people are adverse to this approach, as the StackOverflow thread I linked to above indicates.  And I can understand why, since macros come with a lot of overhead (compatibility, security, etc.).

That gave me an idea.  MS should create a "formula sandbox" area in Excel where users can create custom formulas.  For the language, I would suggest limited-functionality versions of C#.NET and VB.NET.  The limited functionality would be necessary to ensure that the formulas don't present any security risk.

The custom formula sandbox would be linked to the user, any any custom formulas that he/she uses in the spreadsheet would be saved with that spreadsheet, so that the spreadsheet works for any user.

I think a lot of Excel users would welcome something like that.

Dual Monitors and Excel

Windows could really use a "super maximize" button to maximize a window across all monitors.  I know that software packages made for managing multiple monitors have this functionality, but I would like it baked into Windows.

In any case, the program where I most often find myself manually resizing the window to span my two monitors is Excel.  A while ago I got sick of doing that, so I wrote a simple macro to do it.  Here's the code:

'the control parameter can be omitted.  I included it in my macro because that signature is needed for macros
'invoked from the ribbon
Sub MaximizeAcrossTwoMonitors(control As IRibbonControl)

    Dim TargetWidth As Integer
    TargetWidth = 2880 'fine-tune as needed for your specific setup
    
    Dim TargetHeight As Integer
    TargetHeight = 780 'fine-tune as needed for your specific setup
   
   'if the window is already maximized across two monitors, we're going to assume the user wants to return to regular maximized window state
    If Application.Width = TargetWidth And Application.Height = TargetHeight Then
        Application.WindowState = xlMaximized
    Else
  
        With Application
            .WindowState = xlNormal
            .Left = 1
            .Top = 1
            .Width = TargetWidth
            .Height = TargetHeight
        End With
    
    End If

End Sub

You can put that macro in your personal macro workbook and assign it to your quick access toolbar for easy access.

Once Excel is maximized across your workspace, you may want to have two or more workbooks displayed side-by-side.  You probably know that you can do that by going to View --> Arrange All --> Vertical.

However that's three steps I found myself struggling to recall the specifics of.  So, another simple macro for your quick access toolbar would be:

Sub ArrangeWindowsVertically(control As IRibbonControl)
    Windows.Arrange ArrangeStyle:=xlVertical
End Sub

I hope someone finds this useful.

Dangerous SQL Aggregates

Here's one for the the "seemingly innocuous change that introduces a bug" file.  The code I'm sharing is not the actual code where the incident happened, just the same pattern.  Here's the TSQL:

declare @Dates table (aDate date)
insert into @Dates values ('1/1/2000');
insert into @Dates values ('1/1/2001');
insert into @Dates values ('1/1/2002');
insert into @Dates values ('1/1/2003');

declare @AnyDateFound bit = 0;
declare @MaxDate date;

select
       @AnyDateFound = 1
from
       @Dates 
where
       aDate > '1/1/2005';

In this example, @AnyDateFound would obviously be 0.

I made an update like this:

declare @MaxDate date;

select
       @AnyDateFound = 1,
       @MaxDate = max(aDate)
from
       @Dates 
where
       aDate > '1/1/2005';

Most SQL Developers would spot the error right away.  But I assumed that if no records met the conditions in the where clause, @AnyDateFound would not be updated to 1, and would remain 0.  Not the case.

The problem is that aggregates always return records.  There is a maximum, even if the maximum is null.  It makes perfect sense when you think about.

select 0 where 1 = 2; -- no records
select max(0) where 1 = 2; -- one record

ASP.NET - Error When Switching To A Precompiled Application

When changing an ASP.NET web application from being dynamically-compiled to being precompiled, a runtime error cropped in my staging environment, which did not occur in my development environment. The error is an InvalidOperationException that reads:

The type specified in the TypeName property of ObjectDataSource 'MyDataSource' could not be found.

There are lots of suggestions for fixing this to be found on StackOverflow and elsewhere.  Some involve qualifying the type name in your ObjectDataSource declaration.  For me, it was already fully-qualified, using the name assigned by ASP.NET.

Another suggestion was to change the application from a virtual directory to an application in IIS.  In my case, it was already an application.

So, none of the suggestions I found fixed the problem.  For me, the problem fixed itself.  In about an hour, the error just went away.  I'm guessing this is because something cached on ASP.NET.  Maybe restarting the application in IIS would also fix the issue.  I don't have access to doing that in the staging environment on my PC, so I can't verify.  But if you're getting this error and don't see what the issue is, just try waiting. In one case, it took about 12 hours for the error to fix itself.

Of course, is the error is occuring on production, try restarting the application in IIS. Just keep in mind that if you're going from dynamically-compiled to precompiled, this runtime error is likely to occur if your application uses ObjectDataSource controls.

Arbitrary Groups in SQL Server Using Windowing

I often need to divide recordsets into groups for various reasons.  For example, if we’re testing an application, the testers might want a census of sample users they’re going to test with, and I want to assign each sample user to a test group to ensure that they’re only tested once.  This can be done using windowing in SQL Server (windowing was introduced in SQL Server 2005).

Here’s an example:

--create a sample dataset  
   
 create table #temp (MyRecord integer identity(1000, 7), [Name] nvarchar(50));  
   
 declare @x integer = 1;while @x <= 500 begin  
      insert into #temp ([Name]) values ('Sample ' + convert(nvarchar(40), getdate(), 121));  
      set @x = @x + 1;  
 end;  
   
 -- divide into groups  
   
 declare @Groups decimal(20, 4) = 30;-- how many groups we want. The overflow will go into another group  
   
 select  
   
      [Testing Group] =   
           convert(integer,   
                round(  
                     row_number() over (order by t.MyRecord)   
                     / (count(t.MyRecord) over () / (@Groups)) -- this is going to be the size of each group  
                     + 1,  
                     0, 1 -- arguments for the round function. This will cause the decimal to be truncated                 
                )  
           ),  
                                 
      t.*  
        
 from  
      #temp t;  

There are probably more elegant solutions, and the code looks a little messy, but it works.

Take Notes Electronically with a Tablet and Stylus

I’m an advocate of taking notes electronically on a tablet, with a stylus.  I’m often asked why.  Here’s my argument.

Why Take Notes Electronically?

• Electronic notes are searchable
• Electronic notes can be accessed remotely
• Electronic notes require no significant physical storage space
• Electronic notes are more likely to be retained over time
• Your electronic device is probably able to contain books and other reference materials, making it so you have less to carry in general, and convenient to quickly switch between your notes and other documents.
• There are several great pieces of software for taking notes (OneNote [my preference], EverNote, and Keep).

Why Use a Tablet?

• If you’re taking notes on a notebook PC, others who can’t see your screen may assume you’re doing something other than taking notes.
  • I know that in certain environments (e.g. a lecture hall), this isn’t a concern.  But in many contexts, like business meetings, it is.
• Because others can’t see your screen, you may be tempted to do something other than take notes.
• Smart phones are too small to key data into quickly (for me, at least).
• When you’re keying data into a smart phone, others can’t see the screen and may (with good reason) assume you’re texting, posting stuff to Facebook, etc.
• Notebooks aren’t as portable as tablets.
• Notebooks generally don’t boot up as quickly as tablets.
• Notebooks require a surface to rest on, which may not be available in every situation.  A tablet can be held with one hand and used with the other hand.
• Many notebooks don’t have a battery life as good as the battery life of tablets, which is generally 6+ hours.
• A tablet is inconspicuous and will work in just about any situation that a pen and paper will work in.

Why Use a Stylus?

• If you’re using a physical keyboard with a tablet, items #1 and #2 in the previous section would apply.
• On-screen keyboards have no tactile feedback, and require a surface to rest on if you want to use both hands.  If you’re only using one hand, a stylus will be faster.
• It’s very similar to taking notes on paper, which most people are comfortable with.
  • When we write on paper, the paper is flat on the table. With typing, the keyboard is usually at an angle.  And even when the keyboard is relatively flat, like with a notebook PC, the screen is roughly perpendicular to the keyboard.  So to be keying on a flat surface, with the display also flat, is not something most people are used to and not comfortable (for me).

Demo

So, that’s my argument.  You may be thinking, “that sounds all well and good, but how easy is it to do?”  Truth is, there is a learning curve, and it’s not for everyone.  But I find that it’s worth it, particularly since I have many occasions to take notes at this point in my life.

Recognizing your handwriting and converting it to text is not an exact science, and the computer will make mistakes.  I can’t speak for other tablets, but the Microsoft Surface has a few simple correction gestures that makes is easy to correct errors.  I’ve included a demo video below.

Taking Notes on Microsoft Surface RT Demo from Osborne Supremacy on Vimeo.

NerdDinner Tutorial in Visual Studio 2012

I’ve been going through Scott Guthrie’s NerdDinner Tutorial.  It’s been very educational for me.  However, it’s written in Visual Studio 2010 with C# and .aspx pages.  As I’ve been going through it, I’ve been using Visual Studio 2012, Visual Basic, and Razor.  During the process, I’ve occasionally had to wrestle to get things working right.  The most challenging has been step 10, AJAX Enabling RSVPs Accepts.

There’s nothing particularly complicated in this step, but I had to do a lot of dancing to get it to work right.  When I did I found myself thinking, “why exactly did that take so long?”  In any case, I thought I’d mention the major obstacle I encountered and what I did to get around it, in case anyone else is struggling with the same thing.

Here’s the code that was the problem:

 <%= Ajax.ActionLink( "RSVP for this event",  
 "Register", "RSVP",  
 new { id=Model.DinnerID },  
 new AjaxOptions { UpdateTargetId="rsvpmsg"}) %>      

In order to get the AJAX to work, Guthrie says to include these libraries:

 <script src="/Scripts/MicrosoftAjax.js" type="text/javascript"></script>  
 <script src="/Scripts/MicrosoftMvcAjax.js" type="text/javascript"></script>   

My first question was, if these libraries should be included to get Ajax.ActionLinks to work, why aren’t they included in the Scripts folder by default?  The answer is, they’re not needed in VS 2012 (at least for this application), since jquery.unobtrusive-ajax, will handle it, and that library is included in web projects by default, and is included in the jqueryval bundle in the BundleConfig file.

So, those Microsoft AJAX libraries don’t need to be included.  Instead, the Details view needs this:

 @Section Scripts  
   @Scripts.Render("~/bundles/jqueryui")  
   @Scripts.Render("~/bundles/jqueryval")  
 End Section  

But even with that change, the Ajax.ActionLink was not working.  It was doing a GET rather than a POST.  So, I had to change it to this:

       @Ajax.ActionLink("RSVP for this event - AJAX",  
                "Register",  
                "RSVP",  
                New With {.id = Model.DinnerId},  
                New AjaxOptions With {.UpdateTargetId = "rsvpmsg", .HttpMethod= "Post"})   

With that, the Ajax.Actionlink works as expected.

Here’s a stray observation.  When the code was not working, clicking the “Register” link was behaving differently between Chrome and IE.  Chrome would give me a “resource not found” error page, while in IE nothing would happen.  I wonder if it’s not a good idea to always create a view to handle an ActionLink, for cases when there’s a JavaScript issue, even one that’s not the developer’s fault (e.g. a user’s machine having a cached .js file that’s out-of-date or not compatible with other .js files).

Dynamic Comparison Tables in ASP.NET

Comparison tables / charts are quite common on the web.  Using a custom method, you can dynamically populate a comparison table in ASP.NET, using normalized data, with the table rendered with exactly as many columns as are needed.

First I’m going to talk about a suboptimal way of attempting this.  If you’re worked with data grids in ASP.NET before, you know that you can dynamically populate a table by binding a data table to a data grid with the AutoGenerateColumns property is set to true.

So if your data looks like this:

You can bind it to a data table and get this:

(Yes, I could have made this example about NFL quarterbacks, cars, or whatever, but why pretend to be someone that I’m not?)

The problem is, how do you get a SQL table or view like that to begin with?  If your data is normalized, you may have do so something like:

 select  
      [Person] = rc.Name,  
      [Race] = isnull(cv1.value, ''),  
      [Affiliation] = isnull(cv2.value, ''),  
      [Primary Weapon] = isnull(cv3.value, ''),  
      [Secondary Weapon] = isnull(cv4.value, ''),  
      [Residence] = isnull(cv5.value, '')  
 from  
      @RowCat rc  
      left join @CellValues cv1 on rc.Id = cv1.RowCatId and cv1.ColCatId = 1  
      left join @CellValues cv2 on rc.Id = cv2.RowCatId and cv2.ColCatId = 2  
      left join @CellValues cv3 on rc.Id = cv3.RowCatId and cv3.ColCatId = 3  
      left join @CellValues cv4 on rc.Id = cv4.RowCatId and cv4.ColCatId = 4  
      left join @CellValues cv5 on rc.Id = cv5.RowCatId and cv5.ColCatId = 5  

Why is that a problem?

• It’s tedious to write.
  
• There’s a performance-hurting left join for each category.
  
• Changing the categories requires a database object update.
  
• Since the categories are hard-coded, the query is only good for fixed categories names and a fixed number of categories.

I created a solution that addresses all of those issues.  Basically, you can keep your data normalized, using a query like this rather than the one above:

 select  
      RowCatId = rc.id,  
      RowCatName = rc.Name,  
      ColCatName = cc.name,  
      CellValue = isnull(cv.Value, '')  
 from  
      @RowCat rc  
      cross join @ColCat cc  
      left join @CellValues cv on rc.Id = cv.RowCatId and cc.Id = cv.ColCatId  
 order by  
      rc.Id,  
      cc.Id;  

Then you can take that dataset and pass it to the custom method below.  Instead of populating a data grid, the method populates a table control.

   ''' <summary>  
   ''' Data table should contain the columns in this enumeration. They don't have to have the same names.   
   ''' Sort by row category id, then column category id. Every row category should have exactly one of each column category.  
   ''' If it doesn't this method is not going to work right.  
   ''' </summary>  
   ''' <remarks></remarks>  
   Public Enum DynamicColomnDataTableConstants As Integer  
     ''' <summary>  
     '''   
     ''' </summary>  
     ''' <remarks>must be a positive integer</remarks>  
     RowCategoryId  
     RowCategoryName  
     ColomnCategoryName  
     CellValue  
   End Enum  
   
   Public Shared Sub PopulateDynamicColumnTable(ByVal TheWebTable As Table, ByVal TheDataTable As DataTable)  
   
     If TheDataTable.Rows.Count = 0 Then Return  
   
     Dim HeaderRowId As Integer = TheWebTable.Rows.Add(New TableRow)  
     TheWebTable.Rows(0).Cells.Add(New TableCell) 'this is the empty cell in the upper-left-hand corner  
   
     Dim LastRowCategoryId As Integer = TheDataTable.Rows(0)(DynamicColomnDataTableConstants.RowCategoryId)  
     Dim ThisRowCategoryId As Integer = LastRowCategoryId  
   
     Dim HeaderCellId As Integer = -1  
   
     'this isn't going to loop through all rows of the table table, only enough to create all of the   
     'header columns  
     For Each dr As DataRow In TheDataTable.Rows  
   
       ThisRowCategoryId = dr(DynamicColomnDataTableConstants.RowCategoryId)  
       'if row category has changed, header row has been created, and this loop can be exited  
       If ThisRowCategoryId <> LastRowCategoryId Then Exit For  
   
       HeaderCellId = TheWebTable.Rows(HeaderRowId).Cells.Add(New TableCell)  
       TheWebTable.Rows(HeaderRowId).Cells(HeaderCellId).Text = dr(DynamicColomnDataTableConstants.ColomnCategoryName)  
   
     Next  
   
     LastRowCategoryId = -1  
     ThisRowCategoryId = TheDataTable.Rows(0)(DynamicColomnDataTableConstants.RowCategoryId)  
   
     Dim ThisRowId As Integer = -1  
     Dim ThisCellId As Integer = -1  
     Dim TheCellValue As String = String.Empty  
   
     For Each dr As DataRow In TheDataTable.Rows  
   
       ThisRowCategoryId = dr(DynamicColomnDataTableConstants.RowCategoryId)  
   
       If ThisRowCategoryId <> LastRowCategoryId Then 'row category is different, need to create new row and header cells  
   
         ThisRowId = TheWebTable.Rows.Add(New TableRow)  
         ThisCellId = TheWebTable.Rows(ThisRowId).Cells.Add(New TableCell)  
   
         TheWebTable.Rows(ThisRowId).Cells(ThisCellId).Text = dr(DynamicColomnDataTableConstants.RowCategoryName)  
   
       End If  
   
       ThisCellId = TheWebTable.Rows(ThisRowId).Cells.Add(New TableCell)  
   
       TheCellValue = dr(DynamicColomnDataTableConstants.CellValue)  
       If TheCellValue = String.Empty Then TheCellValue = "&nbsp;"  
   
       TheWebTable.Rows(ThisRowId).Cells(ThisCellId).Text = TheCellValue  
       LastRowCategoryId = ThisRowCategoryId  
   
     Next  
   
   End Sub  

With that method, you’ll get a table that’s exactly the same as the data grid shown earlier in this post.

I’m sure the the same thing could be accomplished with fewer lines of code, and probably has been.  But this is my solution, and it seems to work well.

A sample .aspx and .aspx.vb page that includes all of the code and a working example can be downloaded here (.zip file).

Excel as an ETL Tool

This is probably going to seem extremely basic to some people, but I think it’s a very useful technique that many SQL developers might not know about.

You can use Excel as a quick and precise ETL tool.  Not for 10GB data files.  Not for data that’s not already in Excel.  But when you have data in Excel – especially if it’s messy – and you want to get in into SQL Server quickly, there’s a good way of doing that.

Let’s start with some messy Excel data.  Here are the current NBA standings that I copied from the NBA’s website.

Now, the data isn’t hideous.  It’s organized in a consistent manner.  It’s just not normalized.  The technique I’m going to describe works on data in all kinds of formats.

Create the Table

The first thing I’m going to do is define the table in SQL.  I’m going to write the create table statement in Excel, so that my entire script will be in one place.  So in cell M2, I’m going to write:

create table dbo.NbaStandings (Id integer identity,TimePeriod varchar(100), Conference varchar(50), Division varchar(50), Team varchar(50), Wins integer, Losses integer, WinPercent decimal(4, 3), GamesBack decimal(10, 2), ConfRecord varchar(10), DivRecord varchar(10), HomeRecord varchar(10), RoadRecord varchar(10), Last10 varchar(5), Streak varchar(5));

The column definitions are derived from the data, of course.  That’s the easy part.

Insert the Data, Part 1

Next I’m going to create the insert statements in Excel, referencing the data in the spreadsheet.  In cell M6, I’m going to write:

="insert into dbo.NbaStandings (TimePeriod, Conference, Division, Team, Wins, Losses, WinPercent, GamesBack, ConfRecord, DivRecord, HomeRecord, RoadRecord, Last10, Streak) values ("

But I'm not ready to write more just yet.  SQL Server string values have to be enclosed in single quotes.  Also, when you concatenate cell references in an Excel formula, you have to use double quotes.  I could write the rest of the insert statement that way, but that’s going to be one cumbersome, unreadable formula.  Some Excel macros will make it much easier to write.

Write the Macros (or just use mine)

Here are the macros I’m going to create in the Excel VBA editor.  I recommend keeping these macros in your personal macro workbook, so you don’t have to add them to every workbook you want to use them in.

This macro will escape single quotes in in a string, and enclose a string in single quotes:

Public Function SqlEncode(TheString) As String



 Public Function SqlEncode(TheString) As String  
   
   Dim ReturnValue As String  
   ReturnValue = TheString  
     
   ReturnValue = Replace(ReturnValue, Chr(39), Chr(39) & Chr(39)) 'escape apostrophe  
   ReturnValue = Chr(39) & ReturnValue & Chr(39) 'enclose in apostrophes  
     
   SqlEncode = ReturnValue  
     
 End Function  

This macro will take a single cell, and apply the macro above to its value, optionally adding a comma:

 Public Function SqlValue(TheRange As Range, Optional IncludeComma As Boolean = True) As String  
   
   Dim ReturnValue As String  
       
   ReturnValue = ReturnValue & SqlEncode(TheRange.Text)  
     
   If IncludeComma Then ReturnValue = ReturnValue & ", "  
     
   SqlValue = ReturnValue  
     
 End Function  

And this macro will take a range of cells, apply the SqlEncode macro to all of them, and concatenate them with commas:

 Public Function SqlValues(TheRange As Range) As String  
   
   Dim TheCell As Range  
   Dim ReturnValue As String  
   Dim counter As Integer  
     
   counter = 0  
   
   For Each TheCell In TheRange.Cells  
     If counter > 0 Then ReturnValue = ReturnValue & ", "  
     ReturnValue = ReturnValue & SqlEncode(TheCell.Text)  
     counter = counter + 1  
   Next  
     
   SqlValues = ReturnValue  
     
 End Function  

With those macros created, I’m ready for the next step.

Insert the Data, Part 2

The first real record on the spreadsheet is on line 6, but the values in the three rows above will also be part of the record.  This is where the data not being normalized makes things messy.  Here’s my continued formula:

="insert into dbo.NbaStandings (TimePeriod, Conference, Division, Team, Wins, Losses, WinPercent, GamesBack, ConfRecord, DivRecord, HomeRecord, RoadRecord, Last10, Streak) values (" & SqlValue(B$3) & SqlValue(B$4) & SqlValue(B$5)

Notice that I made the row reference for those three values absolute, because I don’t want them to change when I copy the formula to new rows.

The next part of the formula uses the data on the same row my formula is on, so I can use the SqlValues macro to take care of them all:

="insert into dbo.NbaStandings (TimePeriod, Conference, Division, Team, Wins, Losses, WinPercent, GamesBack, ConfRecord, DivRecord, HomeRecord, RoadRecord, Last10, Streak) values (" & SqlValue(B$3) & SqlValue(B$4) & SqlValue(B$5) & SqlValues(B6:L6) & ");"

My formula is now complete. Here's the resulting TSQL:

insert into dbo.NbaStandings (TimePeriod, Conference, Division, Team, Wins, Losses, WinPercent, GamesBack, ConfRecord, DivRecord, HomeRecord, RoadRecord, Last10, Streak) values ('2012-2013 Division Regular Season Standings', 'Eastern Conference', 'Atlantic', 'New York', '32', '16', '0.667', '0', '20-9', '41398', '19-6', '13-10', '41458', 'W 1');

Now I can go ahead and copy the formula into all of the other data rows on the spreadsheet:

I have to change the formula’s references to the conference and division cells several times when copying the formula, because this data set isn’t normalized, as previously pointed out.  I could have used an OFFSET formula in Excel to get around having to do that, but I wanted to keep this example relatively simple.

Execute the Script

The entire script to create and populate the table in now in column M of my spreadsheet.  I’m going to go ahead and copy that column into new query window in SQL Server:

Once I execute the script, the data is now in a SQL Server table:

Conclusion

Given how de-normalized that data was, this wouldn’t have been possible with a standard ETL engine such as SSIS, without first normalizing the data in Excel.

At my job, I get a lot of data in a format like this or worse, so I’ve found this technique very helpful over the years.  I hope others will fine it helpful as well.

Including a Removable Drive in a Library in Windows 8

I recorded a short video demonstrating how to include a removable drive in a library, in Windows 8 and Windows 7.  I didn’t discover this on my own, of course, but since I think it’s a useful thing to do, I wanted to show how with a video.

Including a Removable Drive in a Windows 8 Library from Osborne Supremacy on Vimeo.

This is useful for Windows RT devices, which usually have limited internal storage.  I have a 32 GB Microsoft Surface, and most of that space is not usable.  I did get a 64GB SDXC card for it.  Since that’s the biggest card it can use, I don’t plan on removing it, ever.  Also, since I want pictures, videos, and music I create or download to be stored on that card by default rather than the smaller internal drive, I wanted the card to be included in my libraries.

On a side note, I’m not sure why Microsoft doesn’t want you to include a USB stick or an SD card in a library, but doesn’t have a problem with you including an external hard drive that’s connected via USB or eSata.

So what happens when you remove the drive after it’s been added to a library?  Probably an instant blue screen with a KERNEL_STACK_INPAGE_ERROR, right?  Actually, just a simple “This folder is not available” message when you browse to it.

Taking Notes on the Microsoft Surface RT

In using a Surface RT for about a month, I've learned a few things about note-taking on that device.  Thing video demonstrates some of those tips and techniques.

Taking Notes on the Microsoft Surface RT from Osborne Supremacy on Vimeo.

Introduction

Hello and welcome to my blog.  My name is Ben Osborne and I've been a web and database developer for over ten years.  I primarily work with ASP.NET, VB.NET and SQL Server.  I'm also a technology enthusiast   and notorious earlier adopter of consumer electronics with a preference for Microsoft stuff (what can I say, I love an underdog).

I'll be using this blog to post my thoughts and insights about web and database development, and well as my experiences with the toys -- I mean gadgets -- I mean extremely practical business tools -- that I work with.

As for the name of the blog, I'm a fan of the Bourne movies, and since "borne" is my last name, I used the title of the second movie, "The Bourne Supremacy," because I think it sounds cool.  No, I don't actually consider myself supreme.