Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.08.2010, 08:40   #1
onixred
работаю
Пользователь
 
Аватар для onixred
 
Регистрация: 23.03.2009
Сообщений: 18
По умолчанию изменить данные в базе данных mysql

не могу изменить данные в базе данных mysql
Код:
DataModule2.ClientDataSet7.First;
while not (DataModule2.ClientDataSet7.Eof) do
if (uzerv=datamodule2.ClientDataSet7.Fields[1].asstring)  then
begin datamodule2.ClientDataSet7.Fields[2].asinteger:=yroven1+1; break; end
else datamodule2.ClientDataSet7.Next;
выдает ошибку
EDatabaseError with message "ClientDataset7: Dataset not edit or insert mode"
onixred вне форума Ответить с цитированием
Старый 06.08.2010, 08:55   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
with DataModule2.ClientDataSet7 do begin
 First;
 while not (Eof) do
  if (uzerv=Fields[1].asstring)  then begin  
   Edit;
   Fields[2].asinteger:=yroven1+1; break; 
  end  else 
    Next;
...
end {WITH}
Увидел? Ты в режим редактирования не перевел ДатаСет.

P.S. А не проще ли эту задачу сделать SQL запросом?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 06.08.2010, 14:29   #3
onixred
работаю
Пользователь
 
Аватар для onixred
 
Регистрация: 23.03.2009
Сообщений: 18
По умолчанию

это малый кусок там не получается sql или я не так делаю эти запросы

он теперь не сохраняет результаты datamodule2.ClientDataSet7.Post; не помогает

atamodule2.ClientDataSet4.ApplyUpda tes dct hf,jnftn

Последний раз редактировалось Stilet; 06.08.2010 в 15:32.
onixred вне форума Ответить с цитированием
Старый 06.08.2010, 15:01   #4
pobedin
Форумчанин
 
Регистрация: 30.07.2009
Сообщений: 105
По умолчанию

Код:
with query, sql do
begin
close;
clear;
text:='UPDATE  tbl_name SET field = : p1 WHERE userv = : p2';
parambyname('p1').asvariant:=yroven1+1;
parambyname('p2').asstring:=Fields[1].asstring;
execsql;
end;
попробуй запросом что-то вроде этого

Последний раз редактировалось pobedin; 06.08.2010 в 15:18.
pobedin вне форума Ответить с цитированием
Старый 09.08.2010, 05:52   #5
onixred
работаю
Пользователь
 
Аватар для onixred
 
Регистрация: 23.03.2009
Сообщений: 18
По умолчанию

все работает)
onixred вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создать пользователя с доступом к одной базе MySQL ssdm SQL, базы данных 1 28.05.2010 18:36
Запрос к базе даных mysql Sound PHP 1 15.08.2009 12:14
Изменить данные в базе SlavaSH БД в Delphi 10 13.08.2009 14:32
PHP. Как изменить значение записи в MySQL базе данных SeRhy PHP 4 18.06.2009 12:21
MySql - перемешать варианты в базе Shadow_Wind PHP 9 17.10.2008 09:55