opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Bugfix: avoid calling FieldByName() with a field name that doesn't exist, it causes an exception. Fixes issue #1118.

Browse Source
This commit is contained in:
rosenfield.albert
2009-05-05 08:53:54 +00:00
parent 3939da1618
commit ffe82bc8c7
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/copytable.pas
View File

@ -260,9 +260,9 @@ begin
zq := Mainform.FetchActiveDbTableList; zq := Mainform.FetchActiveDbTableList;
while not zq.Eof do begin while not zq.Eof do begin
if zq.FieldByName(DBO_NAME).AsWideString = oldTableName then begin if zq.FieldByName(DBO_NAME).AsWideString = oldTableName then begin
if zq.FieldByName(DBO_COLLATION).AsString <> '' then if (zq.FindField(DBO_COLLATION) <> nil) and (zq.FieldByName(DBO_COLLATION).AsString <> '') then
strquery := strquery + ' COLLATE ' + zq.FieldByName(DBO_COLLATION).AsString; strquery := strquery + ' COLLATE ' + zq.FieldByName(DBO_COLLATION).AsString;
if zq.FieldByName(DBO_ENGINE).AsString <> '' then if (zq.FindField(DBO_ENGINE) <> nil) and (zq.FieldByName(DBO_ENGINE).AsString <> '') then
strquery := strquery + ' ENGINE=' + zq.FieldByName(DBO_ENGINE).AsString; strquery := strquery + ' ENGINE=' + zq.FieldByName(DBO_ENGINE).AsString;
break; break;
end; end;