How can i compare current date with the date stored in sql server Table in VB?

[Jayasai]

Hello Everyone please help me. I am new to VB and i want to know how to compare the current date with the date stored in the database table?

[twinnyfo]

Jayasai,

You need to provide more information for us to help you. Have you tried anything, yet? What types of errors are you getting? We would love to trouble shoot, but we don't have anything to go by.

[Jayasai]

Dim date1 As Date
        Dim DOB As Date
        Dim sql1 As String
 
        sql1 = "select DATE_OF_BIRTH from PERSON1 where  PERSON_ID=person.personId"
        Dim command As OracleCommand = New OracleCommand(sql1)
        'Dim datareader As OracleDataReader = command.ExecuteReader()
        date1 = Convert.ToDateTime(Today)
        DOB = command.ExecuteScalar()
        If Date.Compare(date1, DOB) = 0 Then
            Dim message As String = "!**Greetings***! Wow Today is Your's Birthday. Wish You A Happy Birthday! Wish you many more returns of the day. Have a lovely day"
            Dim sb As New System.Text.StringBuilder()
            sb.Append("<script type='text/javascript'>")
            sb.Append("window.onload=function(){")
            sb.Append("alert('")
            sb.Append(message)
            sb.Append(" ')};")
            sb.Append("</script>")
            ClientScript.RegisterClientScriptBlock(Me.GetType(), "alert", sb.ToString())
        Else
            Dim username As String
            Dim sql2 As String
            sql2 = "select First_Name from PERSON1 where convert.GETDATE()=DATE_OF_BIRTH "
            Dim command1 As OracleCommand = New OracleCommand(sql2)
            'Dim datareader As OracleDataReader = command.ExecuteReader()
            username = command.ExecuteScalar()
            Dim message1 As String = "!**Greetings***! Wow Today is " + username + " Birthday  and Wish him/her a Happy Birthday!"
            Dim sb As New System.Text.StringBuilder()
            sb.Append("<script type='text/javascript'>")
            sb.Append("window.onload=function(){")
            sb.Append("alert('")
            sb.Append(message1)
            sb.Append(" ')};")
            sb.Append("</script>")
            ClientScript.RegisterClientScriptBlock(Me.GetType(), "ClientScript", "alert", sb.ToString())
        End If
I tried this code and i am getting error like this
 
 
 Invalid operation. The connection is closed.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
 
Exception Details: System.InvalidOperationException: Invalid operation. The connection is closed.
 
Source Error:
 
 
Line 22:         'Dim datareader As OracleDataReader = command.ExecuteReader()
Line 23:         date1 = Convert.ToDateTime(Today)
Line 24:         DOB = command.ExecuteScalar()
Line 25:         If Date.Compare(date1, DOB) = 0 Then
Line 26:             Dim message As String = "!**Greetings***! Wow Today is Your's Birthday. Wish You A Happy Birthday! Wish you many more returns of the day. Have a lovely day"

[Jayasai]

twinnyfo,

Thank u for your response

[twinnyfo]

Have you stepped through the code and validated that the connection is still open and that all variables evaluate to what you think they ought to be?