Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.22;
Скачать: 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 вся ветка

Текущий архив: 2002.07.22;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
7-70947
Ник
2002-04-30 12:34
2002.07.22
2 Delphi на одном компьютере


14-70857
MVova
2002-06-21 16:50
2002.07.22
Стиль написания.


1-70788
EugenCFG
2002-07-10 10:46
2002.07.22
Здраствуйте ещё раз...


3-70640
TAN_K
2002-07-01 14:51
2002.07.22
РАБОТА С БАЗАМИ ДАННЫХ


6-70850
Horol
2002-05-10 16:02
2002.07.22
сети, сети, сети