Hi,

I wrote the following VB Script code to import data from
Access 2000 table "Time" column:

-----------------------------------------------------------
Function Main()
if (DTSSource("Time") < 1/1/1754) then
DTSDestination("Time") = "2/2/2079"
else
DTSDestination("Time") = DTSSource("Time")
end if
Main = DTSTransformStat_OK
End Function
----------------------------------------------------------

Date late then "1/1/1900" converted corretly
"1/1/1800" converted into "2/2/2079"
"1/1/1755" converted into "2/2/2079"

Why

Best Regards,

Henry

OK So let's build up a structure here

Access 2000 Table

col1 number autonumber
WhenHappened time

SQL Server table

CREATE TABLE AccessDestination(col1 int, col2 smalldatetime)


Now change your internal script to be

Function Main()

DTSDestination("col1") = DTSSource("col1")

IF DTSSource("WhenHappened") < #1/1/1754# THEN
DTSDestination("Col2") = "2/2/2079"
ELSE
DTSDestination("col2") = DTSSource("WhenHappened")
END IF

Main = DTSTransformStat_OK

End Function

--

----------------------------
Allan Mitchell (Microsoft SQL Server MVP)
MCSE,MCDBA
www.SQLDTS.com
I support PASS - the definitive, global community
for SQL Server professionals - http://www.sqlpass.org



"Henry" <shayux80 (AT) aut (DOT) ac.nz> wrote