¤ The following line binds a Date from sql Server to a text box control
¤ Me.txtRequestedDate.DataBindings.Add(New Binding("Text", ds,
¤ "tblRequests.RequestDate"))
¤ However, the date returned includes the time. Only the DATE part is
¤ required. The Text box no longer has a Format property so how do you control
¤ the format? Does it need to be controlled earlier when defining the DS?
¤

Try using the Transact SQL Convert function.

http://msdn.microsoft.com/library/en-us/tsqlref/ts_ca-co_2f3o.asp?frame=true

Paul
~~~~
Microsoft MVP (Visual Basic)

Terry,

In .NET 1.0 & 1.1 (VS 2002 & 2003) Handle the Format & Parse events of the
Binding object itself.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlr
fSystemWindowsFormsBindingClassFormatTopic.asp

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlr
fSystemWindowsFormsBindingClassParseTopic.asp

Something like:

   Const format As String = "d"

   Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
       MyBase.OnLoad(e)
       Dim ds As DataSet = ...

       Dim RequestedDateBinding As New Binding("Text", ds,
"tblRequests.RequestDate")

       AddHandler RequestedDateBinding.Format, AddressOf DateFormat
       AddHandler RequestedDateBinding.Parse, AddressOf DateParse

       Me.txtRequestedDate.DataBindings.Add(RequestedDateBinding)

   End Sub

   Private Sub DateFormat(ByVal sender As Object, ByVal e As
ConvertEventArgs)
       If e.DesiredType Is GetType(String) AndAlso TypeOf e.Value Is
DateTime Then
           e.Value = DirectCast(e.Value, DateTime).ToString(format)
       End If
   End Sub

   Private Sub DateParse(ByVal sender As Object, ByVal e As
ConvertEventArgs)
       If e.DesiredType Is GetType(DateTime) AndAlso TypeOf e.Value Is
String Then
           e.Value = DateTime.ParseExact(DirectCast(e.Value, String),
format, Nothing)
       End If
   End Sub

I would consider inheriting from either TextBox or Binding (or possibly
both) to encapsulate the above logic. For example add a FormatString &
FormatProvider to Binder much like .NET 2.0 (VS 2005) does.

In .NET 2.0 adds properties to the Binding object to support formatting,
simplifying the above code:

http://msdn2.microsoft.com/b5awfas2(en-US,VS.80).aspx
http://msdn2.microsoft.com/fe4za7tx(en-US,VS.80).aspx
http://msdn2.microsoft.com/fs5t4etx(en-US,VS.80).aspx

       Dim RequestedDateBinding As New Binding("Text", ds,
"tblRequests.RequestDate")
       RequestedDateBinding.FormattingEnabled = True
       RequestedDateBinding.FormatString = format
       Me.txtRequestedDate.DataBindings.Add(RequestedDateBinding)