Код: Выделить всё
var
ArrayStr: string;
i: integer;
begin
MyQuery1.SQL.Text := MyQuery1.SQL.Text := 'UPDATE tickets SET status = 1 WHERE seat IN (&ARRAY)';
ArrayStr := '';
for i := 0 to Memo.Lines.Count - 1 do begin
if ArrayStr <> '' then
ArrayStr := ArrayStr + ',';
ArrayStr := ArrayStr + QuotedStr(Memo.Lines[i]);
end;
MyQuery1.MacroByName('ARRAY').Value := ArrayStr;
MyQuery1.Execute;
end;Код: Выделить всё
DefaultTransaction.IsolationLevel = ilSnapshot:
isc_tpb_concurrency
isc_tpb_nowait
isc_tpb_write
DefaultTransaction.IsolationLevel = ilReadCommitted:
isc_tpb_read_committed
isc_tpb_rec_version
isc_tpb_nowait
isc_tpb_write
DefaultTransaction.IsolationLevel = ilIsolated:
isc_tpb_consistency;
isc_tpb_writeКод: Выделить всё
DefaultTransaction.SpecificOptions.Values['Params'] := 'wait' + #13#10 + 'read_committed' + #13#10 + 'rec_version';
Код: Выделить всё
DefaultTransaction.SpecificOptions.Values['Params'] := 'wait;read_committed;rec_version';