Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка		 
 
Библиотека		 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

  
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

  
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:		 
  
 
Во Флориде и в Королевстве сейчас  20:40[Войти] | [Зарегистрироваться]
Ответ на вопрос № 77772

11-08-2010 00:48
           Delphi7+DBGridEh+FireBird+IBQuery

Делаю CheckBox на гриде.
1) создаю в базе поле Flag_is типа smallint
3) Заполняю это поле ч/з IB Expert
2)

      EhGrid.Columns[3].KeyList.Add('1'); //TRUE
      EhGrid.Columns[3].KeyList.Add('0'); //FALSE
      EhGrid.Columns[3].Checkboxes := TRUE;




запускаю прогу
флаги появились, но их нельзя убрать или поставить.
хочу чтобы флаги на CheckBox можно было снимать и ставить с соответствующим изменением в БД.

CREATE TABLE RANGEIP (
    ID_RANGEIP  INTEGER NOT NULL,
    IP1        VARCHAR(20),
    IP2        VARCHAR(20),
    FLAGIS      SMALLINT
);
/******************************************************************************/
/***                              Primary Keys                              ***/
/******************************************************************************/
ALTER TABLE RANGEIP ADD CONSTRAINT PK_RANGEIP PRIMARY KEY (ID_RANGEIP);




Я так понимаю при каждом клике на грид нужно делать:

UPDATE RANGEIP SET IP1=:Param1,IP2=:param2, Flag_is =:param3 WHERE ID_RANGEIP=:idParam


как определить param3 ?
В какую сторону грести?

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:

Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.
17-08-2010 01:16
First, Last, Open, Close

Какой бред для для SQL сервера.
Нечего будет делать - запулю пример.
13-08-2010 06:45
на FormShow:

  Way_to_database:=Application.ExeName;
  while Way_to_database[length(Way_to_database)]<>'\' do
    delete(Way_to_database,length(Way_to_database),1);

  DataModuleMain.IBDatabaseMain.Connected:=false;
  DataModuleMain.IBDatabaseMain.DatabaseName:=Way_to_database+'BDSCANIP.fdb';
  DataModuleMain.IBDatabaseMain.Connected:=true;

  DataModuleMain.IBTransactionRANGEIP.Active:=true;
  DataModuleMain.IBDataSetRANGEIP.open;
  DataModuleMain.IBDataSetRANGEIP.First;
  DataModuleMain.IBDataSetRANGEIP.Last;
  DataModuleMain.IBDataSetRANGEIP.First;



Transaction Properties= Read_Committed

добавляю запись:

  DataModuleMain.IBDataSetRANGEIP.open;
  DataModuleMain.IBDataSetRANGEIP.Insert;  DataModuleMain.IBDataSetRANGEIP.FieldByName('IP1').AsString:=FormMain.EditRangeIP1.Text+'.'+FormMain.EditRangeIP2.Text+'.'+FormMain.EditRangeIP3.Text+'.'+FormMain.EditRangeIP4.Text;  DataModuleMain.IBDataSetRANGEIP.FieldByName('IP2').AsString:=FormMain.EditRangeIP5.Text+'.'+FormMain.EditRangeIP6.Text+'.'+FormMain.EditRangeIP7.Text+'.'+FormMain.EditRangeIP8.Text;
  DataModuleMain.IBDataSetRANGEIP.FieldByName('FLAGIS').AsInteger:=1;
  DataModuleMain.IBDataSetRANGEIP.Post;


Удаляю запись:

if  DataModuleMain.IBDataSetRANGEIP.FieldByName('ID_RANGEIP').Value<>null then
begin
  DataModuleMain.IBDataSetRANGEIP.Delete;
  DataModuleMain.IBDataSetRANGEIP.open;
end;



Всё вышеперечисленное работает нормально. и коммитится сразу, а checkBox сохраняется не на всех записях
13-08-2010 06:08
Я так понял транзакцию комитить надо. в каком методе это делать или? или.. или как?


там же на ibase про транзакции.
13-08-2010 05:43
на гриде CheckBox сделал. устанавливаю флаг. закрываю программу, запускаю снова, флаг не установлен.
Если ставлю флаги на нескольких полях закрываю программу, запускаю снова, флаги установлены только на некоторых полях.

Я так понял транзакцию комитить надо. в каком методе это делать или? или.. или как?

Transaction Properties= Read_Committed
13-08-2010 00:46
Раньше думать надо было:

http://www.ibase.ru/devinfo/ibx.htm#ibdataset
13-08-2010 00:27
убрал всё из RefreshSQL. Заработало
Было тоже что и в SelectSQL:


select * from  RANGEIP order by IP1

12-08-2010 23:12
сделал так, как посоветовали.
Снимаю флажок, закрываю программу, захожу ч/з IBExpert, а в поле FLAGIS записано "1", а должен быть "0".
12-08-2010 22:59
Посоветовали:
В modifySQL:

update RANGEIP set IP1=:Param1, IP2=:Param2, FLAGIS=:Param3 where ID_RANGEIP=:param4



Имена параметров должны совпадать с именами полей, получаемых при выполнении SelectSQL

update RANGEIP set IP1=:IP1, IP2=:IP2, FLAGIS=:FLAGIS where ID_RANGEIP=:OLD_ID_RANGEIP



Все. Больше нигде ничего писать НЕ НУЖНО
12-08-2010 15:40
ModifySQL.Add('update RANGEIP set IP1='''+ FormMain.EditRangeIP1.Text+'.'+
                                FormMain.EditRangeIP2.Text+'.'+
                                FormMain.EditRangeIP3.Text+'.'+
                                FormMain.EditRangeIP4.Text +''', IP2='''+FormMain.EditRangeIP5.Text+'.'+
                                FormMain.EditRangeIP6.Text+'.'+
                                FormMain.EditRangeIP7.Text+'.'+
                                FormMain.EditRangeIP8.Text +''', FLAGIS='''+inttostr(integer(not FormMain.DBGridEhRangeIP.Columns[3].Checkboxes)) +''' where ID_RANGEIP='''+inttostr(id_val)+'''              ' );

open;

Надеемся, что сия галиматья (соответствующие места подчеркнуты) будет работать? Особенно если выполнять запрос на UPDATE через Open.
12-08-2010 07:41
Так вроде работает
Только в каком событии писать?

if DataModuleMain.IBDataSetRANGEIP.FieldByName('ID_RANGEIP').Value<>null then
  id_val:=DataModuleMain.IBDataSetRANGEIP.FieldByName('ID_RANGEIP').Value;

with DataModuleMain.IBDataSetRANGEIP do
begin

Close;
ModifySQL.Clear;

ModifySQL.Add('update RANGEIP set IP1='''+ FormMain.EditRangeIP1.Text+'.'+
                                FormMain.EditRangeIP2.Text+'.'+
                                FormMain.EditRangeIP3.Text+'.'+
                                FormMain.EditRangeIP4.Text +''', IP2='''+FormMain.EditRangeIP5.Text+'.'+
                                FormMain.EditRangeIP6.Text+'.'+
                                FormMain.EditRangeIP7.Text+'.'+
                                FormMain.EditRangeIP8.Text +''', FLAGIS='''+inttostr(integer(not FormMain.DBGridEhRangeIP.Columns[3].Checkboxes)) +''' where ID_RANGEIP='''+inttostr(id_val)+'''              ' );

open;
end;
DataModuleMain.IBDataSetRANGEIP.Open;

12-08-2010 06:40
Во как! :

procedure TFormMain.DBGridEhRangeIPCellClick(Column: TColumnEh);
    var id_val:integer;
begin

if DataModuleMain.IBDataSetRANGEIP.FieldByName('ID_RANGEIP').Value<>null then
  id_val:=DataModuleMain.IBDataSetRANGEIP.FieldByName('ID_RANGEIP').Value;

with DataModuleMain.IBDataSetRANGEIP do
begin
Close;
ModifySQL.Clear;
ModifySQL.Add('update RANGEIP set IP1=:Param1, IP2=:Param2, FLAGIS=:Param3 where ID_RANGEIP=:param4' );
ParamByName('Param1').AsString:=FormMain.EditRangeIP1.Text+'.'+
                                FormMain.EditRangeIP2.Text+'.'+
                                FormMain.EditRangeIP3.Text+'.'+
                                FormMain.EditRangeIP4.Text;
ParamByName('Param2').AsString:=FormMain.EditRangeIP5.Text+'.'+
                                FormMain.EditRangeIP6.Text+'.'+
                                FormMain.EditRangeIP7.Text+'.'+
                                FormMain.EditRangeIP8.Text;
ParamByName('Param3').AsInteger:=integer(not FormMain.DBGridEhRangeIP.Columns[3].Checkboxes);
ParamByName('Param4').AsInteger:=id_val;

ExecSQL;
end;

DataModuleMain.IBDataSetRANGEIP.Open;
end;



Теперь пишет field "param1" not found
12-08-2010 06:23
Оно?

procedure TFormMain.DBGridEhRangeIPCellClick(Column: TColumnEh);
var id_val:integer;
begin
if DataModuleMain.IBDataSetRANGEIP.FieldByName('ID_RANGEIP').Value<>null then
id_val:=DataModuleMain.IBDataSetRANGEIP.FieldByName('ID_RANGEIP').Value;

with DataModuleMain.IBDataSetRANGEIP do
begin
ModifySQL.Add('update RANGEIP set IP1=:Param1, IP2=:Param2, FLAGIS=:Param3 where ID_RANGEIP=:param4' );
ParamByName('Param1').AsString:=FormMain.EditRangeIP1.Text;
ParamByName('Param2').AsString:=FormMain.EditRangeIP2.Text;
ParamByName('Param3').AsInteger:=integer(not FormMain.DBGridEhRangeIP.Columns[3].Checkboxes);
ParamByName('Param4').AsInteger:=id_val;
ExecSQL;
end;
DataModuleMain.IBDataSetRANGEIP.Open;
end;



мне кажется не в том событии я это делаю

при прогоне пишет:
field "FlagIS" has no dataset
12-08-2010 04:13
IBQuery - компонент исключительно для чтения данных.

префиксы ?new_ , ?old_ - используются компонентами IBX (FIB, FIBPlus) для определения данных ДО и ПОСЛЕ модификации.

можно прочитать об этом в доке.

В идеальном случае, ?_old_ID_RANGRIP будет прописан сам.
11-08-2010 01:33
флаги появились, но их нельзя убрать или поставить.

По этому поводу???

?old_ID_RANGEIP-что сюда писать? как узнать что флаг установлен на гриде?
11-08-2010 01:23
Вместо IBQuery использовать IBDataset.

UpdateSQL:


update RANGEIP set
IP1 = ?new_IP1,
IP2 = ?new_IP2
where ID_RANGEIP = ?old_ID_RANGEIP

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
"Мы с тобой одной крови — ты и я!". Чьи это заветные слова? 		в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
    •  
     Правила оформления сообщений на Королевстве
    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.
    Яндекс цитирования