Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #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 не видна ни однои строки.

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


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 18:40.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025