Выгрузка данных из Delphi в Excel

@Оленька · Регистрация: 11.04.2008

Делаю выгрузку данных через процедуру SendtoExcel. При заполнении массива пишу следующий код:

Delphi

Table1.DisableControls;
Table1.First;
while not Table1.eof do
    begin
    for j:=1 to Table1.FieldDefs.Count do
        begin
        ArrayData[Table1.RecNo,j]:=Table1.FieldByName(Table1.FieldDefs.Items [j-1].DisplayName).value;
        end;
    Table1.Next;
    end;
Table1.EnableControls;

На строку с ArrayData[Table1.RecNo,j] при выполнении программы выходит ошибка:

Variant or safe array index out of bounds

Что можно сделать???? Почему может не работать???? В другой проге данный код работает просто отлично... В чем может быть проблема???? Погите, пожалуйста:'(

Humanoid · 03.12.2008, 21:53

А что такое ArrayData? Может, он отсчитывается с 0, а не с 1 ?

@Оленька · 04.12.2008, 05:22 **[ТС]**

Сообщение от Humanoid

А что такое ArrayData? Может, он отсчитывается с 0, а не с 1 ?

С j все нормально, вся ошибка идет из-за Table1.RecNo...

@Lord_Voodoo · 04.12.2008, 09:33

ну вообще открою тайну, RecNo тянется еще из Paradox и только там работает корректно, и вообще зачем тебе этот Recno, разве нет других методов адресации
и вообще какой-то извращенный способ записи ИМХО...
а самый лучший способ - это трассировка, она покажет, где неправильно и почему

@Angry_Bobo · 04.12.2008, 12:09

беда, наверное в том, что в RecNo есть значения NULL...
может так получится:

Delphi

Table1.DisableControls;
Table1.First;
RecNo := 1;//Заменим Table1.RecNo, своим индексом записи типа длинное целое
while not Table1.eof do
    begin
    for j:=1 to Table1.FieldDefs.Count do
        begin
        ArrayData[RecNo,j]:=Table1.FieldByName(Table1.FieldDefs.Items [j-1].DisplayName).value;
        end;    
    RecNo := RecNo + 1;//смещаем индекс
    Table1.Next;
    end;
Table1.EnableControls;

@Оленька · 04.12.2008, 16:34 **[ТС]**

все всем спасибо, разобралась сама

У меня в таблице, которую я хотела передать в Excel были удаленные строки (через DataBase), т.е. нумерация строк была нарушена(не попорядку), поэтому и глючилось. А без удаленных строк в таблице все работает нормально. БД у меня Dbase, а в предыдущей проге была Paradox(поэтому, наверно, в предыдущей и работало все нормально). Как-то можно обойти эту проблему, чтобы все выводилось нормально в таблице,где есть удаленные строки, через DataBase и не только?????

@Angry_Bobo · 08.12.2008, 09:58

У DBase'ов, чтобы удалить записи физически - нужно выполнять команду pack, в противном случае они просто помечены, как удаленные... Нужно эти таблички открыть в FoxPro или Dbf-Navigator'e и сделать pack, тогда все будет путем...
З.Ы. Кажись средствами BDE или ADO это сделать невозможно...

@Lord_Voodoo · 08.12.2008, 10:09

Angry_Bobo, да ну ладно, есть для dbase и foxpro функция бде - DbiPackTable

Оленька, из-за того, что у вас был Paradox, RecNo работало корректно, потому что именно в парадоксе это свойство работает корректно, в остальных базах оно тянется наследием, но корректно не работает, вы наложите индекс и увидете, что там твориться начнет в таблице, в других БД использовать RecNo крайне не рекомендуется

Humanoid Почетный модератор 11166 / 4124 / 411 Регистрация: 12.06.2008 Сообщений: 11,943
	03.12.2008, 21:53	2
	А что такое ArrayData? Может, он отсчитывается с 0, а не с 1 ? 0

@Оленька 24 / 24 / 1 Регистрация: 11.04.2008 Сообщений: 540
	04.12.2008, 05:22 [ТС]	3
	Сообщение от Humanoid А что такое ArrayData? Может, он отсчитывается с 0, а не с 1 ? С j все нормально, вся ошибка идет из-за Table1.RecNo... 0

@Lord_Voodoo Супер-модератор 8737 / 2452 / 139 Регистрация: 07.03.2007 Сообщений: 11,690
	04.12.2008, 09:33	4
	ну вообще открою тайну, RecNo тянется еще из Paradox и только там работает корректно, и вообще зачем тебе этот Recno, разве нет других методов адресации и вообще какой-то извращенный способ записи ИМХО... а самый лучший способ - это трассировка, она покажет, где неправильно и почему 0

@Оленька 24 / 24 / 1 Регистрация: 11.04.2008 Сообщений: 540
	04.12.2008, 16:34 [ТС]	6
	все всем спасибо, разобралась сама У меня в таблице, которую я хотела передать в Excel были удаленные строки (через DataBase), т.е. нумерация строк была нарушена(не попорядку), поэтому и глючилось. А без удаленных строк в таблице все работает нормально. БД у меня Dbase, а в предыдущей проге была Paradox(поэтому, наверно, в предыдущей и работало все нормально). Как-то можно обойти эту проблему, чтобы все выводилось нормально в таблице,где есть удаленные строки, через DataBase и не только????? 0

@Angry_Bobo 269 / 31 / 6 Регистрация: 27.08.2008 Сообщений: 156
	08.12.2008, 09:58	7
	У DBase'ов, чтобы удалить записи физически - нужно выполнять команду pack, в противном случае они просто помечены, как удаленные... Нужно эти таблички открыть в FoxPro или Dbf-Navigator'e и сделать pack, тогда все будет путем... З.Ы. Кажись средствами BDE или ADO это сделать невозможно... 0

@Lord_Voodoo Супер-модератор 8737 / 2452 / 139 Регистрация: 07.03.2007 Сообщений: 11,690
	08.12.2008, 10:09	8
	Angry_Bobo, да ну ладно, есть для dbase и foxpro функция бде - DbiPackTable Оленька, из-за того, что у вас был Paradox, RecNo работало корректно, потому что именно в парадоксе это свойство работает корректно, в остальных базах оно тянется наследием, но корректно не работает, вы наложите индекс и увидете, что там твориться начнет в таблице, в других БД использовать RecNo крайне не рекомендуется 1

Опции темы