Click to See Complete Forum and Search --> : Combine three form fields to one database field


blodefood
06-02-2004, 03:24 PM
I have a script that writes to a database, but I would like to take the data from the three date forms (month,day,year) and combine them into one Access database cell as an eight-digit number (example 20040602) so it can be formatted as a date in an HTML table.

Do I do this in the script or in the SQL statement?

_____________________________

'variables
dim objCon
dim objRec
dim usid, sysselect, probdesc
dim reqmonth, reqday, reqyear, compusid, compmonth, compday, compyear
dim reqstatus, estcompmonth, estcompday, estcompyear, reqcomment

'SQL

"select * from reqtable"

'Fields
objRec.AddNew
objRec.Fields("usid")=Request.Form("tusid")
objRec.Fields("sysselect")=Request.Form("tsysselect")
objRec.Fields("probdesc")=Request.Form("tprobdesc")
objRec.Fields("reqmonth")=Request.Form("treqmonth")
> objRec.Fields("reqday")=Request.Form("treqday")
> objRec.Fields("reqyear")=Request.Form("treqyear")
> objRec.Fields("compusid")=Request.Form("tcompusid")
objRec.Fields("reqstatus")=Request.Form("treqstatus")
> objRec.Fields("compmonth")=Request.Form("tcompmonth")
> objRec.Fields("compday")=Request.Form("tcompday")
> objRec.Fields("compyear")=Request.Form("tcompyear")
> objRec.Fields("estcompmonth")=Request.Form("testcompmonth")
> objRec.Fields("estcompday")=Request.Form("testcompday")
> objRec.Fields("estcompyear")=Request.Form("testcompyear")
objRec.Fields("reqcomment")=Request.Form("treqcomment")
objRec.Update
usid=Request.Form("tusid")
sysselect=Request.Form("tsysselect")
probdesc=Request.Form("tprobdesc")
> reqmonth=Request.Form("treqmonth")
> reqday=Request.Form("treqday")
> reqyear=Request.Form("treqyear")
compusid=Request.Form("tcompusid")
reqstatus=Request.Form("treqstatus")
> compmonth=Request.Form("tcompmonth")
> compday=Request.Form("tcompday")
> compyear=Request.Form("tcompyear")
> estcompmonth=Request.Form("testcompmonth")
> estcompday=Request.Form("testcompday")
> estcompyear=Request.Form("testcompyear")
reqcomment=Request.Form("treqcomment")

CardboardHammer
06-03-2004, 09:57 AM
Do it in the script.

lmf232s
06-03-2004, 04:02 PM
reqmonth=Request.Form("treqmonth")
reqday=Request.Form("treqday")
reqyear=Request.Form("treqyear")

just concatanate the tree together like

MyNewField = reqyear & reqmonth & reqday

Then into the database add MyNewFild which for today would look like
20040603