SQLConnection1.Commit(TD) не работает (у меня) [D6, IB6.x]
Ptr © (2002-06-29 12:22:00)
Подскажите pls, почему этот код не заносит данные в базу (Хотя
у клиента они видны)
procedure TForm1.TBItem1Click(Sender: TObject);
var
i: integer;
ST: TTime;
TD: TTransactionDesc;
begin
if TBEditItem1.Text = "" then exit;
SQLClientDataSet1.DisableControls;
ST := Time;
if not SQLConnection1.InTransaction then
begin
TD.TransactionID := 1;
TD.IsolationLevel := xilREADCOMMITTED;
SQLConnection1.StartTransaction(TD);
try
try
for i:= 1 to StrToInt(TBEditItem1.Text) do
begin
SQLClientDataSet1.Append;
SQLClientDataSet1_DATE.AsDateTime := Date;
SQLClientDataSet1_P1.Value := "Account "+IntToStr(i);
SQLClientDataSet1_P2.Value := "Operation "+IntToStr(i);
SQLClientDataSet1_P3.Value := i;
SQLClientDataSet1_P4.Value := i;
SQLClientDataSet1_P5.Value := i;
SQLClientDataSet1_P6.Value := i;
SQLClientDataSet1_P7.Value := i;
SQLClientDataSet1_P8.Value := i;
end;
except
SQLConnection1.Rollback(TD); {on failure, undo the сhanges}
end;
finally
ShowMessage(TimeToStr(Time - ST));
SQLConnection1.Commit(TD); {on success, commit the changes}
SQLClientDataSet1.EnableControls;
end;
end;
end;
Shaman (2002-06-29 14:35:00) [1]
После Commit вставь
SQLClientDataSet1.ApplyUpdates(0)
Это зашлет все изменения, хранящиеся в локальном кэше на
сервер
Наверх 
ЧАТ |
Орешник |
|
