[malxazibb]

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

Вопрос вот вчем: На форме лежат 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 не видна ни однои строки.

посдкажите пожалуста как ето исправит.

[Black Raider]

Вернуть ADOQuery1 Запрос SELECT*
FROM barnom
WHERE status='свободно'

[malxazibb]

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

[Black Raider]

Код:

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;

DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.SQL.Clear;
mon1:='SELECT * FROM barnom WHERE status='+#39+'свободно'+#39
DataModule2.ADOQuery1.SQL.Add(mon1) ;
DataModule2.ADOQuery1.Open;
end;
end;

[malxazibb]

спасибо за пример.
нету времени позже попробую и сообшу.

P.S. #39 что это такое.

[v1s2222]

Это знак ' вроде.

[Black Raider]

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

Это знак ' вроде.

Совершенно верно можно конечно за место #39 Ставить ''' но мне как то более по душе #39 не путаешься в апострофах.

[malxazibb]

спасибо попробую сообшу результат. !!!!!!!!!!!!!!!!!!

[malxazibb]

всё работает как часики.

спасибо!!!!!!!!!!!!!!!!!!!!!!!!