GetNextTableID
Qubes 6.3 Retourne le prochain ID disponible d'une table (dépréciée)
Syntaxe
function GetNextTableID(alias: String; tableName: String): Integer
alias: nom de l'alias de la base de donnée
tableName: nom de la table
Remarques
Cette fonction est dépréciée à partir de la version Qubes 9.0, utiliser QubesDatabase.GetNextTableID
L'alias est le nom d'alias de la base de données dans laquelle on souhaite accéder à la table tablename.
La fonction retourne le prochain identifient, ID de la table, disponible en fonction du générateur rattachée à la table.
Le nom du générateur doit être GEN_tableName_ID.
Appeler cette fonction incrémente d'un pas le générateur de la table que l'ID soit utilisé ou non.
Exemples
uses SysUtils, SDB;
var id := GetNextTableID('QubesArchive', 'EXPE_LOCATION');
var q := TSDBQuery.Create('', 'QubesArchive');
q.SQL := #'insert into EXPE_LOCATION (ID, COMPANY_NAME, LOCATION_NAME, HASH_KEY)
values (:ID, :COMPANY_NAME, :LOCATION_NAME, :HASH_KEY)';
q.Int64Param['ID'] := id;
q.StringParam['COMPANY_NAME'] := 'myCompName';
q.StringParam['LOCATION_NAME'] := 'myLocationName';
q.Int64Param['HASH_KEY'] := 123456;
q.ExecSQL;
var id := GetNextTableID('QubesArchive', 'EXPE_LOCATION');
var q := TSDBQuery.Create('', 'QubesArchive');
q.SQL := #'insert into EXPE_LOCATION (ID, COMPANY_NAME, LOCATION_NAME, HASH_KEY)
values (:ID, :COMPANY_NAME, :LOCATION_NAME, :HASH_KEY)';
q.Int64Param['ID'] := id;
q.StringParam['COMPANY_NAME'] := 'myCompName';
q.StringParam['LOCATION_NAME'] := 'myLocationName';
q.Int64Param['HASH_KEY'] := 123456;
q.ExecSQL;