Die SQL-Syntax prüfen

[dataspider]

Hi,

Delphi-Quellcode:

  while (CreateTableMain.ModalResult = mrOK) do
  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;
      // Abbruch, wenn kein Fehler
      Break;
    except
      on e: Exception do
      begin
        MessageDlg('Es ist ein Fehler bei der Erstellung der Tabelle aufgetreten !!'
          + #13 + e.Message, mtError, [mbOk], 0);
      end;
    end;
  end; // IF-Abfrage auf's ModalResult
  // Break landet hier

Habs nicht geprüft, solte aber gehen. Kannst ja beim Dialog nach dem Except noch eine If Abfrage (noch mal versuchen) mit einem Break einbauen.

Cu, Frank