D
Dixich
{Мне очень понравился способ для юзания Экселя, есть ли такой же способ для Аксеса? Использовать лицензионный офис на работе не проблема, версия 2007. Вот пример как я работал с экселем и как бы хотел чтобы выглядел в аксесе:}
E:=CreateOleObject('Excel.Application');
if not OpenDialog1.Execute then exit;
E.WorkBooks.Open(OpenDialog1.FileName);
Sheets:=Form1.E.ActiveWorkBook.Sheets;
sheet:=sheets.item[1].Activate;
//Теперь для считывания нужной ячейки или записи в нее мона использовать:
b:=E.ActiveWorkBook.ActiveSheet.Cells[1,1].Text;
E.ActiveWorkBook.ActiveSheet.Cells[2,2]:=b;
//Так вот я хочу узнать функции для считывания полей в БД, БД состоит из нескольких табличек, пока что наваял такое:
Access:=CreateOleObject('Access.Application');
if not OpenDialog1.Execute then exit;
Access.OpenCurrentDatabase(OpenDialog1.FileName,True);
Access.Visible:=true;
Access.DoCmd.OpenTable('Таблица 1');
//Что позволяет открыть нужный файл и нужную табличку... Единственное что мне нужно считать инфу со всех табличек в какой нить массив, все.
E:=CreateOleObject('Excel.Application');
if not OpenDialog1.Execute then exit;
E.WorkBooks.Open(OpenDialog1.FileName);
Sheets:=Form1.E.ActiveWorkBook.Sheets;
sheet:=sheets.item[1].Activate;
//Теперь для считывания нужной ячейки или записи в нее мона использовать:
b:=E.ActiveWorkBook.ActiveSheet.Cells[1,1].Text;
E.ActiveWorkBook.ActiveSheet.Cells[2,2]:=b;
//Так вот я хочу узнать функции для считывания полей в БД, БД состоит из нескольких табличек, пока что наваял такое:
Access:=CreateOleObject('Access.Application');
if not OpenDialog1.Execute then exit;
Access.OpenCurrentDatabase(OpenDialog1.FileName,True);
Access.Visible:=true;
Access.DoCmd.OpenTable('Таблица 1');
//Что позволяет открыть нужный файл и нужную табличку... Единственное что мне нужно считать инфу со всех табличек в какой нить массив, все.