Не отображаются записи при сохранении!!

[ЛисЁНЫШ]

Подскажите, пожалуйста!!сделала запрос на добавление данных, но когда нажимаю чтоб сохранить у меня в таблице все записи исчезают!!а так вроде все нормально работает сохраняет!!!подскажите что нужно сделать чтоб все записи отображались при сохранении????

DataModule2 .ADOQuery2.Active := False;
 DataModule2 .ADOQuery2.SQL.Clear;
 DataModule2 .ADOQuery2.SQL.Add( 'insert into pacient');
 DataModule2 .ADOQuery2.SQL.Add ('(POR_NOM_P,Name1,Name2,Name3,sex,BIRTH_DATE,OBLAST,RAION,NAS_P,STRT_NAME,HOUSE,ROOM,FAK_OBLAST,FAK_RAION,FAK_NAS_P,FSTRT_NAME,FHOUSE,FROOM,POLIS_SER,POLIS_NUM,SS,SERIYA_PAS,NOMER_PAS)');
 DataModule2 .ADOQuery2.SQL.Add ('Values ('+#39 + Edit2.Text + #39 + ' , '
                                 +#39 + Edit3.Text + #39 + ' , '
                                 +#39 + Edit4.Text + #39 + ' , '
                                 +#39 + Edit5.Text + #39 + ' , '
                                 +#39 + ComboBox1.Text + #39 + ' , '
                                 +#39 + Edit7.Text  + #39 + ' , '
                                 +#39 + DBLookupComboBox2.Text + #39 + ' , '
                                 +#39 + DBLookupComboBox3.Text + #39 + ' , '
                                 +#39 + DBLookupComboBox4.Text + #39 + ' , '
                                 +#39 + DBLookupComboBox5.Text + #39 + ' , '
                                 +#39 + Edit11.Text + #39 + ' , '
                                 +#39 + Edit12.Text + #39 + ' , '
                                 + #39 + DBLookupComboBox7.Text + #39 +' , '
                                 + #39 + DBLookupComboBox8.Text + #39 +' , '
                                 + #39 + DBLookupComboBox9.Text + #39 +' , '
                                 + #39 + DBLookupComboBox10.Text + #39 +' , '
                                 +#39 + Edit13.Text + #39 + ' , '
                                 +#39 + Edit14.Text + #39 + ' , '
                                 +#39 + Edit10.Text + #39 + ' , '
                                 +#39 + Edit15.Text + #39 + ' , '
                                 +#39 + MaskEdit1.Text + #39 + ' , '
                                 +#39 + Edit8.Text + #39 + ' , '
                                 + #39 + Edit9.Text  + #39 + ')');
 
 DataModule2.ADOQuery2.ExecSQL ;

[maLoy*508]

обновить таблицу...
установить свойство

Table1.Active := true;

или

table1.refresh;

[Stilet]

DataModule2.ADOQuery2.ExecSQL ;

Если табла подключена через этот компонент то после такого необходимо открыть ее заново.

[ЛисЁНЫШ]

сделала вот так

DataModule2.ADOQuery2.ExecSQL ;
DataModule2 .ADOQuery2.Active := true;

после добавления этих строк начало выдвать сообщение "Текущий проводник не поддерживает возврат нескольких наборов записей в результате одной операции"

[ЛисЁНЫШ]

все получилось!!))