add_property [Access macro]

' run read_property afterwards
option explicit

public sub add_property ()

  dim ac  as access.application
  dim cnt as dao.container
  dim doc as dao.document
  dim prp as dao.property
  dim db  as dao.database

  dim mdb_name as string
      mdb_name = "c:\temp\prop_test.mdb"

  set ac = new access.application
  set db = ac.dbEngine.workspaces(0).createDatabase(mdb_name, dbLangGeneral, 0)

  ac.openCurrentDatabase(mdb_name)

  set prp = db.createProperty("foo" , dbText, "bar" )
  db.properties.append prp

  set prp = db.createProperty("snow", dbText, "cold")
  db.properties.append prp

end sub