Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выгрузка из базы в excel, из 2 таблиц 
:(
    Опции темы
pretender
Дата 13.1.2008, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 19.11.2007

Репутация: нет
Всего: нет
Доброго времени суток!

Есть две таблицы: группы и студенты.
Нужно выгрузить в excel в таком вот формате:

_____________
Группа 1

Иванов
Петров
Сидоров
_____________
Группа 2

Пупкин
Васильев
....
и .т.д.

Как выгрузать в одну таблицу я знаю, а вот как выгрузить из двух....
Если вдруг не понятно описал, то должно получиться что-то типа... прайс-листа, где есть группа товаров и товар в этой группе...
PM MAIL   Вверх
Akina
Дата 14.1.2008, 09:44 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
А в чем, собсно, проблема?

Код
' draft idea-only code - do not use directly!
set rs = openrecordset( _
  "select students.*, groups.* " & _
  "from students " & _
  "inner join groups " & _
  "on students.group_id = groups.id " & _
  "order by students.group_id, students.firstname")
currentgroup = ""
with rs
 .moveforst
 do until .eof
  if currentgroup <> !students.group_id then
   excelapp.activesheet.activecell = !group_name
   currentgroup = !students.group_id
  else
   excelapp.activesheet.activecell = !student_name
   .movenext
  end if
 excelapp.activesheet.selectnextcell
 loop
 .close
end with
set rs=nothing



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
pretender
Дата 16.1.2008, 22:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 19.11.2007

Репутация: нет
Всего: нет
Цитата(Akina @ 14.1.2008,  09:44)
А в чем, собсно, проблема?
Код

   excelapp.activesheet.activecell = !group_name

Ничего не понимаю... В этом месте выдает ошибку "Object doesn't support this property or method" !
Объявлял вот так:
Код

    Dim excelapp As New Excel.Application
    Set excelapp = New Excel.Application
    excelapp.Visible = True
    excelapp.Workbooks.Add

В чем может быть ошибка?

Это сообщение отредактировал(а) pretender - 16.1.2008, 22:51
PM MAIL   Вверх
Akina
Дата 16.1.2008, 23:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(pretender @  16.1.2008,  23:50 Найти цитируемый пост)
В этом месте выдает ошибку 

Ну ты код-то поправь! почем я знаю, как у тебя там поля называются! Ведь специально написал, что это драфт, идея, а НЕ КОД!!!


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
pretender
Дата 16.1.2008, 23:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 19.11.2007

Репутация: нет
Всего: нет
Так ошибка происходит вот из-за этого кода:
Код

excelapp.activesheet.activecell


Это не из-за названия поля!!!

Получается что excelapp не поддерживает свойство или метод!

Из твоего примера:
Код

excelapp.activesheet.activecell = !group_name

в !group_name хранится то что нужно!!!

Это сообщение отредактировал(а) pretender - 17.1.2008, 01:23
PM MAIL   Вверх
Akina
Дата 17.1.2008, 08:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(pretender @  17.1.2008,  00:56 Найти цитируемый пост)
ошибка происходит вот из-за этого кода

Этот код тебе говорит, что надо для управляемого приложения Эксель на активном листе получить ссылку на активную ячейку, чтобы положить туда требуемое значение. А вот КАК это сделать, какие методы и свойства использовать - это ТЕБЕ предстоит выяснить и подставить вместо шаблона.

M
Akina		А если не хочешь ничего делать самостоятельно, если тебе нужно получить полностью готовый код, сделанный кем-то другим - только намекни, и тема улетит в "Центр помощи".



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
pretender
Дата 18.1.2008, 12:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 19.11.2007

Репутация: нет
Всего: нет
Зачем было переносить? Уже разобрался сам. Код такой:
Код

Dim col As Integer
    Dim cel As Integer
    Dim XL As New Excel.Application
    col = 1
    cel = 2
    Set XL = New Excel.Application
    XL.Visible = True
    XL.Workbooks.Add
    
    XL.Cells(1, 1).CurrentRegion.EntireColumn.AutoFit
    
    rs_Price.Open "Select Goods.*, GroupTv.* From Goods Inner join GroupTv on Goods.GroupCode=GroupTv.ID order by Goods.GroupCode, GroupTv.Groups", cn, adOpenStatic, adLockOptimistic
    currentgroup = ""
    With rs_Price
        .MoveFirst
        Do Until .EOF
            If currentgroup <> !GroupCode Then
                XL.ActiveCell.CurrentRegion.EntireColumn.AutoFit
                XL.Selection.HorizontalAlignment = 3
                XL.Selection.Font.Bold = True
                XL.ActiveCell = !Groups
                currentgroup = !GroupCode
            Else
                XL.ActiveCell = !Name
                XL.Cells(col, cel) = !Measure
                XL.Cells(col, cel + 1) = !Cost
                .MoveNext
            End If
            col = col + 1
            XL.Cells(col, 1).Select
        Loop
        .Close
    End With
    Set rs_Price = Nothing
    Set XL = Nothing
    XL.Quit


Спасибки всем за помощщщщ!!!
PM MAIL   Вверх
Akina
Дата 18.1.2008, 12:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(pretender @  18.1.2008,  13:14 Найти цитируемый пост)
Зачем было переносить? 

По ошибке...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
AlexeyW
Дата 18.1.2008, 13:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 18.1.2008

Репутация: нет
Всего: нет
Помогите ! Есть прога написана на VB6 к ней база ципляеться mdb! надо сделать выгрузку (экспорт) в excel! Желательно в созданный шаблон! Заплачу 200 руб. за рабочий код!
PM MAIL   Вверх
Dexx
Дата 20.1.2008, 01:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: 5
Всего: 7
Легко но не за 200 р
Лучще сам дойди до того как это делается!
Тут за тебя ни кто и ни чего делать не будет!! Вот.


--------------------
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0763 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.