![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 27.08.2009
Сообщений: 56
|
![]()
Проблема вот в чем при отображении данных в DBGrid-е я использовал ADOTable и экспорт данных проходил на ура!
Но потом мне понадобилось использовать ADOQuery для отображение данных в DBGrid-е и после нажатие кнопки "экспорт" Выводит ошибку. procedure TForm3.Button6Click(Sender: TObject); var i,j,z,index,col,row: Integer; sline:string; ExcelApp,sheet,Colum: Variant; begin ExcelApp := CreateOleObject('Excel.Application' ); ExcelApp.Visible := False; ExcelApp.WorkBooks.open('c:\b2.xls' ); ExcelApp.WorkBooks[1].WorkSheets[1].name := 'TCP'; sheet:=ExcelApp.WorkBooks[1].WorkSheets['TCP'].Columns; index:=13; DBGrid1.DataSource.DataSet.First; for i:=1 to DBGrid1.DataSource.DataSet.RecordCo unt do begin for j:=1 to 13//DBGrid1.FieldCount-1 do sheet.cells[index,j]:=DBGrid1.fields[j].asstring; inc(index); inc(z); DBGrid1.DataSource.DataSet.Next; end; ExcelApp.Visible := true; end; |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 27.08.2009
Сообщений: 56
|
![]()
Вообщем как решить данную проблему
|
![]() |
![]() |
![]() |
#3 |
SQL-коддинг
Участник клуба
Регистрация: 16.01.2009
Сообщений: 1,192
|
![]()
1) обрати внимание - тег CODE
2) чота у тебя тут путаница я бы переписал так Код:
|
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 27.08.2009
Сообщений: 56
|
![]()
Он ругается так же на строчку
sheet.cells[i,j]:=DBGrid1.fields[j].AsString; может функция cells для ADOQuery не подхидит?! |
![]() |
![]() |
![]() |
#5 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]() Цитата:
I'm learning to live...
|
|
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 27.08.2009
Сообщений: 56
|
![]()
Вот ошибка:
Project.exe raised exception class EAccessViolation with message' Access violation at address 0051bc03 in module 'Project.exe'. Read of address 0000000'. Process stoped ... |
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 27.08.2009
Сообщений: 56
|
![]()
может есть схожая функция похожая на cells только для ADOQuery
|
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 27.08.2009
Сообщений: 56
|
![]()
Или может подскажите другой способ передачи данных из DBGrid-a в Excel
|
![]() |
![]() |
![]() |
#9 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Значит нужно проверки ставить:
Код:
А может нет свойства .cells у sheet твоего...
I'm learning to live...
|
![]() |
![]() |
![]() |
#10 |
SQL-коддинг
Участник клуба
Регистрация: 16.01.2009
Сообщений: 1,192
|
![]()
скорее даже так
Код:
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
DBGrid->EXCEL | Neba | БД в Delphi | 7 | 03.11.2010 05:23 |
Блок-схема экспорта в MS Excel | lola8669 | Общие вопросы Delphi | 0 | 27.05.2009 13:23 |
перенос данных из DBGrid в DBGrid | KingSize | БД в Delphi | 17 | 24.04.2009 09:30 |
StringGrid, Excel проблемы | artemavd | Общие вопросы Delphi | 8 | 28.11.2008 19:37 |
Вставка данных(Excel) из clipboard в DBGrid | mahsus | Общие вопросы Delphi | 1 | 07.10.2007 02:02 |