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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Отчёты 
:(
    Опции темы
serpentyna
Дата 30.3.2004, 15:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
устроит всё,кроме того что нельзя.ну например Crystal Reports, вот например как с помощью Crystal Reports сделать?
PM   Вверх
nicka
Дата 30.3.2004, 17:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 1
господи, платили бы деньги, я бы это с таким удовольствием сделала бы
PM MAIL   Вверх
serpentyna
Дата 30.3.2004, 17:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
ну я не господь...вот и никто помочь бескорыстно не желает:(
PM   Вверх
cardinal
Дата 30.3.2004, 22:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Цитата
вот и никто помочь бескорыстно не желает

Ну ладно не желает... у меня лично на все времени не хватает. Вот выложу кусок без объянений:

Код
Private Sub Form_Load()
Dim Report As New CrystalReport1
'CRViewer1.Refresh
mdb.Recordsets.Refresh
Form1.Enabled = False
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.Zoom (68)
Report.PaperSize = crPaperA5
Screen.MousePointer = vbDefault
End Sub


На тест и объяснения сейчас времени нет, увы. Это из моей старой проги и когда-то этот кусок работал smile.gif , но сейчас у меня библиотек crystal report'a уже нет. Про то как пользоваться crystal report'ом немного описано в книге:
Обработка баз данных на VB 6.0, Д. Мак-Манус,
но я сейчас посмотрел и как-то мне это не очень понравилось. Попробуй пока с этим разобраться, а я может, что в инете нарою...


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
valex13
Дата 31.3.2004, 10:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 243
Регистрация: 29.1.2003
Где: Иркук. область, г . Иркутск

Репутация: 1
Всего: 1
Вот пример как сделать на MS Excel при условии, что Referens настроена на MS Excel и DAO
И настроено ОДБС алиас TEST
Код

Dim db as Database
Dim rs as Recordset
Set Db = OpenDatabase("TEST", False, False, "ODBC")
Set rs = Db.OpenRecordset( "SELECT CLIENTID,CLIENTNAME FROM CLIENT ORDER BY CLIENTID")
'Указываю на первую запись
 rs.MoveFirst()
 'Связываюсь с MS Excel
 Dim ExApp As Excel.Application
 Dim ExWB As Excel.Workbooks
 Dim ExWS As Excel.Worksheet
'Указываем приложение
Set ExApp = Excel.Application

 'Подгружаем файл
 Set ExWB = ExApp.Workbooks
 'Подгружаем страничку
 Set ExWS = ExApp.Worksheets(1)
  Dim i As Integer
  i =1
  Do While Not rs.EOF
    'Указываю ячейку A(i)
    ExWS.Range ("A" & LTrim(Str(I) ) ).Select
    ExWS.ActiveCell.FormulaRC = rs.Fields("CLIENTNAME").Value      
    rs,MoveNext()
  Loop

'Показываю MS Excel
xlApp.Visible = True
xlApp.Quit  
Set xlApp = Nothing  
rs.Close()

Код только что написал. smile.gif
PM MAIL ICQ   Вверх
serpentyna
Дата 31.3.2004, 17:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Спасибо всем за внимание smile.gif (только этот ODBC не шибко удобный какой-то,особенно если скакать с компутера на компутер)
PM   Вверх
valex13
Дата 1.4.2004, 06:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 243
Регистрация: 29.1.2003
Где: Иркук. область, г . Иркутск

Репутация: 1
Всего: 1
serpentyna
Укажи какая у тебя база данных!
И вооще, желательно немного почитать книги по основам баз данных и спрашивать по конкретней. Ты просила пример построения отчета , а не пример взаимодействия с базой данных.
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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