[SOLVED] How to append records to a MSAccess database table?
lazarus / 16-Databases

----------------------------------------------------------------------
dkjMusic · 2014-08-27 01:51

Can someone steer me to an example?

Thanks.

----------------------------------------------------------------------
minesadorada · 2014-08-27 06:39

This example code snippet works for most SQL-based databases -
including MSAccess.   It's not 'model code' but it works for me.
Code: [Select]sz := 'INSERT INTO ' + fUserTableName + ' ';
sz += '(name1,name2,name3,birthyear,height,heightunit)';
sz += ' VALUES (''%s'',''%s'',''%s'',''%d'',''%d'',''%d'')';
sz := Format(sz, [fUsername1, fUsername2, fUsername3, fUserBirthYear,
  fUserHeight, fUserHeightUnit]);
SQLQuery.SQL.Text := sz;
  Try
    Try
    SQLQuery.ExecSQL;
    SQLTransaction.CommitRetaining;
    Except
    on e: Exception Do
      SQLTransaction.RollbackRetaining;
    End;
  Finally
  SQLTransaction.EndTransaction;
  End;