| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Excel в Access [D7, XP]

b@v ©   (2009-02-18 12:48:00) 

Подскажите как мне данные из файла екселя добавить в существующую базу данных, в нужную табличку в акцесс

---

sniknik   (2009-02-18 14:59:00) [1]

> Вообщем делаю что то вроде вот так :
а можно типа так
AdoCommand.CommandText:= 'INSERT INTO SELECT FROM';
AdoCommand.Execute;
поищи в справке аксесса раздел "Предложение IN". или вообще про ISAM-ы.

---

Dennis I. Komarov   (2009-02-18 14:02:00) [2]

xls2dbf

---

Anatoly Podgoretsky   (2009-02-18 13:18:00) [3]

> b@v  (18.02.2009 12:48:00)  [0]

Ни Эксель, ни Акцесс к данной конференции не имеют отношения, ну а Акцесс хорошо интегрируется с другими продуктами Микрософт.

---

Сергей М.   (2009-02-18 13:07:00) [4]

> мол Tel1 не найдено


Ну раз не найдено, почему бы и не поверить ?
Каков текст запроса, использованного тобою для открытия НД под управлением ADODataSet1 ?

---

b@v   (2009-02-18 13:03:00) [5]

> Какой ответ, Вы предполагаете, Вас устроит?
>


Вообщем делаю что то вроде вот так :


procedure TForm2.ImportExcel;
var
XLS, Sheet: variant;
begin
XLS := CreateOleObject('Excel.Application');
XLS.WorkBooks.Open[OpenDialog1.FileName];
Sheet := XLS.Workbooks[1].WorkSheets['Ëèñò1'];

ADODataSet1.Insert;
ADODataSet1['Firma'] := Sheet.Cells[2,1].Value;
ADODataSet1['Tel1'] := Sheet.Cells[2,2].Value;
ADODataSet1['Tel2'] := Sheet.Cells[2,3].Value;
ADODataSet1['Fax'] := Sheet.Cells[2,4].Value;
ADODataSet1['Adress'] := Sheet.Cells[2,5].Value;
ADODataSet1['Opisanie'] := Sheet.Cells[2,6].Value;
ADODataSet1['Kategor'] := Sheet.Cells[2,7].Value;
ADODataSet1['Razdel'] := Sheet.Cells[2,8].Value;
ADODataSet1['Podrazd'] := Sheet.Cells[2,9].Value;
ADODataSet1['Klass'] := Sheet.Cells[2,10].Value;
ADODataSet1['Zena'] := Sheet.Cells[2,11].Value;
ADODataSet1['Srok'] := Sheet.Cells[2,12].Value;
ADODataSet1['Prim'] := Sheet.Cells[2,13].Value;
ADODataSet1.Post;

XLS.ActiveWorkbook.Close;
XLS.Application.Quit;
end;


Добавляет тока первую запись, т.е  
ADODataSet1['Firma'] := Sheet.Cells[2,1].Value;

а на втором поле уже ругается, что мол Tel1 не найдено !!!
Где я что делаю не так ?

---

Johnmen   (2009-02-18 12:57:00) [6]

Какой ответ, Вы предполагаете, Вас устроит?

---

Наверх