TROUBLE Inserting dat into access database
I am having some trouble inserting a date into a access database, I have tried sever different ways but always get something like - cannot change date to an integer.
Dim theOleDbCommandAsNew OleDb.OleDbCommand("INSERT INTO DATASHEET ([TODATE], ACCESSUSER,DEPTID,TOWN) VALUES (?, ?, ?, ?)")
theOleDbCommand.Connection =New OleDb.OleDbConnection(connectionString)
Dim p0AsNew OleDbParameter("@p0",Me.TODAYSDATE.ToString)
p0.Value =Me.TODAYSDATE.ToString
theOleDbCommand.Parameters.Add(p0)
Dim p1AsNew OleDbParameter("@p1",Me.theUserNameOnly)
p1.Value =Me.theUserNameOnly
theOleDbCommand.Parameters.Add(p1)
Dim p2AsNew OleDbParameter("@p2", OleDbType.Integer,Me.deptid)
p2.Value =Me.deptid
theOleDbCommand.Parameters.Add(p2)
Dim p3AsNew OleDbParameter("@p3", OleDbType.Integer,Me.townid)
p3.Value =Me.townid
theOleDbCommand.Parameters.Add(p3)
'End Inserting
TrytheOleDbCommand.Connection.Open()
theOleDbCommand.ExecuteNonQuery()
theOleDbCommand.Connection.Close()
theOleDbCommand.Parameters.Clear()
CatchMsgBox(
"NOPE SOMETHING WENT WRONG WITH THE INSERT", ,"CHECK THE DATABASE!")EndTry