Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.219 Beiträge
 
Delphi 12 Athens
 
#8

AW: alle Foreign Keys auflisten/löschen

  Alt 6. Jul 2010, 12:12
Hey cool, über den Tipp mit dem DUMP bin ich ja auf FOREIGN_KEY_CHECKS gestoßen und dieses scheint super zu funktionieren.

In meinem Fall sieht es nun etwa so aus, damit auch möglichst sichergestellt ist, daß es nachher auch wieder aktiviert wird.
SQL-Code:
echo "<h3><u>disable foreign key checking</u></h3>\r\n";
Main::$Database->Query('SET FOREIGN_KEY_CHECKS = 0');
Main::$Database->ResultCheck();
try {

  echo "<h3><u>remove all existing old database tables</u></h3>\r\n";
  Main::$Database->Query('DROP TABLE ' . implode(', ', $Tables));
  Main::$Database->ResultCheck();

} catch (Exception $E) {
  Main::$Database->Query('SET FOREIGN_KEY_CHECKS = 1');
  throw $E;
}
echo "<h3><u>enable foreign key checking</u></h3>\r\n";
Main::$Database->Query('SET FOREIGN_KEY_CHECKS = 1');
Main::$Database->ResultCheck();
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu ( 6. Jul 2010 um 12:34 Uhr)
  Mit Zitat antworten Zitat