Hi, I have a dropdownlist for user to select due date of book loan.
But the value that i retrieved fr the selection is individual, date, month and year. How can I assign the 3 values retrieved to a variable named Due_Date?

Thank you.

Irene

Why not use a calendar control for the selection of the date?

Due_Date = CDate(CStr(DueMonth) + "/" + CStr(DueDay) + "/" + CStr(DueYear))

I still suggest using a calendar control(even a 3rd party control) for better UI.

Hi, I use Due_Date = CDate(CStr(DueMonth) + "/" + CStr(DueDay) + "/" + CStr(DueYear))

But now when i run the page, i got this error.

Server Error in '/e-library' Application.
--------------------------------------------------------------------------------

Line 1: Incorrect syntax near ','.
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.Data.SqlClient.SqlException: Line 1: Incorrect syntax near ','.

Source Error:


Line 284: SqlDataAdapter2.SelectCommand.Parameters("@Due_Dat e").Value = Due_Date
Line 285: con.Open()
Line 286: SqlDataAdapter2.SelectCommand.ExecuteNonQuery()
Line 287: con.Close()
Line 288:


Source File: c:\inetpub\wwwroot\e-library\Renew.aspx.vb Line: 286

Stack Trace:


[SqlException: Line 1: Incorrect syntax near ','.]
   System.Data.SqlClient.SqlCommand.ExecuteReader(Com mandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream) +742
   System.Data.SqlClient.SqlCommand.ExecuteNonQuery() +196
   e_library.Renew.btnSubmit_Click(Object sender, EventArgs e) in c:\inetpub\wwwroot\e-library\Renew.aspx.vb:286
   System.Web.UI.WebControls.Button.OnClick(EventArgs e) +108
   System.Web.UI.WebControls.Button.System.Web.UI.IPo stBackEventHandler.RaisePostBackEvent(String eventArgument) +57
   System.Web.UI.Page.RaisePostBackEvent(IPostBackEve ntHandler sourceControl, String eventArgument) +18
   System.Web.UI.Page.RaisePostBackEvent(NameValueCol lection postData) +33
   System.Web.UI.Page.ProcessRequestMain() +1292




--------------------------------------------------------------------------------
Version Information: Microsoft .NET Framework Version:1.1.4322.2032; ASP.NET Version:1.1.4322.2032

[code]
 Dim DueDay, DueMonth, DueYear As String
Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        Dim sql As String
        Dim Title As String
        Dim Due_Date As DateTime
        Dim New_Due_Date As DateTime
        Dim Days As DateTime

        sql = "SELECT * FROM [Waiting_List] WHERE Title= @Title"
        SqlDataAdapter1.SelectCommand.CommandText = sql
        SqlDataAdapter1.SelectCommand.Parameters.Add(New _
            SqlParameter("@Title", SqlDbType.VarChar, 100))
        SqlDataAdapter1.SelectCommand.Parameters("@Title") .Value = _
            txtTitle.Text
        con.Open()
        SqlDataAdapter1.SelectCommand.ExecuteNonQuery()
        con.Close()

        Due_Date = CDate(CStr(DueMonth) + "/" + CStr(DueDay) + "/" + CStr(DueYear))

        If Not Title Is Nothing Then
            lblRenewNotOk.Visible = True
        Else
            sql = "SELECT User_id, Title, Due_Date FROM [BookLoan_Record] WHERE User_id=@User_id, Title= @Title And Due_Date=@Due_Date"
            SqlDataAdapter2.SelectCommand.CommandText = sql
            SqlDataAdapter2.SelectCommand.Parameters.Add(New _
                SqlParameter("@User_id", SqlDbType.Char, 10))
            SqlDataAdapter2.SelectCommand.Parameters.Add(New _
                SqlParameter("@Title", SqlDbType.VarChar, 100))
SqlDataAdapter2.SelectCommand.Parameters.Add(New _
                SqlParameter("@Due_Date", SqlDbType.DateTime, 8))
            SqlDataAdapter2.SelectCommand.Parameters("@User_id ").Value = txtUserID.Text
            SqlDataAdapter2.SelectCommand.Parameters("@Title") .Value = txtTitle.Text
            SqlDataAdapter2.SelectCommand.Parameters("@Due_Dat e").Value = Due_Date
            con.Open()
            SqlDataAdapter2.SelectCommand.ExecuteNonQuery()
            con.Close()

            New_Due_Date = Due_Date.AddDays(7)

            sql = "INSERT INTO Renewal Values (@User_id, @Title, @New_Due_Date)"
            SqlDataAdapter3.InsertCommand.Parameters.Add(New _
                SqlParameter("@User_id", SqlDbType.Char, 10))
            SqlDataAdapter3.InsertCommand.Parameters.Add(New _
                SqlParameter("@Title", SqlDbType.VarChar, 100))
SqlDataAdapter3.InsertCommand.Parameters.Add(New _
                SqlParameter("@New_Due_Date", SqlDbType.DateTime, 8))
            SqlDataAdapter3.InsertCommand.Parameters("@User_id ").Value = txtUserID.Text
            SqlDataAdapter3.InsertCommand.Parameters("@Title") .Value = txtTitle.Text
SqlDataAdapter3.InsertCommand.Parameters("@New_Due _Date").Value = New_Due_Date

            con.Open()
            SqlDataAdapter3.InsertCommand.ExecuteNonQuery()
            con.Close()
End If
    End Sub

I still can't figure out what is the problem. Can somebody help me?

use

Regards
Ganesh

change sql = "SELECT User_id, Title, Due_Date FROM [BookLoan_Record] WHERE User_id=@User_id, Title= @Title And Due_Date=@Due_Date"

to: sql = "SELECT User_id, Title, Due_Date FROM [BookLoan_Record] WHERE User_id=@User_id AND Title= @Title And Due_Date=@Due_Date"