Экспорт-импорт Excel <-> ADO + DBGrid <-> Access

[aL_foks]

Доброго времени суток уважаемые форумчане! Я неделю колдую над одним нюансом вставшим у меня на пути при написании проекта (проект честное слово пишу для себя).

Проект - система управления данными школьной библиотеки.

Суть вопроса такова. У меня есть Excel файл лежащий в папке export (Книга_суммарного_учета), и есть файл db1.mdb находящийся в папке с проектом. В самом проекте реализовано открытие, добавление, удаление записей по полям любых таблиц (ADO+SQL). В том числе реализовано сохранение данных при изменении записей в таблице БД. Плюс ко всему этому присутствует возможность импорта из xls файла во время работы приложения.

Проблема заключается в невозможности сохранения данных в таблицу Access при импорте данных из excel через DBGrid (+ADO), ну или я такой чайник... Прошу помощи в коде... Проект по ссылке.

Мыло

[aL_foks]

Господа! Обращаюсь к вам еще раз и привожу пример кода... Перепробовал все, но не получается сохранить данные импортированные из Excel в Access таблицу указанную в настройках компонентов ADO.

Привожу способы загрузки из Excel - файла в компонент DBGrid через ADO:

1 способ - В настройках Access выбрать:

Файл - Внешние данные - Связь с таблицами .... Импортировать из Excel

Для отображения в DBGrid сделал так;

form2.ADOQuery1.SQL.Clear;
form2.ADOTable1.TableName:='имя таблицы связанной с Excel';
form2.ADOQuery1.SQL.Add('select * from имя таблицы связанной с Excel');
form2.ADOQuery1.Active:=true;

отображается на УРА! НО! Для сохранения данных я пользую код;

try
adoquery1.Edit;
ADOQuery1.Active:=True;
ADOQuery1.Post;
except
on e:Exception do
end;

и ничего не происходит, если быть точнее не сохраняются изменения

2 способ - программная загрузка Excel файла в DBGrid

private
  procedure ConnectToExcel;
  procedure FetchData;
....

procedure TForm2.ConnectToExcel; 
var strConn: widestring;
begin
strConn:='Provider=Microsoft.Jet.OLEDB.4.0;' +  'Data Source=' + opendialog1.FileName + ';' + 'Extended Properties=Excel 8.0;';
AdoConnection1.Connected:=False;
AdoConnection1.ConnectionString:=strConn;
try
AdoConnection1.Open;
except
ShowMessage('Нет подключения к Excel книге'+opendialog1.FileName+' !');
raise;
end;
end;

procedure TForm2.FetchData;
begin
opendialog1.execute;
ConnectToExcel;
AdoQuery1.Close;
AdoQuery1.SQL.Text:='SELECT * FROM [Лист1$]';
try
AdoQuery1.Open;
except
ShowMessage( 'Не выполнен SQL запрос ' + opendialog1.FileName +'!');
raise;
end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
FetchData;
end;

И ОПЯТЬ ЖЕ отображается на УРА! НО!

try
adoquery1.Edit;
ADOQuery1.Active:=True;
ADOQuery1.Post;
except
on e:Exception do
end;

при использовании ничего не происходит, если быть точнее не сохраняются изменения в Access таблице.

без использования AdoQuery1.Edit программа выдает сообщение о том, что данные datasource не были изменены или данных вообще нет.

Помогите разобраться с сохранением....

[aL_foks]

Ну помогите кто нибудь! Что вам сложно чтоли? Или вы можете только постить и тролить к безобидным юзерам. Прошу помощи по импорту из ексель и сохранения после импорта в базу а вы обходите стороной даже не присмотревшись....

[aL_foks]

! ... Cпасибо. Разобрался самостоятельно.