DROP TABLE et suppression des contraintes

**bart64** · 29/09/2007, 14h12

Bonjour,

J'ai besoin d'exécuter dans un programme des requêtes DROP TABLE.
Mais l'une des tables a une relation avec une autre et à l'exécution du DROP TABLE, j'obtiens :

Impossible de supprimer cet index ou cette table. Il s'agit de l'index en cours ou d'un index utilisé dans une relation

J'ai bien essayé de supprimer la relation avec cette requête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ALTER TABLE T_DISCIPLINE DROP CONSTRAINT

mais la syntaxe est incorrecte car il manque le nom de la relation.
La relation a été créée à partir du menu Outils -> Relations. Je ne trouve nulle part de nom pour cette relation.

Comment puis-je trouver ce nom ? Si ce n'est pas possible, comment forcer la suppression ?

J'ai également essayé de supprimer le champ vers lequel pointait la relation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ALTER TABLE MA_TABLE DROP COLUMN C1

Mais j'obtiens l'erreur :
Impossible de supprimer un champ qui fait partie d'un index ou est nécessaire au système.

Avez-vous une idée pour me sortir de cette situation ?

Merci d'avance.

**LedZeppII** · 29/09/2007, 15h58

Bonjour,

les relations se trouvent dans la table système MSysRelationships.
Le nom de la table est dans la colonne szObject si elle a une clé extrangére ou dans szReferencedObject si une autre table a une clé étrangère dans la table.

Voila un bout de code que j'ai essayé dans une copie de la base exemple COMPTOIRS.mdb

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub TestDropContraints()
Dim strTable As String
 
strTable = "Produits"
DropConstraints strTable
'DoCmd.RunSQL "DROP TABLE [" & strTable & "]"
End Sub
 
Sub DropConstraints(strTable As String)
Dim db As DAO.Database, rs As DAO.Recordset
Dim strSQL As String, strDROP As String
 
Set db = CurrentDb
strSQL = "SELECT DISTINCT szObject, szReferencedObject, szRelationship" & _
" FROM MSysRelationships" & _
" WHERE (((szObject)='" & strTable & "')) OR (((szReferencedObject)='" & strTable & "'))"
 
' Selectionne les relations où le nom de la table apparaît
Set rs = db.OpenRecordset(strSQL)
 
Do While Not rs.EOF
   strDROP = ""
   ' Relation appartient à la table recherchée
   If rs("szObject") = strTable Then
      strDROP = "ALTER TABLE [" & strTable & "]"
   End If
   ' Relation appartient à une autre table mais fait référence à la table recherchée
   If rs("szReferencedObject") = strTable Then
      strDROP = "ALTER TABLE [" & rs("szObject") & "]"
   End If
   If strDROP <> "" Then
      strDROP = strDROP & " DROP CONSTRAINT [" & rs("szRelationship") & "]"
      DoCmd.RunSQL strDROP
   End If
   rs.MoveNext
Loop
End Sub

A+