Редактирование записей в базе "*.mdb"

[Dark_Wolf]

Зрравствуйте, я создал процэдуру для изменения записей в базе, но почему то она не работает. что в ней не так?

procedure TpagesDlg.Edit_BD;
var Kli,Den,Num:integer;
    Den_st,Kliyent_st,Number_st,St1,St2,St3:string[100];
Begin
Num:=CB_NA.ItemIndex+1;
Kli:=combobox1.ItemIndex+1;
Den:=combobox3.ItemIndex+1;
Den_st:=stringgrid1.Cells[den,0];
Kliyent_st:=inf[7,Kli]+' '+inf[1,Kli]+' '+inf[2,Kli]+' '+inf[3,Kli];
Number_st:=M_NA[1,num];
{*****************************************}
   while not DBGrid1.DataSource.dataset.eof do
begin
st1:=DBgrid1.DataSource.DataSet.FieldByName('Kliyent').AsString;
st2:=DBgrid1.DataSource.DataSet.FieldByName('Number').AsString;
st2:=DBgrid1.DataSource.DataSet.FieldByName('Data').AsString;
if (st1=KLIYENT_ST)and(st2=NUMBER_ST)and(st3=DEN_ST) then
begin
DBGrid1.DataSource.DataSet.Edit;
dbgrid1.DataSource.DataSet.FieldByName('Cina').AsFloat:=
strtofloatDEF(stringgrid1.Cells[Den,1],0);
dbgrid1.DataSource.DataSet.FieldByName('CinaK').AsFloat:=
strtofloatDEF(stringgrid1.Cells[Den,2],0);
dbgrid1.DataSource.DataSet.FieldByName('Litru').AsInteger:=
strtointDEF(stringgrid1.Cells[Den,3],0);
dbgrid1.DataSource.DataSet.FieldByName('Suma').AsFloat:=
strtofloatDEF(stringgrid1.Cells[Den,4],0);
dbgrid1.DataSource.DataSet.FieldByName('Vodiy').AsString:=M_NA[2,num];
DBGrid1.DataSource.DataSet.Post;
DBGrid1.DataSource.DataSet.Refresh;
end;
DBGrid1.DataSource.dataset.next;
end;
DBGrid1.DataSource.dataset.First;
{*****************************************}
End;

[SERG1980]

НАмного удобнее и проще (и наверно правильнее) использовать SQL запрос для изменения записей

[mihali4]

Как минимум, строку

DBGrid1.DataSource.dataset.First;

надо добавить перед

while not DBGrid1.DataSource.dataset.eof do

З.Ы. И убрать строку

DBGrid1.DataSource.DataSet.Refresh;

[Dark_Wolf]

К сожалению это не помогло( я слишал, чтоби эта процедура работала, нужно ставить сетфокус в пля редактирования, но как - я не знаю.

[SERG1980]

Сообщение от Dark_Wolf

К сожалению это не помогло( я слишал, чтоби эта процедура работала, нужно ставить сетфокус в пля редактирования, но как - я не знаю.

Раз не хотите цивилизованному делать (через SQL) тогда сделайте пошаговую отладку, посмотрите выполняется ли у вас это условие

if (st1=KLIYENT_ST)and(st2=NUMBER_ST)and(st3=DEN_ST)

А зачем вы через dbgrid к датасету добираетесь может проще через Table или у вас датасет постоянно меняется?