Shows how to create Absolute DB components at run-time in console application.
Download Absolute Database | Learn more
program RunTimeComponentsCreation;
{$APPTYPE CONSOLE}
uses
SysUtils,
ABSMain;
const
DataBaseFileName: String = '..\..\Data\Demos.abs';
var
DB: TABSDatabase;
Table: TABSTable;
begin
DB := TABSDatabase.Create(nil);
Table := TABSTable.Create(nil);
try
DB.DatabaseName := 'db';
DB.DatabaseFileName := ExtractFilePath(ParamStr(0)) + DataBaseFileName;
DB.Open;
Table.DatabaseName := DB.DatabaseName;
Table.TableName := 'employee';
Table.Open;
while not Table.Eof do
begin
writeln(Table.FieldByName('FirstName').AsString+' '+Table.FieldByName('LastName').AsString);
Table.Next;
end;
writeln;writeln('Press any key');
readln;
finally
Table.Free;
DB.Free;
end;
end.
Download Absolute Database | Learn more |
|
|
Current version: 7.95
Released: February 08, 2023
Price: $ 149
|
|
Thanks again for the superb tech support, I was worried I'd hit a brick wall this close to the finish line. Even working on the weekend... you guys rock!!!
Bob Boyd
|
|
|