[patch_done] Only one record should have been updated...
Moderators: gto, EgonHugeist, olehs
- EgonHugeist
- Zeos Project Manager
- Posts: 1936
- Joined: 31.03.2011, 22:38
miab3,
what is 1:1? Is it 01:01:00 or 00:01:01? Here we call the rtl-functions of the compiler...
ism, Does he understand? He want to update the same values twice. First times with success, second times has nothing changed. UpdateCount = 0. Is there a reality example that this stupid code must be supported?
Michael
what is 1:1? Is it 01:01:00 or 00:01:01? Here we call the rtl-functions of the compiler...
ism, Does he understand? He want to update the same values twice. First times with success, second times has nothing changed. UpdateCount = 0. Is there a reality example that this stupid code must be supported?
Michael
Best regards, Michael
You want to help? http://zeoslib.sourceforge.net/viewtopic.php?f=4&t=3671
You found a (possible) bug? Use the new bugtracker dude! http://sourceforge.net/p/zeoslib/tickets/
You want to help? http://zeoslib.sourceforge.net/viewtopic.php?f=4&t=3671
You found a (possible) bug? Use the new bugtracker dude! http://sourceforge.net/p/zeoslib/tickets/
В скриншотах я подробно показал что ЗЕОС 6 не выдает никакиех ошибок связанных со временем! И для того и для другого ЗЕОСа одна и таже таблица и один и тот же сервер MySQL! Тогда объясните мне тупому каким образом один и тот же серсер и одно и тоже поле по разному работают!? Может это всё таки ошибка компонента? Именно ошибки компонента мы тут ищем и пытаемся их исправить? Или нет может я что то не так понял?
Как видно из скришотов MyDAC прекрасно работает и не выдаёт никаких ошибок... Если Вы будете продолжать настаивать на том что всему виной сервер MySQL то думаю продолжать дальнейший разговор на эту тему не стоит... Думаю также понятно и то что проблем с доступом к серверу MySQL нет и белый свет на компоненте ZEOS клином не сошелся... Что есть обход ошибки и возможность продолжать использование компонента... Не понятно только Ваше желание упорно отрицать факт наличия ошибки компонента и мое желание попробовать Вам об этом рассказать... Еще раз хочу подчеркнуть что строчки присвоения времени это ошибка в чистом виде и ничего больше... Никто в своих проектах подобный (как описан тут ) код не использует... Проект в котором существует такого рода ошибка имеет по мимо поля время еще 10 полей и после некторого изменеия данных происходит повторное переприсвоение значений (согласно изменений - который выполнил пользователь, а точнее расчет суммы новых значений) ... Надеюсь от тупости кода мы тоже наконец то отойдем и перестанем говорить про эту ерунду...
ism если Вы знаете в каком pas файле или в каком приблезительно месте можно покопать исходники буду Вам искренне признателен...
Как говориться обидно, досадно но ладно...
ism если Вы знаете в каком pas файле или в каком приблезительно месте можно покопать исходники буду Вам искренне признателен...
Как говориться обидно, досадно но ладно...
Last edited by DoctorZLO on 20.05.2012, 07:08, edited 2 times in total.
- EgonHugeist
- Zeos Project Manager
- Posts: 1936
- Joined: 31.03.2011, 22:38
DoctorZLO,
my last try to explain. This times in some codelines:
How it fails:
How it works perfectly:
Do you understand now?
Michael
my last try to explain. This times in some codelines:
How it fails:
Code: Select all
var
ATimeValue: TDateTime;
begin
ATimeValue := Time();
ZQuery1.insert;
ZQuery1.FieldByName('id').AsInteger := ZQuery1.RecordCount+1;
ZQuery1.fieldByName('PR_Time').AsDateTime := ATimeValue;
ZQuery1.Post;
for i := 0 to 10 do
begin
Zquery1.Edit;
ZQuery1.FieldByName('PR_Time').AsDateTime := ATimeValue;
try
Zquery1.Post;
except
ShowMessage('Nothing changed:'+ ZQuery1.FieldByName('PR_Time').AsString);
ZQuery.Cancel;
end;
Zquery1.Edit;
Zquery1.FieldByName('PR_Time').AsString := TimeToStr(ATimeValue);
try
Zquery1.Post;
except
ZQuery.Cancel;
ShowMessage('Nothing changed:'+ ZQuery1.FieldByName('PR_Time').AsString);
end;
end;
Code: Select all
begin
ZQuery1.insert;
ZQuery1.FieldByName('id').AsInteger := ZQuery1.RecordCount+1;
ZQuery1.fieldByName('PR_Time').AsDateTime := Time();
ZQuery1.Post;
for i := 0 to 10 do
begin
Sleep(1000); //one second is over!!!
Zquery1.Edit;
Zquery1.Post;
ShowMessage('Time changed:'+ ZQuery1.FieldByName('PR_Time').AsString);
Sleep(1000); //again one second is over!
Zquery1.Edit;
Zquery1.FieldByName('PR_Time').AsString := Time();
Zquery1.Post;
ShowMessage('Time changed:'+ ZQuery1.FieldByName('PR_Time').AsString);
end;
end;
Michael
Best regards, Michael
You want to help? http://zeoslib.sourceforge.net/viewtopic.php?f=4&t=3671
You found a (possible) bug? Use the new bugtracker dude! http://sourceforge.net/p/zeoslib/tickets/
You want to help? http://zeoslib.sourceforge.net/viewtopic.php?f=4&t=3671
You found a (possible) bug? Use the new bugtracker dude! http://sourceforge.net/p/zeoslib/tickets/
Thank you very much ... The decision was without falling asleep ... I think all the topic is closed ...EgonHugeist wrote:DoctorZLO,
my last try to explain. This times in some codelines:
How it fails:How it works perfectly:Code: Select all
var ATimeValue: TDateTime; begin ATimeValue := Time(); ZQuery1.insert; ZQuery1.FieldByName('id').AsInteger := ZQuery1.RecordCount+1; ZQuery1.fieldByName('PR_Time').AsDateTime := ATimeValue; ZQuery1.Post; for i := 0 to 10 do begin Zquery1.Edit; ZQuery1.FieldByName('PR_Time').AsDateTime := ATimeValue; try Zquery1.Post; except ShowMessage('Nothing changed:'+ ZQuery1.FieldByName('PR_Time').AsString); ZQuery.Cancel; end; Zquery1.Edit; Zquery1.FieldByName('PR_Time').AsString := TimeToStr(ATimeValue); try Zquery1.Post; except ZQuery.Cancel; ShowMessage('Nothing changed:'+ ZQuery1.FieldByName('PR_Time').AsString); end; end;
Do you understand now?Code: Select all
begin ZQuery1.insert; ZQuery1.FieldByName('id').AsInteger := ZQuery1.RecordCount+1; ZQuery1.fieldByName('PR_Time').AsDateTime := Time(); ZQuery1.Post; for i := 0 to 10 do begin Sleep(1000); //one second is over!!! Zquery1.Edit; Zquery1.Post; ShowMessage('Time changed:'+ ZQuery1.FieldByName('PR_Time').AsString); Sleep(1000); //again one second is over! Zquery1.Edit; Zquery1.FieldByName('PR_Time').AsString := Time(); Zquery1.Post; ShowMessage('Time changed:'+ ZQuery1.FieldByName('PR_Time').AsString); end; end;
Michael
-
- Fresh Boarder
- Posts: 1
- Joined: 25.09.2012, 12:41