[solved] Sqlite Index is not created
lazarus / 16-Databases

----------------------------------------------------------------------
ratmalwer · 2022-01-24 00:56

Hi all

I have this script witch does not affect the Creation of an Index.

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i 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 !!!!!

----------------------------------------------------------------------
Zvoni · 2022-01-24 07:49

There is a reason, why i use the Connection-Object for all DDL-
Statements ("ExecuteDirect").....