|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.08.2009, 14:24 | #1 |
Пользователь
Регистрация: 27.08.2009
Сообщений: 56
|
проблемы экспорта данных из DBGrid в Excel
Проблема вот в чем при отображении данных в 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; |
28.08.2009, 14:25 | #2 |
Пользователь
Регистрация: 27.08.2009
Сообщений: 56
|
Вообщем как решить данную проблему
|
28.08.2009, 14:31 | #3 |
SQL-коддинг
Участник клуба
Регистрация: 16.01.2009
Сообщений: 1,192
|
1) обрати внимание - тег CODE
2) чота у тебя тут путаница я бы переписал так Код:
|
28.08.2009, 14:39 | #4 |
Пользователь
Регистрация: 27.08.2009
Сообщений: 56
|
Он ругается так же на строчку
sheet.cells[i,j]:=DBGrid1.fields[j].AsString; может функция cells для ADOQuery не подхидит?! |
28.08.2009, 14:44 | #5 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
28.08.2009, 14:52 | #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 ... |
28.08.2009, 15:16 | #7 |
Пользователь
Регистрация: 27.08.2009
Сообщений: 56
|
может есть схожая функция похожая на cells только для ADOQuery
|
28.08.2009, 15:21 | #8 |
Пользователь
Регистрация: 27.08.2009
Сообщений: 56
|
Или может подскажите другой способ передачи данных из DBGrid-a в Excel
|
28.08.2009, 16:04 | #9 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Значит нужно проверки ставить:
Код:
А может нет свойства .cells у sheet твоего...
I'm learning to live...
|
28.08.2009, 17:00 | #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 |