It seems the LC API does not generate the correct SQL for SQL Server when inserting a null datetime value.
This code raises error 22018 if run against SQL Server 2005:
On Error GoTo ErrHandle
Dim con As Lcconnection
Dim lcfields As New Lcfieldlist()
Dim currentLCField As Lcfield
Dim currentTime As Lcdatetime
Set con = New Lcconnection( "oledb" )
con.Provider = "SQLOLEDB"
con.Auth_Integrated = "SSPI"
con.Init_DataSource = "<DSName>"
con.Database = "<DBName>"
con.Metadata = "<TableName>"
Call con.Connect()
Call lcfields.Append( "DTField", LCTYPE_DATETIME )
Call con.Create( LCOBJECT_METADATA, lcFields )
Set currentTime = New Lcdatetime()
'Call currentTime.Setcurrent()
Set currentLCField = lcfields.Getfield( 1 )
Call currentLCField.Setdatetime( 1, currentTime )
Call con.Insert( lcfields, 1, 1)
Call con.Action( LCACTION_COMMIT )
Call con.Disconnect()
Exit Sub
ErrHandle:
Print "Error " & Err() & " line " & Erl() & ": " & Error$()
Exit Sub
If you modify the code slightly to run on DB2 instead, it works fine - it creates a row with a null populated datetime column.
Alternatively, if you uncomment the line that sets the value of currentTime, it runs fine on SQL Server and creates a row with a datetime column populated with the current time.
Return to top
Print this page
