Текущий архив: 2009.04.05;
Скачать: CL | DM;
Вниз
Excel в Access Найти похожие ветки
← →
b@v © (2009-02-18 12:48) [0]Подскажите как мне данные из файла екселя добавить в существующую базу данных, в нужную табличку в акцесс
← →
Johnmen © (2009-02-18 12:57) [1]Какой ответ, Вы предполагаете, Вас устроит?
← →
b@v © (2009-02-18 13:03) [2]
> Какой ответ, Вы предполагаете, Вас устроит?
>
Вообщем делаю что то вроде вот так :
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 не найдено !!!
Где я что делаю не так ?
← →
Сергей М. © (2009-02-18 13:07) [3]
> мол Tel1 не найдено
Ну раз не найдено, почему бы и не поверить ?
Каков текст запроса, использованного тобою для открытия НД под управлением ADODataSet1 ?
← →
Anatoly Podgoretsky © (2009-02-18 13:18) [4]> b@v (18.02.2009 12:48:00) [0]
Ни Эксель, ни Акцесс к данной конференции не имеют отношения, ну а Акцесс хорошо интегрируется с другими продуктами Микрософт.
← →
Dennis I. Komarov © (2009-02-18 14:02) [5]xls2dbf
← →
sniknik © (2009-02-18 14:59) [6]> Вообщем делаю что то вроде вот так :
а можно типа так
AdoCommand.CommandText:= "INSERT INTO SELECT FROM";
AdoCommand.Execute;
поищи в справке аксесса раздел "Предложение IN". или вообще про ISAM-ы.
Страницы: 1 вся ветка
Текущий архив: 2009.04.05;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.018 c
