|
CreateRelation # nuova relazione di esempio
' creare un oggetto relation utilizzando il metodo createrelation dell'oggetto database ' e impostare le proprieta' table e foreigntable Dim au_tit As relation Set au_tit = mydb.createrelation("authors_titles") au_tit.table = "authors" au_tit.foreigntable = "titles" 'creare un campo per la definizione comune di chiave primaria/esterna della relazione ' utilizzando il metodo createfield dell'oggetto relation Dim tempfield As field Set tempfield = au_tit.createfield("au_id") tempfield.foreignname = "au_id" ' utilizzare il metodo append per aggiungere l'oggetto field all'oggetto relation ' corrispondente e l'oggetto relation all'oggetto database au_tit.fields.append tempfield mydb.relations.append au_tit |