Kuzya_jr
13-07-2004, 04:54
Тут такая проблемка.
вот этот код:
procedure Tstart_frm.Button1Click(Sender: TObject);
var
* *Values:OLEVariant;
* *excel,workbook,sheet:variant;
* *iRow,q:integer;
begin
excel:=CreateOleObject('Excel.Application');
workbook:=excel.Workbooks.Open(OpenDialog1.FileName);
sheet:=workbook.worksheets.item[1];
Values:=sheet.UsedRange.Value;
maxCol:=sheet.UsedRange.Columns.Count; * * * * *// ñòîëáöû.
maxRow:=sheet.UsedRange.Rows.Count; * * * * * * * // ñòðîêè.
for iRow:=strtoint(MaskEdit1.text) *to maxRow-strtoint(MaskEdit1.text) *do
* *DM.New.AppendRecord([Values[iRow,1], Values[iRow,2],Values[iRow,3],Values[iRow,4],Values[iRow,5] Values[iRow,6]]);
excel.quit;
end;
Не хочет добавлять записи в мою таблицу :(.
Таблицу создавал в DatabaseDesktop'е. Таблица Paradox7.
По идее, при нажатии этой кнопки, в неё должны занаситься данные из екселевского прайса (5000 пунктов). В DBGrid1 всё нормально отображается, типа вроде добавилось, но файл new.db как занимал 2кб, так и продолжает занимать :(. При повторном запуске проекта - нет ни одной записи :(. Я пробовал и InsertRecord, и по частям:
DM.New.insert;
DM.New['art']:=Values[iRow,1];
...
DM.New.Post;
Ничего не работает :(. Подскажите где ошибка?
P.s.: Delphi 6.0
Исправлено: m007kuzya, 4:55 13-07-2004
вот этот код:
procedure Tstart_frm.Button1Click(Sender: TObject);
var
* *Values:OLEVariant;
* *excel,workbook,sheet:variant;
* *iRow,q:integer;
begin
excel:=CreateOleObject('Excel.Application');
workbook:=excel.Workbooks.Open(OpenDialog1.FileName);
sheet:=workbook.worksheets.item[1];
Values:=sheet.UsedRange.Value;
maxCol:=sheet.UsedRange.Columns.Count; * * * * *// ñòîëáöû.
maxRow:=sheet.UsedRange.Rows.Count; * * * * * * * // ñòðîêè.
for iRow:=strtoint(MaskEdit1.text) *to maxRow-strtoint(MaskEdit1.text) *do
* *DM.New.AppendRecord([Values[iRow,1], Values[iRow,2],Values[iRow,3],Values[iRow,4],Values[iRow,5] Values[iRow,6]]);
excel.quit;
end;
Не хочет добавлять записи в мою таблицу :(.
Таблицу создавал в DatabaseDesktop'е. Таблица Paradox7.
По идее, при нажатии этой кнопки, в неё должны занаситься данные из екселевского прайса (5000 пунктов). В DBGrid1 всё нормально отображается, типа вроде добавилось, но файл new.db как занимал 2кб, так и продолжает занимать :(. При повторном запуске проекта - нет ни одной записи :(. Я пробовал и InsertRecord, и по частям:
DM.New.insert;
DM.New['art']:=Values[iRow,1];
...
DM.New.Post;
Ничего не работает :(. Подскажите где ошибка?
P.s.: Delphi 6.0
Исправлено: m007kuzya, 4:55 13-07-2004