|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.05.2009, 00:02 | #1 |
Форумчанин
Регистрация: 26.04.2008
Сообщений: 121
|
Delete и Update
почему не хочет удалять поле в DBGrid
procedure TForm7.N3Click(Sender: TObject); begin OraQuery1.SQL.Text := 'delete from KURS_KADR2 where FIO=' + CRDBGrid1.SelectedField.Value; // OraQuery1.Params.ParamByName('fio') .Value = ; OraQuery1.ExecSQL; end; и редактирует не правильно( OraQuery1.SQL.Text := 'update kurs_kadr2 set FIO =:fio,TABEL=:tabel,CEH=:ceh,DOLJ= olj';// where FIO=' + Quotedstr(Form7.CRDBGrid1.SelectedF ield.Text); OraQuery1.ParamByName('fio').AsStri ng:= Edit1.Text; OraQuery1.ParamByName('tabel').AsSt ring:= Edit1.Text; OraQuery1.ParamByName('ceh').AsStri ng:= Edit1.Text; OraQuery1.ParamByName('dolj').AsStr ing:= Edit1.Text; OraQuery1.ExecSQL; |
18.05.2009, 00:05 | #2 |
Форумчанин
Регистрация: 26.04.2008
Сообщений: 121
|
редактирование происходит так: щелкается мышью в меню выьирается редактировать,появляется окошко с редактированием ФИО табеля должности цеха. тоесть вот так:
Код:
|
18.05.2009, 17:07 | #3 |
Форумчанин
Регистрация: 26.04.2008
Сообщений: 121
|
кто-нибудь хелп ми!
|
18.05.2009, 17:27 | #4 |
Участник клуба
Регистрация: 15.05.2009
Сообщений: 1,222
|
Попробуй OraQuery1.close; OraQuery1.open
Единственное, что ограничивает полет мысли программиста-компилятор
|
18.05.2009, 17:39 | #5 |
Форумчанин
Регистрация: 26.04.2008
Сообщений: 121
|
OraQuery1.SQL.Text := 'delete from KURS_KADR2 where FIO=' + Quotedstr(CRDBGrid1.SelectedField.T ext);
OraQuery1.ExecSQL; вот так удаляет все записи,а надо чтобы которую выделил... |
18.05.2009, 17:47 | #6 |
Участник клуба
Регистрация: 15.05.2009
Сообщений: 1,222
|
да только потом тоже нужно будет close, open
Единственное, что ограничивает полет мысли программиста-компилятор
|
18.05.2009, 18:09 | #7 |
Форумчанин
Регистрация: 26.04.2008
Сообщений: 121
|
OraQuery1.SQL.Text := 'delete from KURS_KADR2 where FIO=' + Quotedstr(CRDBGrid1.SelectedField.T ext);
OraQuery1.open; OraQuery1.ExecSQL; OraQuery1.Close; вот так?? |
18.05.2009, 18:17 | #8 |
Участник клуба
Регистрация: 15.05.2009
Сообщений: 1,222
|
OraQuery1.open; в конце. А что что-то смущает?
Единственное, что ограничивает полет мысли программиста-компилятор
|
18.05.2009, 18:19 | #9 |
Форумчанин
Регистрация: 26.04.2008
Сообщений: 121
|
OraQuery1.SQL.Text := 'delete from KURS_KADR2 where FIO=' + Quotedstr(CRDBGrid1.SelectedField.T ext);
OraQuery1.ExecSQL; OraQuery1.Close; OraQuery1.Open; ошибка вылетает |
18.05.2009, 18:25 | #10 |
Участник клуба
Регистрация: 15.05.2009
Сообщений: 1,222
|
а что за ошибка? а insert, update он съел нормально?
Единственное, что ограничивает полет мысли программиста-компилятор
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
insert и update | Tanusha | SQL, базы данных | 4 | 13.03.2009 14:47 |
Update данных | KiSH333 | БД в Delphi | 2 | 01.12.2008 13:28 |
Перегрузка операций new, new[], delete, delete[] | IgorKr | Общие вопросы C/C++ | 1 | 22.10.2008 12:14 |
c# and Access - update | MAcK | Общие вопросы .NET | 3 | 20.10.2008 12:58 |
UPDATE и DELETE | Дамир | БД в Delphi | 3 | 13.03.2007 01:44 |