(SOLVED) error 'SQL statement not set' with INSERT INTO
lazarus / 16-Databases

----------------------------------------------------------------------
jex · 2020-04-09 06:30

Could someone tell me what is wrong with this code?
Using SQLite3

on button click:
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   try   
 //SQLQueryUsrRegister.Close;     //SQLQueryUsrRegister.SQL.Clear;   
 SQLQueryUsrRegister.Open;     SQLTransUsrRegister.Action :=
caCommit;     //SQLTransUsrRegister.Active := True;   
 SQLQueryUsrRegister.SQL.Add('INSERT INTO UserAccounts (UsrName,
UsrPass, UsrEmail)VALUES(:USERNAME, :USERPASSWORD, :USEREMAIL)');   
 SQLQueryUsrRegister.Params.ParamByName('USERNAME').AsString :=
txtUsername.Text;   
 SQLQueryUsrRegister.Params.ParamByName('USERPASSWORD').AsString :=
txtPassword.Text;   
 SQLQueryUsrRegister.Params.ParamByName('USEREMAIL').AsString :=
txtEmail.Text;     SQLQueryUsrRegister.ExecSQL;   
 //SQLQueryUsrRegister.Active := True;   
 //SQLQueryUsrRegister.Insert;   
 //SQLQueryUsrRegister.ApplyUpdates;   
 SQLiteUsrRegister.Transaction.CommitRetaining;   
 //SQLQueryUsrRegister.Transaction.ExecuteAction();   
 SQLTransUsrRegister.Commit;                                
on formCreate:
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
SQLiteUsrRegister.Connected := False;   SQLiteUsrRegister.DatabaseName
:= SysUtils.ExtractFilePath(ParamStr(0)) + 'sqlite.db'; 
 SQLiteUsrRegister.Connected := True;    if
SQLiteUsrRegister.Transaction.Active = False   then
SQLiteUsrRegister.Transaction.StartTransaction;

I've been searching and tested other stuff but none helped, also 
tested with the commented lines.

Thank you

----------------------------------------------------------------------
jex · 2020-04-09 06:54

Nevermind, got it working with the following code (ignore commented).

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
//SQLQueryUsrRegister.Open;     SQLTransUsrRegister.Action :=
caCommit;     //SQLTransUsrRegister.Active := True;   
 SQLQueryUsrRegister.SQL.Text := ('INSERT INTO UserAccounts (UsrName,
UsrPass, UsrEmail)VALUES(:USERNAME, :USERPASSWORD, :USEREMAIL)');   
 SQLQueryUsrRegister.Params.ParamByName('USERNAME').AsString :=
txtUsername.Text;   
 SQLQueryUsrRegister.Params.ParamByName('USERPASSWORD').AsString :=
txtPassword.Text;   
 SQLQueryUsrRegister.Params.ParamByName('USEREMAIL').AsString :=
txtEmail.Text;     //SQLQueryUsrRegister.Active := True;   
 //SQLTransUsrRegister.StartTransaction;   
 SQLQueryUsrRegister.ExecSQL;     //SQLQueryUsrRegister.Active :=
True;     //SQLQueryUsrRegister.Insert;   
 //SQLQueryUsrRegister.ApplyUpdates;   
 //SQLiteUsrRegister.Transaction.CommitRetaining;   
 //SQLQueryUsrRegister.Transaction.ExecuteAction();   
 SQLTransUsrRegister.Commit; [code]