Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 29.12.2006, 05:07
NovaC NovaC вне форума
Прохожий
 
Регистрация: 13.11.2006
Сообщения: 24
Репутация: 10
По умолчанию ADOQuery & WIN98 v4.10

Доброе время суток !
Под Win2000 & WinXP всё работает работает безошибочно
В Win98 INSERT проходит а при UPDATE появляется ошибка :
Error: [Microsoft] [ODBC dBase Driver] Operation must use an updateble query
--------------INSERT:
temp := 'Provider=MSDASQL.1;' +
'Persist Security Info=False;' +
'Data Source=Файлы dBASE;' +
'Initial Catalog=' + StrPas(dbfDir);
ADOConnection1.ConnectionString := temp;
ADOQuery1.Connection := ADOConnection1;
ADOQuery1.ParamCheck := true;
temp := Format ('INSERT INTO .. (...) VALUES (...)', [...]);
try
ADOConnection1.Execute(temp);
except
on e : exception do MessageDlg(e.message,mtError, [mbOK],0);
end;
ADOQuery1.Close;
ADOConnection1.Close;

--------------UPDATE:
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
temp := 'SELECT * FROM ... WHERE ....;
ADOQuery1.SQL.Text := temp;
ADOQuery1.Parameters.ParseSQL(ADOQuery1.SQL.Text, true);
ADOQuery1.Parameters [0].Value := IP;
ADOQuery1.Parameters [1].Value := Host;
ADOQuery1.Open;
except
on e : exception do MessageDlg(e.message,mtError, [mbOK],0);
end;
temp := Format ('UPDATE ... SET .... WHERE ...', [...]);
try
ADOConnection1.Execute(temp);
except
on e : exception do MessageDlg(e.message,mtError, [mbOK],0);
end
end;
ADOQuery1.Close;
ADOConnection1.Close;

Заранее спасибо за ответ . . .
Ответить с цитированием
  #2  
Старый 09.01.2007, 09:20
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Точно сказать не могу, но попробуй обновить Mdac
Ответить с цитированием
  #3  
Старый 09.01.2007, 13:26
NovaC NovaC вне форума
Прохожий
 
Регистрация: 13.11.2006
Сообщения: 24
Репутация: 10
По умолчанию

Спасибо всем за помощь
UPDATE заработал !!!

через 'Provider=Microsoft.Jet.OLEDB.4.0'
после обновления MS JET до v4.00.8015: jet40sp8_Win9xnt.exe

через 'Provider=MSDASQL.1'
после обновления MDAC до v2.81.1117.0 : MDAC_TYP.EXE

Вопрос исчерпан.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:49.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter