win98 и ExecSQL

[Tanuska___:)]

вопрос в следующем : есть приложение, написанное на делфи с использованием ado компонент. (приложение разрабатывалось в xp)
в XP работает отлично, но в win 98 вот этот блок:

 adoQuery1.Close;
 adoQuery1.SQL.Clear;
 adoQuery1.SQL.Text:=t2;//обновление
  ADOQuery1.ExecSQL ;

 if ADOQuery1.ExecSQL = 0 then 
 begin
   with ADOQuery1 do
 begin
 Close;
 SQL.Clear;
 SQL.Text:=t;//добавление
 ExecSQL;
 end;
  end;

и добавляет и обнавляет , т.е. в итоге имеем 2 записи (обнавленную и добавленную)(это и есть проблема)
например :
таб | отметка | дата
1 |О |01.06.2009 // обнавленная
1 |В |01.06.2009 //добавленная

мои мысли:ADOQuery1.ExecSQL работает на платформе win98 как то не так... или незнаю
база - аксесс

[Stilet]

как то не так

Возможно. Может быть провайдер тупит.
Поменяй стратегию. Скажем перед обновлением делай поиск нужного, если не найден то добавить иначе обновить...

[Tanuska___:)]

Возможно. Может быть провайдер тупит.
Поменяй стратегию. Скажем перед обновлением делай поиск нужного, если не найден то добавить иначе обновить...

только что поменяла стратегию.... но все равно тупит... ADOQuery1.recordCaunt всегда почему то = 0... хотя уже по запросу должно было быть 3 записи

[soleil@mmc]

число записей чего?
операции инсерт/апдейт не возвращают набор данных

лучше переписать код кагтотаг
1) запрос кол-ва записей

select count(*) cnt from your_table where field_key0 = :p0 /* and  field_key1 = :p1 and ... */

в параметр(ы) подставите свои значения

2) а дальше

if qADO.FieldByName('cnt').AsInteger>0 then
// апдейтим запись

else
// добавляем запись

[Stilet]

Tanuska___

А как выглядят твои запросы и как часто нужно обновление делать?

[Tanuska___:)]

А как выглядят твои запросы и как часто нужно обновление делать?

запросы:
t2:='update uch SET ocob='+QuotedStr(ComboBox3.Text)+' where (tab like '+QuotedStr(ComboBox1.Text)+') and (data_oc like '+QuotedStr(d)+' )';

t:='insert into uch (tab,ocob,data_oc) '+
' values ('+QuotedStr(ComboBox1.Text)+','+Qu otedStr(ComboBox3.Text)+','+QuotedS tr(d)+')';

t3:='select * from uch where (tab like '+QuotedStr(ComboBox1.Text)+') and (data_oc like '+QuotedStr(d)+' ) ';// этот на

стратегию

обновление ... даже не знаю как минимум 8 раз для редактируемого tab

нашла статью http://www.microsoft.com/downloads/d...DisplayLang=ru
но там надо Для Windows 98 требуется второе обновление Y2K и Internet Explorer 4.01 SP2. это что??? и может ли помочь?

[Stilet]

и может ли помочь?

Это сервиспаки... В целом я не очень верю в их помошь, но попробовать стоит...

Еще такой момент, а если поиск делать не через SQL а методом locate например?

[Tanuska___:)]

вот только найти второе обновление Y2K немогу.... ссылки с сайта микрософт удалены... может они не поддерживают уже эту версию...
а locate не подойдет. там вся прога на SQL , и еще + отчеты строятся на выборке... так что надо как то через SQL думать .

[Stilet]

Tanuska___

ок. Тогда давай по шагам

t3:='select * from uch where (tab like '+QuotedStr(ComboBox1.Text)+') and (data_oc like '+QuotedStr(d)+' ) ';

Когда этот запрос возвращается ты как проверяешь его результат?

[Tanuska___:)]

как обычно : if ADOQuery1.recordCaunt >0 then begin