[fr-users] Re: Supprimer/créer des relations entre tables par macro

Il y a une erreur dans le codage qui néanmoins ne déclenche pas une message
si l'on l'exécute:
En deux cas il y a la ligne:

pierre-yves samyn wrote
> oDescCol.Type = com.sun.star.sdbcx.KeyType.FOREIGN

Cette constante n'est pas correcte pour une colonne, on aura besoin d'une
constante du type com.sun.star.sdbc.DataType.... La valeur de la constante
est 3, donc le „Type“ de la colonne en ton cas est DECIMAL.

En essayant de créer une *nouvelle* table je suis arrivé aux mêmes
instructions. Il y a seulement une chose à observer dans cette situation: On
doit (avec LibreOffice 4.2 au moins) d'abord créer la table (avec le PRIMARY
KEY, ça fonctionne), et puis ajouter la FOREIGN KEY à l'objet table.

Mon exemple (testé avec MySQL/MariaDB):

tableDescr = tables.createDataDescriptor
tableDescr.Name = "textmodule"

keyDescr = tableDescr.Keys.createDataDescriptor
keyDescr.Name = "Primary Key"
keyDescr.Type = com.sun.star.sdbcx.KeyType.PRIMARY

colDescr = tableDescr.Columns.createDataDescriptor
colDescr.Name = "seg"
colDescr.Type = com.sun.star.sdbc.DataType.CHAR
colDescr.Precision = 4
tableDescr.Columns.appendByDescriptor(colDescr)
keyDescr.Columns.appendByDescriptor(colDescr)

colDescr = tableDescr.Columns.createDataDescriptor
colDescr.Name = "textno"
colDescr.Type = com.sun.star.sdbc.DataType.TINYINT
colDescr.Precision = 6
tableDescr.Columns.appendByDescriptor(colDescr)
keyDescr.Columns.appendByDescriptor(colDescr)

colDescr = tableDescr.Columns.createDataDescriptor
colDescr.Name = "textdefinition"
colDescr.Type = com.sun.star.sdbc.DataType.VARCHAR
colDescr.Precision = 255
tableDescr.Columns.appendByDescriptor(colDescr)
tableDescr.Keys.appendByDescriptor(keyDescr)

'       this creates the table:
tables.appendByDescriptor(tableDescr)

'       Now create the foreign Key:
table = tables.getByName("textmodule")
keyDescr2 = table.Keys.createDataDescriptor
keyDescr2.Name = "FK_textmodule_segment"
keyDescr2.Type = com.sun.star.sdbcx.KeyType.FOREIGN
keyDescr2.DeleteRule = com.sun.star.sdbc.KeyRule.RESTRICT
keyDescr2.UpdateRule = com.sun.star.sdbc.KeyRule.RESTRICT
keyDescr2.ReferencedTable = "segment"
colDescr2 = keyDescr2.Columns.createDataDescriptor
colDescr2.Name = "seg"  'column in this table
colDescr2.Type = com.sun.star.sdbc.DataType.CHAR
colDescr2.Precision = 4
colDescr2.relatedColumn = "segment"     'column of the referenced table
keyDescr2.Columns.appendByDescriptor(colDescr2)
table.Keys.appendByDescriptor(keyDescr2)

Seulement le nom du clé  n'est oas arrivé à la base de données, il y a un
nom généré: textmodule_ibfk_1

Gerhard




--
View this message in context: 
http://nabble.documentfoundation.org/Supprimer-creer-des-relations-entre-tables-par-macro-tp4102110p4128918.html
Sent from the Users mailing list archive at Nabble.com.

-- 
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés