End Sub. Dim rec As ADODB.Recordset

MyReport.Show

Dim rec As ADODB.Recordset

Dim main As ADODB.Connection

Private Sub mnuSprav_Click()

Set main = New ADODB.Connection

main.Open "dsn=main"

Set rec = main.Execute("SELECT Spisok.Group, Spisok.Familia, Spisok.Imja " & _

"From Spisok " & _

"WHERE (Spisok.Familia='" & DataStud.Recordset!Familia & "' AND " & _

"Spisok.Group='" & DataStud.Recordset!Group & "')")

Set MyReport.DataSource = rec

18. Протестируйте работу отчета из приложения.

19. Для создания 2-го отчета добавим в проект VB элемент DataEnvironment1, как правило элемент добавляется сразу с 1 подключением (Connection1).

20. Вызовите окно свойств (Properties) Connection1 и в открывшемся окне выберите вкладку Connection. На вкладке выберите переключатель Use connection string (строка подключения). Станет доступно текстовое поле в котором будут сформированы параметры подключения БД.

21. Параметры подключения формируйте при помощи кнопки Build. В окне Select Data Source на 2 вкладке (Machine Data Source) выберите имя своего источника данных main. (ОК).

22. Щелкните кнопку DataBase и сформируйте маршрут доступа к БД (которой соответствует имя main)

23. Вернитесь в окно свойств подключения. Теперь Вам можно в 3 пункте выбрать маршрут к Вашей БД. (см. рис)

24. Проверьте подключение БД при помощи кнопки Test Connection

25. Щелкните правой кнопкой мыши по Connection и добавьте в проект для подключения команду (Add Comand).

26. Произведем настройки для Command1. В свойствах объекта выберите для Database Object: Table, а в Object Name введите имя таблицы spisok.

27. В дереве DataEnvironment появятся поля таблицы spisok.

28. Создадим второй отчет «Список учащихся», в свойствах отчета укажите: для DataSource выберите из списка имя DataEnvironment1, в DatMember – Command1.

29. Правила формирования надписей такие же, как и в предыдущем отчете. Отличие заключается только при установке свойств текстовых полей: в DataMember выберите из списка имя Command1, после чего в свойстве DataField появится список полей таблицы spisok. Выберите нужное Вам поле.

30. Оформите внешний вид отчета (на своё усмотрение), после чего перейдите в модуль формы frmSpisok и назначьте меню вызова отчета процедуру по отображению отчета:

Private Sub mnuRepSp_Click()

Дата добавления: 2014-12-27