Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Firebird, InterBase [игнор отключен] [закрыт для гостей] / Делфи+interbase / 17 сообщений из 17, страница 1 из 1
28.02.2003, 09:12
    #32112481
DAN1
DAN1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Делфи+interbase
Извините за гл. вопрос
при первой нажатий удаляет запись а второй ра не удаляет

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, 10:10
    #32112522
mitritch
mitritch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Делфи+interbase
А че так наворочено? Создай триггер на удаление, если ты удаляеш из другой таблицы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2003, 11:25
    #32112584
DAN1
DAN1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Делфи+interbase
Как триггер создать не знаю, не подскажете, если можно с небольшим примерром.
за ранее блогадарен
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2003, 16:44
    #32112889
AndreyK
AndreyK
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Делфи+interbase
Кусок из 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
| Ответить | Цитировать | Написать  
01.03.2003, 09:38
    #32113097
DAN1
DAN1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Делфи+interbase
а как с баттоном связать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2003, 17:08
    #32113294
alubetsky
alubetsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Делфи+interbase
А это еще и работает ???
Извини, не могу удержаться от порыва эмоций, при виде этого ...
Ты что в доДелфевой эпохе родился ? Или тебя перфакарты испортили ??? кто так пишет ??? что это вообще такое ??? Родила царица в ночь, не то сына, не то дочь ...
Блин, человеки, хомосапиенсы, Вы же разумны !!!
Если ты пишешь: 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
| Ответить | Цитировать | Написать  
03.03.2003, 07:05
    #32113358
DAN1
DAN1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Делфи+interbase
Спосибо за помощ двоишнику
Мне нужно при нажатии кнопку удалить чтобы она удаяла запись
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2003, 11:20
    #32113472
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Делфи+interbase
Уточню, триггер с кнопкой связывать не надо... он вызывается автоматом при соответствующем воздействии на таблицу...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2003, 11:45
    #32113500
DAN1
DAN1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Делфи+interbase
Ура большое спосибо за помощь двоишнику? стыдно мне
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2003, 11:50
    #32113506
DAN1
DAN1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Делфи+interbase
А вот еще вопрос
label1.Caption:= (' всего записей '+ inttostr(ibquery1.RecordCount));
он мне не полностью кол. записей дает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2003, 11:56
    #32113509
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Делфи+interbase
RecordCount показывает количество полученных (fetch) записей
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2003, 12:13
    #32113526
DAN1
DAN1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Делфи+interbase
а как мне получить кол. записей после удаления добавления
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2003, 13:50
    #32113626
AndreyK
AndreyK
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Делфи+interbase
IBQuery1.FetchAll;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2003, 15:55
    #32113744
alubetsky
alubetsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Делфи+interbase
2 DAN1
Код: plaintext
1.
Мне нужно при нажатии кнопку удалить чтобы она удаяла запись

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

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

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

P.S. Наступив на грабли один раз умный человек второй раз их обойдет, а если человек дурак, то сколько не тыкай его мордой в эти грабли всеравно он будет по ним еще долго топтатся.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.03.2003, 03:08
    #32114635
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Делфи+interbase
Просто у меня существует мнение что ответ должен быть максимально качественным (хотя бы по мнению автора ответа)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Firebird, InterBase [игнор отключен] [закрыт для гостей] / Делфи+interbase / 17 сообщений из 17, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 167ms
Закрыть
start [/forum/topic.php?fid=40&mobile=1&tid=1580795]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 38ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 2ms
others: 16ms
total:  167ms
x
x
Закрыть


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