procedure TSQLTalkerMain.CreateTableExecute(Sender: TObject);
var
CreateTableMain: TCreateTableMain;
begin
// Sollte noch kein Fenster offen sein, dann wird jetzt eines geöffnet
SQLCommand := ZeosDataModule.ZConnection.Protocol;
CreateTableMain := TCreateTableMain.Create(Application);
CreateTableMain.ShowModal;
if CreateTableMain.ModalResult = mrOK
then
begin
// Sollte noch kein Fenster offen sein, dann wird jetzt eines geöffnet
CreateSQLChild;
try
with ZeosDataModule.TempQuery
do
begin
if ZeosDataModule.ZConnection.Protocol = '
mysql'
then
begin
SQL.Clear;
SQL.Add(SQLCommand);
MainEdit.SynEditMemo.Lines.Clear;
MainEdit.SynEditMemo.Lines.Text := ZeosDataModule.TempQuery.SQL.Text;
ExecSQL;
ListViewTables.Items.Clear;
SQL.Clear;
SQL.Add('
SHOW TABLES FROM ' + Copy(TreeViewDatabase.Selected.Text, 0,
posn('
(', TreeViewDatabase.Selected.Text, 1) - 2) + '
;');
Open;
Active := true;
while not EOF
do
begin
ListViewTables.Items.Add(Fields[0].AsString);
next;
end;
Active := False;
TreeViewDatabaseClick(Sender);
end;
end;
except
on e:
Exception do
begin
MessageDlg('
Es ist ein Fehler bei der Erstellung der Tabelle aufgetreten !!'
+ #13 + e.
Message, mtError, [mbOk], 0);
CreateTableMain.ShowModal;
//<--- Dieses habe ich jetzt eingefügt.
end;
end;
end;
// IF-Abfrage auf's ModalResult
end;