diff --git a/out/locale/en/LC_MESSAGES/default.po b/out/locale/en/LC_MESSAGES/default.po index 0b54a461..6b8f928f 100644 --- a/out/locale/en/LC_MESSAGES/default.po +++ b/out/locale/en/LC_MESSAGES/default.po @@ -7,7 +7,7 @@ msgid "" msgstr "" "Project-Id-Version: HeidiSQL\n" "POT-Creation-Date: 2012-11-05 21:40\n" -"PO-Revision-Date: 2025-04-28 16:35+0200\n" +"PO-Revision-Date: 2025-05-22 19:50+0200\n" "Last-Translator: Ansgar Becker \n" "Language-Team: English (http://www.transifex.com/projects/p/heidisql/language/en/)\n" "Language: en\n" @@ -6756,3 +6756,9 @@ msgstr "Export cancelled, file not overwritten: %s" msgid "Discard changes?" msgstr "Discard changes?" + +msgid "Select top 1000 rows" +msgstr "Select top 1000 rows" + +msgid "Selects the first 1000 rows in a new query tab" +msgstr "Selects the first 1000 rows in a new query tab" diff --git a/source/main.dfm b/source/main.dfm index 76443dcb..dc8556be 100644 --- a/source/main.dfm +++ b/source/main.dfm @@ -3379,6 +3379,13 @@ object MainForm: TMainForm ImageIndex = 3 OnExecute = actCopyGridNodesExecute end + object actQueryTable: TAction + Category = 'Database' + Caption = 'Select top 1000 rows' + Hint = 'Selects the first 1000 rows in a new query tab' + ImageIndex = 57 + OnExecute = actQueryTableExecute + end end object menuConnections: TPopupMenu AutoHotkeys = maManual @@ -3416,6 +3423,9 @@ object MainForm: TMainForm object menuEmptyTables: TMenuItem Action = actEmptyTables end + object Selecttop1000rows1: TMenuItem + Action = actQueryTable + end object Runroutines1: TMenuItem Action = actRunRoutines end diff --git a/source/main.pas b/source/main.pas index b7225f52..81e60044 100644 --- a/source/main.pas +++ b/source/main.pas @@ -797,6 +797,8 @@ type Generatedata2: TMenuItem; actCopyGridNodes: TAction; actCopyGridNodes1: TMenuItem; + actQueryTable: TAction; + Selecttop1000rows1: TMenuItem; procedure actCreateDBObjectExecute(Sender: TObject); procedure menuConnectionsPopup(Sender: TObject); procedure actExitApplicationExecute(Sender: TObject); @@ -1199,6 +1201,7 @@ type const Token: string; TokenType: Integer; Attri: TSynHighlighterAttributes; var HintText: string); procedure actCopyGridNodesExecute(Sender: TObject); + procedure actQueryTableExecute(Sender: TObject); private // Executable file details FAppVerMajor: Integer; @@ -5065,6 +5068,21 @@ begin end; +procedure TMainForm.actQueryTableExecute(Sender: TObject); +var + Tab: TQueryTab; + Conn: TDBConnection; +begin + // Query table data + Conn := ActiveConnection; + if not Assigned(Conn) then + Exit; + + Tab := GetOrCreateEmptyQueryTab(True); + Tab.Memo.Text := Conn.ApplyLimitClause('SELECT', '* FROM '+ActiveDbObj.QuotedName, 1000, 0); + actExecuteQueryExecute(Sender); +end; + procedure TMainForm.actQueryWordWrapExecute(Sender: TObject); begin // SetupSynEditors applies all customizations to any SynEditor