Two ways of binding data to a GridView (ASP.NET)

In the following example, I will show you how to bind the same field to an ASP.NET GridView using two different methods.

In the first example, I utilize the an asp:BoundField to display the data, whereas in the second example I utilize an asp:TemplateField

Example 1 – BoundField:

[vb]

<asp:BoundField DataField=”ORDER_NUMBER” HeaderText=”Order” ReadOnly=”True” SortExpression=”ORDER_NUMBER” ItemStyle-Wrap=false />

[/vb]

Example 2 – TemplateField:

[vb]

<asp:TemplateField HeaderText=”Order” SortExpression=”OrderLineSched” ItemStyle-Wrap=”false”>
<ItemTemplate>
<asp:Label ID=”OrderLineSched” runat=”server” Text='<% #Bind(“ORDER_NUMBER”) %>’></asp:Label>
</ItemTemplate>
</asp:TemplateField>

[/vb]

Both will display exactly the same, however the TemplateField provides greater flexibility because if, for example, you change the field type from Label to TextBox, you can make it an editable field that will actually be editable in the entire GridView (all rows).

Enable/Disable Integrated Windows Authentication (VBScript)

[vb]
Option Explicit

‘———————————————————————–
‘ Enable/Disable Windows Integrated Authentication setting in IE8
‘ Developer: Tom Gee
‘ Date: 12.16.2011
‘———————————————————————–

Dim WSHShell, RegKey
Dim strInput, strCurrValue, strEnabled, strDisabled, strNewValue

strEnabled = “enabled”
strDisabled = “disabled”

set WSHShell = CreateObject(“WScript.Shell”)
RegKey = “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsEnableNegotiate”

ReadRegistry

strInput = MsgBox(“Integrated Windows Authentication is currently ” & strCurrValue & “.” & vbcrlf & vbcrlf & “Do you want to change this value?”,vbYesNo,”Change Current Value?”)

If strInput = vbYes Then
If strCurrValue = strEnabled Then
strNewValue = “0”
Else
strNewValue = “1”
End If

WSHShell.RegWrite RegKey, strNewValue, “REG_DWORD”

ReadRegistry

strInput = MsgBox(“Integrated Windows Authentication has now been set to ” & strCurrValue & “.”)
End If

Sub ReadRegistry()
strCurrValue = WSHShell.RegRead(RegKey)

If strCurrValue = “1” Then
strCurrValue = strEnabled
Else
strCurrValue = strDisabled
End If
End Sub
[/vb]

Password Mask an unbound TextBox column in a DataGridView (VB.NET)

If you have ever wanted to mask the contents in a TextBox column on a DataGridView (DGV) control, you will notice that there is no pre-defined “password” format that you can apply.  I have gotten around this by setting the DataPropertyName attribute of the column and then checking the related property in the CellFormatting event.  It’s actually pretty simple and doesn’t involve very much coding at all!

DataPropertyName = "password"

After you have set the DataPropertyName for the related column(s) in your DGV, you need to add code that will evaluate this property when the data is loaded.  For this, I will use the CellFormatting event.

Before we begin, I want to set the character that will be displayed instead of actual value.  For this, I will use an asterisk (*).

Private pwd As Char = “*”

In the below example, my DataGridView is named dg_Divisions.  This routine will store the value of any field with the DataPropertyName of “password” into the related cell’s Tag property and will change each character in the Value to an asterisk.  If the field is not a “password” field, it will set the Tag to Nothing (null).

Private Sub dgv_PwdFormatting(ByVal sender As Object, ByVal e As DataGridViewCellFormattingEventArgs) Handles dg_Divisions.CellFormatting

If dg_Divisions.Columns(e.ColumnIndex).DataPropertyName = “password” And e.Value <> Nothing Then

dg_Divisions.Rows(e.RowIndex).Tag = e.Value

e.Value = New String(pwd, e.Value.ToString.Length)

Else

dg_Divisions.Rows(e.RowIndex).Tag = Nothing

End If

End Sub

After the Tags and Values have been changed, we want the user to be able to see and modify the value if they begin editing the cell.  To do this, I will use the EditingControlShowing event.

Private Sub dgv_PwdEditing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) Handles dg_Divisions.EditingControlShowing

If (dg_Divisions.CurrentRow.Tag <> Nothing) Then

e.Control.Text = dg_Divisions.CurrentRow.Tag.ToString()

End If

End Sub

Value displayed as asterisks

Editing the cell displays the underlying contents

That’s all there is to it!  Happy coding!