Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Сохранение файла *.xls как *.dbf и создание индекса... [D7]

Yurisimus © (2005-05-30 12:31:00)
1 вопрос:
Как правильнее закрыть программно преобразованный файл из *.xls в *.dbf (чтобы не выскакивало окно подтверждения сохранения).
2 вопрос:
Как в этом сохраненном файле *.dbf программно же создать индекс на id. Ниже привожу код создания *.xls файла и преобразование его в *dbf
...
var
MyExcel: variant;
...
MyExcel:=CreateOleObject('Excel.Application');
with MyExcel do
begin
WorkBooks.Add;
WorkBooks[1].WorkSheets[1].Name:='Analiz';
Cells[1,1]:='id';
Cells[1,2]:='name_tov';
Cells[1,3]:='price';
Cells[1,4]:='edizm';
Cells[1,5]:='srok';
Cells[1,6]:='norma';
Cells[1,7]:='proizvod';
Cells[1,8]:='firma';
Cells[1,1].NumberFormat:='0';
Cells[2,1].NumberFormat:='0';
ActiveWorkbook.SaveAs(dlgSaveXL.FileName+'.dbf', 11, false, false, false, false);
ActiveWorkbook.Close(SaveChanges:=True);
end;
...

sniknik (2005-05-30 13:42:00) [1]
> 2 вопрос:
CREATE INDEX ID ON TableName (ID)
при подключеии уже к dBase

sniknik (2005-05-30 13:38:00) [2]
> Второй вариант попробовать SQL запрос

строка конекта
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\ExcelBook.xls;Extended Properties=Excel 8.0;Persist Security Info=False

запрос
SELECT * INTO TableName IN "D:\" "dBase IV;" FROM [BookList1$]

$ обязателен

Anatoly Podgoretsky (2005-05-30 13:19:00) [3]
АДО тоже будет использовать BDE + JET [+ ODBC] и не будет иметь полных возможностей, особенно по самой длинной цепочки.
Второй вариант попробовать SQL запрос, формат смотреть в справке по JET / ODBC

Yurisimus (2005-05-30 13:09:00) [4]
Не хотелось бы сажать на стороннюю машину еще и BDE, поэтому использую ADO, а вернее пытаюсь использовать... Никто не подскажет через какого поставщика данных подключить ADOConnection к *.dbf???

Anatoly Podgoretsky (2005-05-30 12:56:00) [5]
TTable.AddIndex

Наверх

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