С id все ОК, вроде бы....
Привожу, как есть:
на форме: IBDatabase, IBTransaction, IBDataset, Datasource, DBGrid
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
Select SQL on IBDataSet:
select * from "RoadLanesL" ;
Insert SQL:
insert into "RoadLanesL"
( "RoadLanesL" . "mBegin" , "RoadLanesL" . "mEnd" , "RoadLanesL" . "LaneCount" ,
"RoadLanesL" . "LaneWidth" )
values
(: "mBegin" , : "mEnd" , : "LaneCount" , : "LaneWidth" )
Refresh SQL:
Select
"RoadLanesL" . "idRoad" ,
"RoadLanesL" . "id" ,
"RoadLanesL" . "mBegin" ,
"RoadLanesL" . "mEnd" ,
"RoadLanesL" . "LaneCount" ,
"RoadLanesL" . "LaneWidth"
from "RoadLanesL"
where
"RoadLanesL" . "id" = : "id"
Source:
IBDatasetId.Required := False;
IBDataset.CachedUpdates := False;
procedure TForm1.IBDataSet1BeforePost(DataSet: TDataSet);
begin
DataSet.FieldByName('idRoad').AsInteger := 1 ;
end;
Trigger metadata:
CREATE TRIGGER "RoadLanesL_BI" FOR "RoadLanesL"
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
IF (NEW. "id" IS NULL) THEN
NEW. "id" = GEN_ID(GENRLL, 1 );
END
Generator metadata:
CREATE GENERATOR GENRLL;
SET GENERATOR GENRLL TO 0 ;
После запуска проги:
1.
2.
3.
IBDatabase.Active := True;
IBTransaction.Active := True;
IBDataset.Active := True;
DBGrid отображает содержимое таблицы.
После вставки новой записи пишу в поле mBegin: 555 (например)
При сохранении изменений:
Exception EIBInterbaseError "Validation error for column idRoad, value "***null***""
Где грабли? :(
