[404notfound]

I've been working on this all evening. Using the code below, instead of a date being inserted,(11/28/12) its a time (please see attached image).
I've tried doing it without the if statement and the variable, but the same thing occurs. Help?

Dim DateUpdate As String

        If IsDate(dtpPaymentDate.Text) Then
            DateUpdate = dtpPaymentDate.Text
        Else
            DateUpdate = Date.Today
        End If

        sql = "UPDATE tblOutstanding SET AmountPaid = " & CInt(Outstanding.txtAmountPaid.Text) & _
            " WHERE InvoiceNumber = " & CInt(txtInvNumber.Text) & ";"

        sql1 = "UPDATE tblOutstanding SET BalanceDue = " & CInt(Outstanding.txtBalDue.Text) _
            & " WHERE InvoiceNumber = " & CInt(txtInvNumber.Text) & ";"

        sql2 = "UPDATE tblOutstanding SET LastPayment = " & DateUpdate _
            & " WHERE InvoiceNumber = " & txtInvNumber.Text & ";"

        Dim UpdateAmountPaid As New OleDb.OleDbCommand(sql, con)
        Dim UpdateBalanceDue As New OleDb.OleDbCommand(sql1, con)
        Dim UpdateLastPayment As New OleDb.OleDbCommand(sql2, con)



        con.Open()
        MsgBox(con.State.ToString)
        UpdateAmountPaid.ExecuteNonQuery()
        UpdateBalanceDue.ExecuteNonQuery()
        UpdateLastPayment.ExecuteNonQuery()

        con.Close()


        dgPopulate()
        MessageBox.Show("Database Updated")
        Me.Close()

Attached image(s)

• 

[tlhIn`toq]

I'm not seeing a problem. What am I missing?

Quote

instead of a date being inserted,(11/28/12) its a time (please see attached image).

Last line, ID 14, third column... Looks like its the data 11/28/2012 to me.

I don't even see an entry that looks like a time anywhere.

[404notfound]

Sorry for not clarifying, that date is correct. Column 6, LastPayment. Time values are being inserted.

[tlhIn`toq]

You're inserting this into a pre-existing spreadsheet, right?
Are you sure you don't have that column format set to time?
I'd bet it is about how the spreadsheet has its formatting set and not the code.


Hmmm... Thinking...

06 DateUpdate = Date.Today

Since in .NET DateTime object include times maybe this is confusing the spreadsheet. maybe format it to just the date first

06 DateUpdate = Date.Today.ToString("DDmmmYYYY")

[DarenR]

looks liek you are telling it to use date

Quote

sql2 = "UPDATE tblOutstanding SET LastPayment = " & DateUpdate _

Quote

Else

06 DateUpdate = Date.Today

[404notfound]

I was tired when I posted this. I meant to write why ISN'T my data going in as a date.

[404notfound]

tlhIn`toq,
Yes its going into a predesigned spreadsheet. Its set to a value of datetime. Is there a way I could convert that to get it from the datetimepicker?

[DarenR]

instead of date use datetime

Quote

Date.Today