OracleUniqueValueValidator Control

OracleUniqueValueValidator.vb:
Imports Oracle.DataAccess.Client
Namespace NathanSokalski
	<System.Drawing.ToolboxBitmap(GetType(ToolboxIcons), "OracleUniqueValueValidator.bmp"), _
	System.Web.UI.ToolboxData("<{0}:OracleUniqueValueValidator runat=""server""/>")> _
	Public Class OracleUniqueValueValidator : Inherits UniqueValueValidatorBase
		Public Overrides Function DoValidation(ByVal value As String) As Boolean
			Dim myconnection As New OracleConnection(Me.ConnectionString)
			Dim cmdunique As New OracleCommand(Me.ValidationSql(value), myconnection)
			Dim uniquereader As OracleDataReader
			myconnection.Open()
			uniquereader = cmdunique.ExecuteReader()
			Return Not uniquereader.HasRows()
			myconnection.Close()
		End Function

		Public Overrides Function FormatDate(ByVal value As Date) As String
			Return String.Format("TO_DATE('{0}','MM/DD/YYYY')", value.ToShortDateString())
		End Function

		Public Overrides Function FormatTime(ByVal value As Date) As String
			Return String.Format("TO_DATE('{0}','HH24:MI:SS')", value.ToString("H:mm:ss.fffffff"))
		End Function

		Public Overrides Function FormatDateTime(ByVal value As Date) As String
			Return String.Format("TO_DATE('{0} {1}','MM/DD/YYYY HH24:MI:SS')", value.ToShortDateString(), value.ToString("H:mm:ss.fffffff"))
		End Function
	End Class
End Namespace