PRB: Not Null Field Returns Error Using VFPODBC SQL Insert

• Mark all fields as allowing nulls. -or-
  
  
• Make sure that you explicitly insert values into every non-null field.

Sub Test_VFP_ODBC_Driver()

   Dim wks As DAO.Workspace
   Dim foo As DAO.Connection
   Dim db As DAO.Database
   Dim rs As DAO.Recordset

   Set wks = DBEngine.CreateWorkspace("", "Admin", "", dbUseODBC)
   wks.DefaultCursorDriver = dbUseODBCCursor
   Set foo = wks.OpenConnection("", dbDriverNoPrompt, False, "ODBC;dsn=MyNameDSN;NULL=NO")
   Set rs = foo.OpenRecordset("MyOrders", dbOpenDynaset, 0, dbOptimistic)

   rs.MoveFirst

   Do Until rs.EOF
       rs.Edit
       rs.Fields(0) = "150"
       rs.Update
       rs.MoveNext
   Loop
End Sub
				

Steps to Reproduce Behavior

1. Place the following code in a program file in a new directory:

         CREATE DATA TEST1
         CREATE TABLE TBL1(FLD1 C(10) PRIMARY KEY, FLD2 C(25))
         close_data()
         ?DBC()
         CREATE DATA TEST2
         CREATE CONNECTION CONN1 CONNSTR "driver=microsoft " ;
            + "visual foxpro driver;sourcetype=dbc;" ;
            + "sourcedb="+ SYS(5) + CURDIR() + "test1.dbc;backgroundfetch=no"
         CREATE SQL VIEW TEST2 REMOTE CONNECTION CONN1 AS SELECT * FROM TBL1
         DBSETPROP('Test2','View','SendUpdates',.T.)
         DBSETPROP('Test2.Fld1','field','updatable',.T.)
         USE TEST2
         INSERT INTO TEST2 (FLD1) VALUES ('1')
         ?TABLEUPDATE()
         USE
   
         PROCEDURE close_data
            CLOSE DATA ALL
         ENDPROC
   					

   ?TABLEREVERT(.T.)
				

1. Run the code and note that TableUpdate() returns a .F. and Use returns the following error:
   Connectivity error: [Microsoft][ODBC Visual FoxPro Driver
   Field FLD2 does not accept null values.
2. Run the following code from a new program file in the same directory as the preceding sample:

         OPEN DATABASE TEST1
         USE TBL1
         INSERT INTO TBL1 (FLD1) VALUES('100')
         ?ISNULL(FLD2)
         ?EMPTY(FLD2)
         ?ISBLANK(FLD2)
         BROWSE NOWAIT