|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.05.2009, 20:01 | #51 |
Участник клуба
Регистрация: 15.05.2009
Сообщений: 1,222
|
тогда пофиг, оставь как есть просто в селекте напиши еще и айдишник
Единственное, что ограничивает полет мысли программиста-компилятор
|
18.05.2009, 20:04 | #52 |
Форумчанин
Регистрация: 26.04.2008
Сообщений: 121
|
procedure TCoolHint2KForm11.CoolHint2KButton1 Click(Sender: TObject);
begin // OraQuery1.SQL.Text := 'Insert into system.KURS_KADR2(FIO,TABEL,CEH,DOL J) VALUES(:fio,:tabel,:ceh,olj)'; OraQuery2.SQL.Text := 'update kurs_kadr2 set FIO =:fio,TABEL=:tabel,CEH=:ceh,DOLJ= olj where FIO=' + Quotedstr(Form7.CRDBGrid1.SelectedF ield.Text); OraQuery2.ParamByName('fio').AsStri ng:= Edit1.Text; OraQuery2.ParamByName('tabel').AsSt ring:= Edit2.Text; OraQuery2.ParamByName('ceh').AsStri ng:= Edit3.Text; OraQuery2.ParamByName('dolj').AsStr ing:= Edit4.Text; OraQuery2.ExecSQL; OraQuery1.close; OraQuery1.open; end; procedure TCoolHint2KForm11.CoolHint2KFormAct ivate(Sender: TObject); begin OraQuery1.SQL.Text := 'SELECT FIO,CEH,DOLJ,tabel,ID FROM KURS_KADR2 where id =' + OraQuery1.FieldByName('id').value; OraQuery1.Open; WHILE(OraQuery1.Eof<>true) do begin Edit1.Text := OraQuery1.FieldByName('FIO').AsStri ng; Edit2.Text := OraQuery1.FieldByName('tabel').AsSt ring; Edit3.Text := OraQuery1.FieldByName('ceh').AsStri ng; Edit4.Text := OraQuery1.FieldByName('dolj').AsStr ing; OraQuery1.Next; вот так? |
18.05.2009, 20:05 | #53 |
Участник клуба
Регистрация: 15.05.2009
Сообщений: 1,222
|
procedure TCoolHint2KForm11.CoolHint2KFormAct ivate(Sender: TObject);
begin OraQuery1.SQL.Text := 'SELECT id, FIO,CEH,DOLJ,tabel FROM KURS_KADR2 where FIO=' + Quotedstr(Form7.CRDBGrid1.SelectedF ield.Text); OraQuery1.Open; WHILE(OraQuery1.Eof<>true) do begin Edit1.Text := OraQuery1.FieldByName('FIO').AsStri ng; Edit2.Text := OraQuery1.FieldByName('tabel').AsSt ring; Edit3.Text := OraQuery1.FieldByName('ceh').AsStri ng; Edit4.Text := OraQuery1.FieldByName('dolj').AsStr ing; OraQuery1.Next; end; тоесть там уже я могу редактировать и нажимаю на кнопку Сохранить OraQuery2.SQL.Text := 'update kurs_kadr2 set FIO =:fio,TABEL=:tabel,CEH=:ceh,DOLJ=ol j where id=' + OraQuery1.FieldByName('id').value; OraQuery1.ParamByName('fio').AsStri ng:= Edit1.Text; OraQuery1.ParamByName('tabel').AsSt ring:= Edit2.Text; OraQuery1.ParamByName('ceh').AsStri ng:= Edit3.Text; OraQuery1.ParamByName('dolj').AsStr ing:= Edit4.Text; OraQuery2.ExecSQL; OraQuery1.close; OraQuery1.open;
Единственное, что ограничивает полет мысли программиста-компилятор
|
18.05.2009, 20:07 | #54 |
Участник клуба
Регистрация: 15.05.2009
Сообщений: 1,222
|
id точно есть в самой таблице и так называется?
Единственное, что ограничивает полет мысли программиста-компилятор
|
18.05.2009, 20:11 | #55 |
Форумчанин
Регистрация: 26.04.2008
Сообщений: 121
|
есть.. тока когда щелкаю на сохранить вылазит ошибка Could not convert variant of type (NULL) into type (string)
|
18.05.2009, 20:12 | #56 |
Форумчанин
Регистрация: 26.04.2008
Сообщений: 121
|
OraQuery2.SQL.Text := 'update kurs_kadr2 set FIO =:fio,TABEL=:tabel,CEH=:ceh,DOLJ=ol j where id=' + OraQuery1.FieldByName('id').value;
ошибка указывает сюда |
18.05.2009, 20:29 | #57 |
Участник клуба
Регистрация: 15.05.2009
Сообщений: 1,222
|
сушай лучше пришли мне все это на почту
Единственное, что ограничивает полет мысли программиста-компилятор
|
18.05.2009, 20:39 | #58 |
Форумчанин
Регистрация: 26.04.2008
Сообщений: 121
|
ок,ща пришлю!
|
18.05.2009, 20:49 | #59 |
Форумчанин
Регистрация: 26.04.2008
Сообщений: 121
|
так а почта какая??
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |