Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];

Вниз

Неправильно записывает из базы в EXel   Найти похожие ветки 

 
Сергей И   (2006-04-17 18:10) [0]

1 Godex EZ-2 203dpi qqqqqqq \\ST-52  sergey 17.04.2006
2 Godex EZ-2 203dpi qqqqqqq \\ST-52 sergey 17.04.2006
3 Godex EZ-2 203dpi qqqqqqq \\ST-52sergey  17.04.2006
4 hp LaserJet 1320 PCL qqq l  \\192.168.0.90  oleg17.04.2006

имеются вот такие данные(смотри выше) в базе данных
когда я пытаюсь записать из в файл exel то получается чтото, такое ->>
Godex EZ-2 203dpi Спартак.xls \\192.168.0.90 oleg17.04.2006
Godex EZ-2 203dpi Спартак.xls \\192.168.0.90 oleg17.04.2006
Godex EZ-2 203dpi Спартак.xls \\192.168.0.90 oleg17.04.2006
hp LaserJet 1320 PCL Спартак.xls \\192.168.0.90 oleg17.04.2006
hp LaserJet 1320 PCL Спартак.xls \\192.168.0.90 oleg17.04.2006

а вот сам код перезаписи из базы в exel
->>
function save_file(dbgrid:tdbgrid; FileName: string):boolean;
const
 xlWBATWorksheet = -4167;
var
 Row, Col: Integer;
 XLApp, Sheet: OLEVariant;
begin
form1.DBGrid1.DataSource.DataSet.First;
Result := False;
 XLApp  := CreateOleObject("Excel.Application");
 try
   XLApp.Visible := False;
   XLApp.Workbooks.Add(xlWBatWorkSheet);
   Sheet      := XLApp.Workbooks[1].WorkSheets[1];
   Sheet.Name := "Otchet";
  for col := 0 to form1.DBGrid1.Columns.Count -1   do
    begin
     for row := 0 to form1.DBGrid1.DataSource.DataSet.RecordCount do
       begin
      Sheet.Cells[row+1,col+1] :=form1.DBGrid1.Fields[col].AsString ;
      form1.DBGrid1.DataSource.DataSet.next;
     end;end;
  try
     XLApp.Workbooks[1].SaveAs(path+FileName);
     Result := True;
   except
   end;
 finally
   if not VarIsEmpty(XLApp) then
   begin
     XLApp.DisplayAlerts := False;
     XLApp.Quit;
     XLAPP := Unassigned;
     Sheet := Unassigned;
   end;
 end;
end;

в чем дело подскажите?


 
Сергей И   (2006-04-18 08:25) [1]

Удалено модератором
Примечание: Создание пустых сообщений


 
Сергей И   (2006-04-18 10:18) [2]

Может быть не втой последовательности перебираю записи базы данных?


 
Johnmen ©   (2006-04-18 10:25) [3]

Естественно, ошибка в неверном вложении циклов. Или же в отсутствии First для начала цикла по записям.
А также ошибка в верхней границе цикла по записям.


 
_RusLAN ©   (2006-04-18 10:36) [4]

Сергей И   (17.04.06 18:10)
hp LaserJet 1320 PCL Спартак.xls \\192.168.0.90 oleg17.04.2006
hp LaserJet 1320 PCL Спартак.xls \\192.168.0.90 oleg17.04.2006


form1.DBGrid1.DataSource.DataSet.RecordCount - 1


 
Сергей И   (2006-04-18 10:37) [5]

А что точно не так не подскажешь?


 
_RusLAN ©   (2006-04-18 10:45) [6]

Сергей И   (17.04.06 18:10)
form1.DBGrid1.Columns.Count -1

DBGrid может содержать статические поля(вроде так они называются) и их количество и порядок может не соответствовать набору данных


 
Сергей И   (2006-04-18 10:48) [7]

Все спасибо я разобрался!


 
_RusLAN ©   (2006-04-18 10:49) [8]

лучше
перебирать записи НД.
а во вложеном цыкле пробегать по полям



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

Форум: "Базы";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.014 c
1-1146724669
Oljas
2006-05-04 10:37
2006.06.11
А можно ли , передать указатель на массив (SendMessage) ...


2-1148383693
sdram
2006-05-23 15:28
2006.06.11
Как работать с HTML страницой?


1-1146734024
DelphiLexx
2006-05-04 13:13
2006.06.11
Проблема с TSpeedButton ом


3-1145349957
Pashka_cool
2006-04-18 12:45
2006.06.11
FireBird 1.5 на 2003 Windows Server - база после запуска падает.


2-1148676758
ZV
2006-05-27 00:52
2006.06.11
SpinEdit





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский