Показать сообщение отдельно
  #1  
Старый 29.11.2010, 16:45
malxazibb malxazibb вне форума
Прохожий
 
Регистрация: 29.04.2009
Сообщения: 7
Репутация: 10
По умолчанию Обновление в DBGrid

Привет всем.
Во первих извиняюс, может аналогичная тема лежит на форуме, но конкретизации на тему ни где не нашел.

Вопрос вот вчем: На форме лежат Edit1, Label1, BitBtn1, DBGrid1.
DBGrid1 подключен к БД Access с помошю ADOConnection1, ADOQuery1, DataSource1.
SQL запрос для ADOQuery1:
SELECT*
FROM barnom
WHERE status='свободно'

код
Цитата:
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
if DataModule2.ADOQuery1.RecordCount>0 then
begin
Form1.Edit1.Text:=DataModule2.ADOQu ery1.FieldValues['bar'];
Form1.Label1.Caption:=DataModule2.A DOQuery1.FieldValues['ID'];
end;
end;

Цитата:
procedure TForm1.BitBtn7Click(Sender: TObject);
var
mon1: string;
begin
if not(Form1.Edit1.Text='') then
begin
DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.SQL.Clear;
mon1:='UPDATE таблица2 SET bar='+''''+Edit1.Text+''''+'';
mon1:=mon1+'WHERE ID='+label32.Caption;
DataModule2.ADOQuery1.SQL.Add(mon1) ;
DataModule2.ADOQuery1.ExecSQL;
end;

после нажатия кнопки БД Access обновляется а в DBGrid1 не видна ни однои строки.

посдкажите пожалуста как ето исправит.
Ответить с цитированием