Adding a check constraint [DAO]

option explicit 

sub add_check_constraint()

  dim db     as dao.database
  dim mdb_file_name as string 

  mdb_file_name = "c:\temp\add_check_constraint_test.mdb"

  kill_file_if_exists(mdb_file_name)

  set db = dao.createDatabase(mdb_file_name, dbLangGeneral, 0)

  dim table_field as dao.field
  dim table_def   as dao.tableDef

  set table_def = db.createTableDef("table_with_check_constraint")

  set table_field = table_def.createField("col_1"       , dbLong)
  table_def.Fields.append table_field

  set table_field = table_def.createField("col_2"       , dbLong)
  table_def.Fields.append table_field


  db.tableDefs.append table_def

  table_def.validationRule = "col_1 > col_2"

  set db = nothing

end sub

sub kill_file_if_exists(file_name as string)
  dim fso     as  fileSystemObject 
  set fso   = new fileSystemObject

  if fso.fileExists(file_name) then
     fso.deletefile(file_name)
  end if

end sub