Protected Sub tbdate_TextChanged(sender As Object, e As EventArgs) Handles tbdate.TextChanged Dim adaptor As New SqlDataAdapter Dim ds As New DataSet Try objConn.Open() Dim sqlcmd As New SqlCommand("select * from bookorder where=' " & tbdate.Text & "'", objConn) sqlcmd.ExecuteNonQuery() adaptor.SelectCommand = sqlcmd adaptor.Fill(ds) If ds.Tables(0).Rows.Count > 0 Then Label8.Visible = True Label8.Text = "Enter different date" End If adaptor.Dispose() ds.Clear() Catch e.ToString() Finally objConn.Close() End Try End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)