Форум: "Базы";
Текущий архив: 2002.07.22;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Базы";
Текущий архив: 2002.07.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c