Обновление данных DBGrid

[Evgeniy26]

ADOTabel.Close;
ADOTable.Open;

[DS75]

Спасибо большое soleil@mmc и Evgeniy26 !
Помогло следующее во второй форме

 Form1.ADOTable1.Close;
 Form1.ADOTable1.Open;

Ранее не помогало потому что сам "тупил" не в ту форму эти строки ставил.

[echelone]

а какой программный код можно написать для кнопки что бы он обновлял Grid?

[Lesha]

uses DB;

<..>

procedure DSMoveTo(ds: TDataSet; index: integer);
begin
  ds.MoveBy(index-ds.RecNo);
end;

// обновление данных в Объекте данных
procedure DSReopen(ds: TDataSet; refresh:boolean = true);
var p: integer;
begin
  if not ds.Active then ds.Active:=true;
  if refresh then begin // обновление
    p:=ds.RecNo; ds.Close; ds.Open; DSMoveTo(ds,p);
  end;
end;

<..>

// обновить данные в Гриде
DSReopen(DbGrid1.DataSource.DataSet);

[echelone]

21:40
ругается на DSReapen
Может я что-то не то делаю?
procedure TForm1.Button3Click(Sender: TObject);
begin
DSReopen(DbGrid1.DataSource.DataSet );
end;

Читаем правила раздела.
Там подробно написано, как следует оформлять код и что получается, если этого не делать.

22:34

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

uses DB;
<..>
procedure DSMoveTo(ds: TDataSet; index: integer);
begin
  ds.MoveBy(index-ds.RecNo);
end;

// обновление данных в Объекте данных
procedure DSReopen(ds: TDataSet; refresh:boolean = true);
var p: integer;
begin
  if not ds.Active then ds.Active:=true;
  if refresh then begin // обновление
    p:=ds.RecNo; ds.Close; ds.Open; DSMoveTo(ds,p);
  end;
end;

<..>

// обновить данные в Гриде
DSReopen(DbGrid1.DataSource.DataSet);

ругается на DSReapen
Может я что-то не то делаю?

procedure TForm1.Button3Click(Sender: TObject);
 begin
 DSReopen(DbGrid1.DataSource.DataSet );
 end;

[Lesha]

ругается на DSReapen

ну вы напишите как он ругается

[echelone]

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

ну вы напишите как он ругается

[Error] Unit1.pass(59): Undeclared identifier: 'DSReopen'
[Fatal Error] Project1.dpr(6): Could not compile used 'Unit1.pas'

Еще 2 замечания :
1. Зачем вы отвечаете с цитированием всего предыдущего поста ? Вы не видите кнопку справа от кнопки "Цитата" ?
Или вам почему-то не видно пустое окно редактора под последним сообщением ?
За оверквотинг у нас штрафуют, имейте это ввиду.
2. Посмотрите выше, на ваш пост.
Красные жирные циферки видны ?
Это время, когда вы отправляли свои сообщения друг за другом, подряд.
По правилам это приравнивается к флуду.
В правилах же написано, как этого не допускать.

[Lesha]

ыы вы хоть процедуры эти в модуль скопируйте

[echelone]

00:17
Извиняюсь но я Вас не понял

08:21
Спасибо всем огромное все заработало

10 сообщений набралось - самая пора начать получать штрафы (по-хорошему вы, видимо, не понимаете... А жаль...
Пора бы уже и прочесть правила раздела...
А пока - штраф за флуд, за нежелание эти правила соблюдать.
Штраф за флуд вроде бы невелик, но за 5 раз вполне набирается на бан...
Причем автоматически...

[echelone]

Пишу код к кнопки удаление всех записей в DBgrid, не удаляет. В чем проблема?

DBGrid1.SelectedRows.Delete();

Делаю кнопку для сортировки по убыванию в гриде,ошибку не выдает но не сортируют,у кого есть какие идеи помогите пожалуйста))

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
datamodule2.ADOQuery2.SQL.Clear;
datamodule2.ADOQuery2.SQL.Add('select * from new_table3 order by id DESC');
datamodule2.ADOQuery2.ExecSQL;
datamodule2.ADOQuery1.Active:=true;
datamodule2.ADOQuery1.Active:=false;
end;