Hi all
I have this script witch does not affect the Creation of an Index.
function TDataModul.Create_Index_Displayname(): string;
begin
Result := 'ok';
if not DBConnectSQLite() then begin
exit;
end;
Try
SQLQuery5.close;
SQLQuery5.sql.Clear;
SQLQuery5.SQL.Text := 'CREATE INDEX "IDISPLAYNAME" ON "ZIMAGE" ("ZDISPLAYNAME" ASC)';
SQLQuery5.ExecSql;
except
on E: ESQLDatabaseError do begin
Result := E.Message;
end;
end;
DBCloseSQLite;
end;
The Code is executed and the Result is 'ok'. - But no Index is present.
When I insert the Index (same Synthax) in the DB-Browser the Index is inserted.
Then executing the script in Lazarus again I get the expected Error (Index already exists).
What do I miss?
I missed the commit !!!!!