Скачать: CL | DM;

Сохранение файла *.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

---

← →
sniknik ©   (2005-05-30 13:38) [4]

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

$ обязателен

---

← →
sniknik ©   (2005-05-30 13:42) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.974 c