DataBase - Exemples
| DataBase = class (TObject) | Interface de DataBase | Exemples de DataBase |
List not suspended users within Qubes Database
uses System.Data;
//Connection to Qubes
var db := new DataBase('Qubes');
//list not suspended users
var sql := "select LOGIN from USERS where SUSPENDU=0";
//create the dataset from table USERS
var dataSet:=db.Query(sql);
//loop into dataset
while dataSet.Step do begin
var login := dataSet.AsString('LOGIN');
PrintLn('users: ' + login);
end;
db.Close;
//Connection to Qubes
var db := new DataBase('Qubes');
//list not suspended users
var sql := "select LOGIN from USERS where SUSPENDU=0";
//create the dataset from table USERS
var dataSet:=db.Query(sql);
//loop into dataset
while dataSet.Step do begin
var login := dataSet.AsString('LOGIN');
PrintLn('users: ' + login);
end;
db.Close;