Привет всем.
Во первих извиняюс, может аналогичная тема лежит на форуме, но конкретизации на тему ни где не нашел.
Вопрос вот вчем: На форме лежат 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 не видна ни однои строки.
посдкажите пожалуста как ето исправит.