var
d : TDatabase;
begin
d := TDatabase.Create(Application);
d.DataBaseName := ′TEST_ALIAS′;
d.DriverName := ′STANDARD′;
d.Params.Add(′PATH=C:DBDEMOS′);
d.Connected := True;
end; 

Получить ссылку на материал