Скачать: CL | DM;

SQLConnection1.Commit(TD) не работает (у меня)   Найти похожие ветки 

← →
Ptr   (2002-06-29 12:22) [0]

Подскажите 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) [1]

После Commit вставь
SQLClientDataSet1.ApplyUpdates(0)
Это зашлет все изменения, хранящиеся в локальном кэше на сервер

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c