перекачать файл из формата Excel в базу данных

Рина · 29 май 2006, 13:02

помогите пожалуйста с задачей очень, очень надо

Программа должна перекачать выбранный файл из формата Excel в базу данных (желательно InterBase). Структура файла:
Код товара(10 символов), наименование (20 символов), Количество(numeric), Единица измерения (5 символов), Цена (numeric).

2 триггера +1 хранимая процедура (SQL)

vunder · 29 май 2006, 18:36

когда-то писал класс для работы с MsExcel. Могу поделиться. Стучи в ПМ или Аську

Рина · 29 май 2006, 18:45

vunder,
буду невероятно благодарна
только скажи номер аськи

vunder · 30 май 2006, 08:59

Вообще это есть в моем профиле, но 170728075

UUU · 31 май 2006, 10:58

Самый простой вариант - это делать сохранение из экселя в файл с разделителями табулации и качать оттуда.

vunder · 31 май 2006, 13:43

Самый простой вариант - это делать сохранение из экселя в файл с разделителями табулации и качать оттуда.

Не пойдет, т.к. условие задачи стоит так, что данные нужно читать их Excel

YurikGL · 31 май 2006, 20:32

Можно через OLE... можно через ADO...

vunder · 31 май 2006, 23:42

можно через ADO...

а по-подробнее

YurikGL · 01 июн 2006, 21:09

Что-то типа

//выставляем параметры подключения для xls-ки
ADOConnectionForExcel.ConnectionString:=
'Provider=MSDASQL.1; '+
'Persist Security Info=False; '+
'Data Source=Файлы Excel; '+
'Location='+'"'+GetCurrentDir+'\1.xls'+'";'+
'Mode=ReadWrite; '+
'Initial Catalog='+'"'+GetCurrentDir+'\"';
ADOConnectionForExcel.DefaultDatabase:=GetCurrentDir+'\1.xls';
ADOConnectionForExcel.Open;
//создаем книгу
ADOCommandForExcel.CommandText:='create table [Телефоны] '+
' ([Телефон] char (100), '+
' [Имя] char (100), '+
' [Улица] char (100), '+
' [Дом] char (100), '+
' [Корпус] char (100), '+
' [Квартира] char (100)) ';
ADOCommandForExcel.Execute;

Ну и select можно сделать... только тормозит очень сильно