04.12.2011, 14:42
|
Новичок
|
|
Регистрация: 07.10.2011
Сообщения: 66
Репутация: 10
|
|
sql-запрос коректировка
Здравствуйте, такое дело, написал следующий запрос:
Код:
if form2.Caption='1' then begin
with form1 do begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into sotrudniki (familia, ima, otchestvo, professia, data_prinatia, adres, data_rogdenia, tabel, primechanie)');
ADOQuery1.SQL.Add('values ("'+edit1.Text+'","'+edit2.Text+'","'+edit3.Text+'","'+edit4.Text+'","'+edit5.Text+'","'+edit6.Text+'","'+edit7.Text+'","'+edit8.Text+'","'+edit9.Text+'")');
ADOQuery1.ExecSQL;
end;
end
else
if form2.Caption='2' then begin
with form1.ADOQuery1 do begin
active:=false;
sql.Clear;
sql.Add('update sotrudniki');
sql.Add('set familia = "'+edit1.Text+'",ima = "'+edit2.Text+'",otchestvo = "'+edit3.Text+'",professia = "'+edit4.Text+'",data_prinatia = "'+edit5.Text+'",adres = "'+edit6.Text+'",data_rogdenia = "'+edit7.Text+'",tabel = "'+edit8.Text+'",primechanie = "'+edit9.Text+'"');
sql.Add('where nomer = '+inttostr(n)+'');
execSQL;
end;
end;
Админ: Пользуемся тегами для оформления кода!
тесть добавление новой записи либо изменение выделенной в зависимости от заголовка формы. что не так? изменение вообще не работает, добавление через раз
|