Issue #1965: show warnings from some internal queries as well, and when running an SQL file

This commit is contained in:
Ansgar Becker
2024-06-18 16:53:09 +02:00
parent 02ea2d5199
commit 5b214a3d75
4 changed files with 33 additions and 10 deletions

View File

@ -479,12 +479,15 @@ begin
else
Batch := ComposeAlterStatement;
try
for Query in Batch do
for Query in Batch do begin
DBObject.Connection.Query(Query.SQL);
DBObject.Connection.ShowWarnings;
end;
// Rename table
if ObjectExists and (editName.Text <> DBObject.Name) then begin
Rename := DBObject.Connection.GetSQLSpecifity(spRenameTable, [DBObject.QuotedName, DBObject.Connection.QuoteIdent(editName.Text)]);
DBObject.Connection.Query(Rename);
DBObject.Connection.ShowWarnings;
end;
tabALTERcode.TabVisible := ObjectExists;
if chkCharsetConvert.Checked then begin