Подскажите как лучше всего сделать отчеты.В учебнике упоминается конструктор DataReport,но а если мне нужно много отчетов с кучей условий и для каждого отчета свое условие?

Ну и еще один вопрос.Не знаете где достать такой умный календарь,в котором нельзя было бы выбрать какой-то день,если это праздник или выходной (я тут делаю что-то вроде назначения очередей на прием к врачу).Не подкинете идею как можно это сделать?И вообще как это в настоящих больницах работает?

Где-то на VB-ном сайте видел календарь,написанный на самом VB 6.0/Очень интересны пример.Жаль, только не помню где.
А так могу подсказать по-поводу отчетов.
Есть очень неплохой конструктор от Afalina Soft -XL Report.NET.
Как сам понимаешь,работает по VB.NET.
Очень интереная реализация.к тому же простота.
Выгружает отчеты в Excell.

А по-поводу множественности условий-существую какие-то параметры (условия).Их можно привязать к определенному отчету.
При вызове построения этого отчета будут допустим на форме появляться (динамически создаваться) контролы,которые нужны для ввода значений параметров для каждого конкретного отчета.

Зачем отчеты в VB
Тогда, как можно просто закидывать данные в Excel. Просто и без проблем!
В MSDN примеров полно. Подключаешься к Referens и готово. Только в путь....

Это сообщение отредактировал(а) valex13 - 15.3.2004, 13:11

Seagate Crystal report очень неплохая штучка.

и где это все достатъ?
Тогда, как можно просто закидывать данные в Excel. Просто и без проблем!
В MSDN примеров полно. Подключаешься к Referens и готово. Только в путь....

Seagate Crystal report очень неплохая штучка.
Soft -XL Report.NET.

Цитата

Тогда, как можно просто закидывать данные в Excel. Просто и без проблем! В MSDN примеров полно. Подключаешься к Referens и готово. Только в путь.... Seagate Crystal report очень неплохая штучка. Soft -XL Report.NET.

а может можно просто форму распечатать?

Я же сказал в MSDN - пруд пруди. Вот пример работы с MS Wordом

Код

Dim wrdAppl As Word.Application Set wrdAppl = New Word.Application Dim wrdDoc As Word.Document Dim sPath As String sPath = Application.Path 'Добавим документ по шабону On Error GoTo ErNoTemplates Set wrdDoc = wrdAppl.Documents.Add("Analize_Loading.dot") wrdAppl.Visible = True

Тоже самое можно делать и с MS Excel
Для чего тебе нужно добавить в Referens Microsoft Excel object library и ты автоматически подключаешься к библиотекам MS Excel. Это называется OLE Automation.
Вот пример (первый попавшийся) взятый из MSDN:

Код

Dim xlApp As Object   ' Declare variable to hold the reference.   Set xlApp = CreateObject("excel.application")   ' You may have to set Visible property to True   ' if you want to see the application. xlApp.Visible = True   ' Use xlApp to access Microsoft Excel's   ' other objects. xlApp.Quit   ' When you finish, use the Quit method to close Set xlApp = Nothing   ' the application, then release the reference.

В нем открывается MS Excel
Более того, ты мощешь написать макрос в MS Excel а из VB открыть MS Excel и запустить макрос.
Опять таки смотри MSDN и задавай конкретный вопросы.
Спасибо за внимение :-)

Цитата

В нем открывается MS Excel Более того, ты мощешь написать макрос в MS Excel а из VB открыть MS Excel и запустить макрос. Опять таки смотри MSDN и задавай конкретный вопросы. Спасибо за внимение :-)

Очень удобно, но если необходимо сделать отчет с использованием SQL, то Crystal Report рулит.

Вовсе нет. B MS Excel можно закидывать данные из запроса. Только если выборка большого обьема, тогда долго строиться отчет будет.
А потом, конечный пользователь не имеет возможности отредактировать результат в Crystal Report и насколько мне известно Crystal Report бесплатно не распрастраняется.

Это сообщение отредактировал(а) valex13 - 23.3.2004, 13:35

Цитата

насколько мне известно Crystal Report бесплатно не распрастраняется.

Насколько мне известно Microsoft Excel тоже.
А на счет редактирования ты прав, но... иногда это излишне. А по скорости работы Кристалы всё же рулят.

Пример: у меня в больничке 100 пациентов.каждому из них за месяц до прививки высылается письмо с датой экзекуции(понятно, что даты прежних прививок находятся в таблице).
Как это сделать?

А не попробовать Аксес и ВБА?

Вот именно что нельзя

Цитата

Вот именно что нельзя

Тогда что же можно?
Вариантов много, что именно устроит?

устроит всё,кроме того что нельзя.ну например Crystal Reports, вот например как с помощью Crystal Reports сделать?

господи, платили бы деньги, я бы это с таким удовольствием сделала бы

ну я не господь...вот и никто помочь бескорыстно не желает:(

Цитата

вот и никто помочь бескорыстно не желает

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

Код

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

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

Вот пример как сделать на 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()

Код только что написал.

Спасибо всем за внимание (только этот ODBC не шибко удобный какой-то,особенно если скакать с компутера на компутер)

serpentyna
Укажи какая у тебя база данных!
И вооще, желательно немного почитать книги по основам баз данных и спрашивать по конкретней. Ты просила пример построения отчета , а не пример взаимодействия с базой данных.