редактирование запи

[Яяя1]

var s: string;
begin
DataModule4.ADOQuery2.Active:= false;
DataModule4.ADOQuery2.SQL.Clear;
s:='Update Regist set parol '+QuotedStr(Edit2.Text);
DataModule4.ADOQuery2.SQL.Add(s);
DataModule4.ADOQuery2.Active:= true;
end;

Ошибка в синтаксисе Update
как правильно будет?

[Toxa]

 parol ='+QuotedStr(Edit2.Text);

и условие бы добавить в запрос, а то он проапдейтит все записи

where id = 11

[evg_m]

DataModule4.ADOQuery2.SQL.Text:='Update Regist set parol =:p';
DataModule4.ADOQuery2.Params.ParamByname('p').value:=Edit2.Text;

и условие бы добавить в запрос, а то он проапдейтит все записи

...Text:='update ... where id=:n';
...ParambyName('n').value:=11;

[Яяя1]

var s: string;
begin
DataModule4.ADOQuery2.Active:= false;
DataModule4.ADOQuery2.SQL.Clear;
s:='SELECT * FROM Regist WHERE login ='+ QuotedStr(Edit1.text)+' and parol ='+ QuotedStr(Edit2.text);
DataModule4.ADOQuery2.SQL.Add(s);
DataModule4.ADOQuery2.Active:= true;
if not DataModule4.ADOQuery2.IsEmpty then
begin
form1.Hide;
Form2.Show;
end
else
begin
MessageDlg('Логин и пароль не верны',mtError,[mbOK],0);
end;

ЭТОТ код использовала при входе. Правильно?
я впервые работаю с базой Аксес и поэтому мне трудно.
Попробуйте объяснить если сможете:
DataModule4.ADOQuery2.SQL.Text:='Up date Regist set parol = :р ';
DataModule4.ADOQuery2.Parameters.Pa ramByName('p').Value:=Edit2.Text;
здесь ":р" и "р" что означает?

[evg_m]

Попробуйте объяснить если сможете:
DataModule4.ADOQuery2.SQL.Text:='Up date Regist set parol = :р ';
DataModule4.ADOQuery2.Parameters.Pa ramByName('p').Value:=Edit2.Text;
здесь ":р" и "р" что означает?

Это использование запросов с параметрами.
":" указание что идентификатор(имя) следующее непосредственно за этим знаком (без пробела!) есть имя параметра.
":р" -указание что при выполнении надо использовать параметр с именем p (подставить его значение).
"p" -задать значение параметра с именем p.

Теперь
1. можно с помощью одного и того же запроса написанного где-то заранее и один раз изменять разные записи.
2. повышается читаемость кода. Запрос можно бегло просмотреть за один раз без мысленного "вычеркивания" +QuotedStr(Edit1.Text) +
3.Можно использовать числа и др.типы данных без приведения к строке.

sql.text:='update t set v='+quotedStr('1') +where id=' +'1'; 
Active:=true;

sql.text:='update t set v='+'3 ' +'where id='+ '5';
Active:=true;

против

sql.text:='update t set v=:p where id=:n'; //написан один раз

ParamByname('p').value:=1;
ParamByname('n').value:=1;
Active:=true;// использован раз

ParamByname('p').value:=3;
ParamByname('n').value:=5;
Active:=true;// использован другой раз

[Яяя1]

Спасибо
Теперь я сделала отчет (экзель).
но мне нужно поставить условие касающейся последнего столбика, столбец называется ВИД РАБОТЫ (Сварочно-монтажная есть и наладка)
отчет отдельно по Сварочно-монтажной и отдельно Наладка должна выйти
ПОМОГИТЕ. Вот код

[Яяя1]

var XL: Variant;
i,j,n:integer;
begin
If Form3.DBGrid1.Columns.Items[12].Field.Text='Íàëàäêà' then begin
ShowMessage('Íåîáõîäèìà õîòÿáû îäíà çàïèñü');
end
else
begin
try
XL:=CreateOleObject('Excel.Applicat ion');
XL.Visible:=true;
except
Exception.Create('Error');
end;
XL.WorkBooks.Add;
XL.WorkBooks[1].WorkSheets[1].Name :='Отчет';
XL.WorkBooks[1].WorkSheets[1].Cells[3,1]:=DBGrid1.Columns.Items[0].Title.Caption;
XL.WorkBooks[1].WorkSheets[1].Cells[3,2]:=DBGrid1.Columns.Items[1].Title.Caption;
XL.WorkBooks[1].WorkSheets[1].Cells[3,3]:=DBGrid1.Columns.Items[2].Title.Caption;
XL.WorkBooks[1].WorkSheets[1].Cells[3,4]:=DBGrid1.Columns.Items[3].Title.Caption;
XL.WorkBooks[1].WorkSheets[1].Cells[3,5]:=DBGrid1.Columns.Items[4].Title.Caption;
XL.WorkBooks[1].WorkSheets[1].Cells[3,6]:=DBGrid1.Columns.Items[5].Title.Caption;
XL.WorkBooks[1].WorkSheets[1].Cells[3,7]:=DBGrid1.Columns.Items[6].Title.Caption;
XL.WorkBooks[1].WorkSheets[1].Cells[3,8]:=DBGrid1.Columns.Items[7].Title.Caption;
XL.WorkBooks[1].WorkSheets[1].Cells[3,9]:=DBGrid1.Columns.Items[8].Title.Caption;
XL.WorkBooks[1].WorkSheets[1].Cells[3,10]:=DBGrid1.Columns.Items[9].Title.Caption;
XL.WorkBooks[1].WorkSheets[1].Cells[3,11]:=DBGrid1.Columns.Items[10].Title.Caption;
XL.WorkBooks[1].WorkSheets[1].Cells[3,12]:=DBGrid1.Columns.Items[11].Title.Caption;
XL.WorkBooks[1].WorkSheets[1].Cells[3,13]:=DBGrid1.Columns.Items[12].Title.Caption;
XL.WorkBooks[1].WorkSheets[1].Cells[3,14]:=DBGrid1.Columns.Items[13].Title.Caption;
Inc(i);
DataModule4.ADOTable1.Open;
DataModule4.ADOTable1.First;
while not DataModule4.ADOTable1.Eof do
Begin
XL.WorkBooks[1].WorkSheets[1].Cells[i+3,1]:=DBGrid1.Columns.Items[0].Field.Text;
XL.WorkBooks[1].WorkSheets[1].Cells[i+3,2]:=DBGrid1.Columns.Items[1].Field.Text;
XL.WorkBooks[1].WorkSheets[1].Cells[i+3,3]:=DBGrid1.Columns.Items[2].Field.Text;
XL.WorkBooks[1].WorkSheets[1].Cells[i+3,4]:=DBGrid1.Columns.Items[3].Field.Text;
XL.WorkBooks[1].WorkSheets[1].Cells[i+3,5]:=DBGrid1.Columns.Items[4].Field.Text;
XL.WorkBooks[1].WorkSheets[1].Cells[i+3,6]:=DBGrid1.Columns.Items[5].Field.Text;
XL.WorkBooks[1].WorkSheets[1].Cells[i+3,7]:=DBGrid1.Columns.Items[6].Field.Text;
XL.WorkBooks[1].WorkSheets[1].Cells[i+3,8]:=DBGrid1.Columns.Items[7].Field.Text;
XL.WorkBooks[1].WorkSheets[1].Cells[i+3,9]:=DBGrid1.Columns.Items[8].Field.Text;
XL.WorkBooks[1].WorkSheets[1].Cells[i+3,10]:=DBGrid1.Columns.Items[9].Field.Text;
XL.WorkBooks[1].WorkSheets[1].Cells[i+3,11]:=DBGrid1.Columns.Items[10].Field.Text;
XL.WorkBooks[1].WorkSheets[1].Cells[i+3,12]:=DBGrid1.Columns.Items[11].Field.Text;
XL.WorkBooks[1].WorkSheets[1].Cells[i+3,13]:=DBGrid1.Columns.Items[12].Field.Text;
XL.WorkBooks[1].WorkSheets[1].Cells[i+3,14]:=DBGrid1.Columns.Items[13].Field.Text;
Inc(i);
DataModule4.ADOTable1.Next;
End;
DataModule4.ADOTable1.close;

XL.WorkBooks[1].WorkSheets[1].Columns[1].ColumnWidth:=DBGrid1.Columns.Items[0].Width/7.5;
XL.WorkBooks[1].WorkSheets[1].Columns[2].ColumnWidth:=DBGrid1.Columns.Items[1].Width/3.5;
XL.WorkBooks[1].WorkSheets[1].Columns[3].ColumnWidth:=DBGrid1.Columns.Items[2].Width/3.5;
XL.WorkBooks[1].WorkSheets[1].Columns[4].ColumnWidth:=DBGrid1.Columns.Items[3].Width/2.0;
XL.WorkBooks[1].WorkSheets[1].Columns[5].ColumnWidth:=DBGrid1.Columns.Items[4].Width/1.7;
XL.WorkBooks[1].WorkSheets[1].Columns[6].ColumnWidth:=DBGrid1.Columns.Items[5].Width/1.5;
XL.WorkBooks[1].WorkSheets[1].Columns[7].ColumnWidth:=DBGrid1.Columns.Items[6].Width/2.0;
XL.WorkBooks[1].WorkSheets[1].Columns[8].ColumnWidth:=DBGrid1.Columns.Items[7].Width/2.0;
XL.WorkBooks[1].WorkSheets[1].Columns[9].ColumnWidth:=DBGrid1.Columns.Items[8].Width/1.5;
XL.WorkBooks[1].WorkSheets[1].Columns[10].ColumnWidth:=DBGrid1.Columns.Items[9].Width/1.0;
XL.WorkBooks[1].WorkSheets[1].Columns[11].ColumnWidth:=DBGrid1.Columns.Items[10].Width/1.5;
XL.WorkBooks[1].WorkSheets[1].Columns[12].ColumnWidth:=DBGrid1.Columns.Items[11].Width/1.5;
XL.WorkBooks[1].WorkSheets[1].Columns[13].ColumnWidth:=DBGrid1.Columns.Items[12].Width/2.5;
XL.WorkBooks[1].WorkSheets[1].Columns[14].ColumnWidth:=DBGrid1.Columns.Items[13].Width/2.5;
XL.WorkBooks[1].WorkSheets[1].PageSetup.LeftMargin:=1;
XL.WorkBooks[1].WorkSheets[1].PageSetup.RightMargin:=1;
XL.WorkBooks[1].WorkSheets[1].Range['A2:O2'].Merge;
XL.WorkBooks[1].WorkSheets[1].Cells[2,1]:='Таблица отчета';
j:=13+DBGrid1.FieldCount;
n:=1;
XL.WorkBooks[1].WorkSheets[1].Rows[2].HorizontalAlignment:=3;
XL.WorkBooks[1].WorkSheets[1].Rows[2].Font.Bold := True;
XL.WorkBooks[1].WorkSheets[1].Rows[2].Font.Color := clBlack;
XL.WorkBooks[1].WorkSheets[1].Rows[2].Font.Size := 16;
XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Bold := True;
DataModule4.ADOTable1.Active:=true;
end;

[Яяя1]

а все сделала всем спасибо