ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Firebird, InterBase [игнор отключен] [закрыт для гостей] / Делфи+interbase
17 сообщений из 17, страница 1 из 1
Делфи+interbase
    #32112481
DAN1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DAN1
Участник
Извините за гл. вопрос
при первой нажатий удаляет запись а второй ра не удаляет

with ibQuery2 do begin
ibquery2.Active:=true;
if MessageDlg('Запись' +
ibquery2.fieldbyname('KOD').asstring +
'действительно удалить?', mtconfirmation,
[mbYES,mbNO],0)=mrYES then
begin
ibquery2.Close;
ibquery2.Prepare;
ibquery2.Params[0].AsString:=''+ibquery2.Params[0].AsString;
Kod:=Ibquery2.Params[0].AsString;
ibQuery2.SQL.Text:=
'delete From P_581578 '+
' WHERE KOD = :KOd';
ibQuery2.ExecSQL;
ibquery1.Close;
ibquery1.Open;
label1.Caption:= (' всего записей '+ inttostr(ibquery1.RecordCount));
ibquery1.Last;
ibquery2.Active:=false;
end;
end;
end;
...
Рейтинг: 0 / 0
28.02.2003, 09:12
| Ответить | Цитировать | Написать  
Делфи+interbase
    #32112522
mitritch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mitritch
Участник
А че так наворочено? Создай триггер на удаление, если ты удаляеш из другой таблицы.
...
Рейтинг: 0 / 0
28.02.2003, 10:10
| Ответить | Цитировать | Написать  
Делфи+interbase
    #32112584
DAN1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DAN1
Участник
Как триггер создать не знаю, не подскажете, если можно с небольшим примерром.
за ранее блогадарен
...
Рейтинг: 0 / 0
28.02.2003, 11:25
| Ответить | Цитировать | Написать  
Делфи+interbase
    #32112889
AndreyK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyK
Участник
Кусок из Help-а (IBConsole "SqlRef.hlp")

SET TERM !! ;
CREATE TRIGGER SET_CUST_NO FOR CUSTOMER
BEFORE INSERT AS
BEGIN
NEW.CUST_NO = GEN_ID(CUST_NO_GEN, 1);
END !!

SET TERM ; !!
...
Рейтинг: 0 / 0
28.02.2003, 16:44
| Ответить | Цитировать | Написать  
Делфи+interbase
    #32113097
DAN1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DAN1
Участник
а как с баттоном связать
...
Рейтинг: 0 / 0
01.03.2003, 09:38
| Ответить | Цитировать | Написать  
Делфи+interbase
    #32113294
alubetsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alubetsky
Участник
А это еще и работает ???
Извини, не могу удержаться от порыва эмоций, при виде этого ...
Ты что в доДелфевой эпохе родился ? Или тебя перфакарты испортили ??? кто так пишет ??? что это вообще такое ??? Родила царица в ночь, не то сына, не то дочь ...
Блин, человеки, хомосапиенсы, Вы же разумны !!!
Если ты пишешь: with ibQuery2 do begin ... то зачем ibquery2.Active:=true; ??? Если написал with ibQuery2 do begin , то так и пиши Active:=true; ... ладно, ето ерунда ...
я не знаю что ты этим хотел написать, но все намного проще ...
Код: plaintext
1.
2.
3.
4.
ibQuery2.SQL.Clear;
ibQuery2.SQL.Add('DELETE FROM P_581578 WHERE KOD=:KOD');
ibQuery2.ParamByName('KOD').AsInteger:= 123456789 ;
ibQuery2.ExecSQL;

вот и все ... зачем так намучивать ???
Если не знаешь как писать, то спроси, лучше спроси, народ он ведь не зверь, не укусит, покажет, расскажет ... Не хочешь спрашивать, то купи книгу и почитай ...
удачи ... ;))
...
Рейтинг: 0 / 0
02.03.2003, 17:08
| Ответить | Цитировать | Написать  
Делфи+interbase
    #32113358
DAN1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DAN1
Участник
Спосибо за помощ двоишнику
Мне нужно при нажатии кнопку удалить чтобы она удаяла запись
...
Рейтинг: 0 / 0
03.03.2003, 07:05
| Ответить | Цитировать | Написать  
Делфи+interbase
    #32113472
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
Уточню, триггер с кнопкой связывать не надо... он вызывается автоматом при соответствующем воздействии на таблицу...
...
Рейтинг: 0 / 0
03.03.2003, 11:20
| Ответить | Цитировать | Написать  
Делфи+interbase
    #32113500
DAN1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DAN1
Участник
Ура большое спосибо за помощь двоишнику? стыдно мне
...
Рейтинг: 0 / 0
03.03.2003, 11:45
| Ответить | Цитировать | Написать  
Делфи+interbase
    #32113506
DAN1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DAN1
Участник
А вот еще вопрос
label1.Caption:= (' всего записей '+ inttostr(ibquery1.RecordCount));
он мне не полностью кол. записей дает
...
Рейтинг: 0 / 0
03.03.2003, 11:50
| Ответить | Цитировать | Написать  
Делфи+interbase
    #32113509
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
RecordCount показывает количество полученных (fetch) записей
...
Рейтинг: 0 / 0
03.03.2003, 11:56
| Ответить | Цитировать | Написать  
Делфи+interbase
    #32113526
DAN1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DAN1
Участник
а как мне получить кол. записей после удаления добавления
...
Рейтинг: 0 / 0
03.03.2003, 12:13
| Ответить | Цитировать | Написать  
Делфи+interbase
    #32113626
AndreyK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyK
Участник
IBQuery1.FetchAll;
...
Рейтинг: 0 / 0
03.03.2003, 13:50
| Ответить | Цитировать | Написать  
Делфи+interbase
    #32113744
alubetsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alubetsky
Участник
2 DAN1
Код: plaintext
1.
Мне нужно при нажатии кнопку удалить чтобы она удаяла запись

Блин, вот это супер , это сильно сказано
Это покруче http://maniacshop.nm.ru/image/putin/ будет
извини, не смог удержаться ...
...
Рейтинг: 0 / 0
03.03.2003, 15:55
| Ответить | Цитировать | Написать  
Делфи+interbase
    #32113988
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
AndreyK

Полностью профетчить (fetch) таблицу можно только небольшую.... в противном случае это будут большие потери во времяни и к тому же никому не нужные...
быстрее будет дать второй запрос и посчитать количество строк
...
Рейтинг: 0 / 0
04.03.2003, 03:56
| Ответить | Цитировать | Написать  
Делфи+interbase
    #32114080
AndreyK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyK
Участник
StarWind

Полностью с вами согласен. Но т.к. раньше обсуждался вариант с RecordCount я решил, что ответ должен быть именно по RecordCount.
А если у человека появится потом вопрос типа "А почему когда я делаю FetchAll для таблици в 200000 записей машина зависает на минуту" то он вполне может задать этот вопрос в этом же форуме. И получить квалифицированый ответ.

P.S. Наступив на грабли один раз умный человек второй раз их обойдет, а если человек дурак, то сколько не тыкай его мордой в эти грабли всеравно он будет по ним еще долго топтатся.
...
Рейтинг: 0 / 0
04.03.2003, 10:36
| Ответить | Цитировать | Написать  
Делфи+interbase
    #32114635
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
Просто у меня существует мнение что ответ должен быть максимально качественным (хотя бы по мнению автора ответа)
...
Рейтинг: 0 / 0
05.03.2003, 03:08
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Firebird, InterBase [игнор отключен] [закрыт для гостей] / Делфи+interbase
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=%D0%9F%D0%BE%D0%BB%D1%8C%D0%B7%D0%BE%D0%B2%D0%B0%D1%82%D0%B5%D0%BB%D1%8C+IBExpert&author_mode=last_topics&do_search=1]:
 0ms
get settings:
 9ms
get forum list:
 13ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 158ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 722ms
total:  986ms
созд. / загр.: 986ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]