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

← →
Yurisimus (2005-05-30 12:31) [0]

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;
...

← →
Anatoly Podgoretsky © (2005-05-30 12:56) [1]

TTable.AddIndex

← →
Yurisimus (2005-05-30 13:09) [2]

Не хотелось бы сажать на стороннюю машину еще и BDE, поэтому использую ADO, а вернее пытаюсь использовать... Никто не подскажет через какого поставщика данных подключить ADOConnection к *.dbf???

← →
Anatoly Podgoretsky © (2005-05-30 13:19) [3]

АДО тоже будет использовать BDE + JET [+ ODBC] и не будет иметь полных возможностей, особенно по самой длинной цепочки.
Второй вариант попробовать SQL запрос, формат смотреть в справке по JET / ODBC

> Второй вариант попробовать 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$]

$ обязателен

> 2 вопрос:
CREATE INDEX ID ON TableName (ID)
при подключеии уже к dBase

Сохранение файла *.xls как *.dbf и создание индекса... Найти похожие ветки

Сохранение файла .xls как .dbf и создание индекса... Найти похожие ветки