VBNet - Форум - DataReport как отследить заполнение отчета?

Вопрос: DataReport как отследить заполнение отчета? Добавлено: 20.03.10 15:53

Автор вопроса: LUCKY | ICQ: 408-329-744

Доброго времени суток. В коде VB6, который подключается к базе данных MS Access из трех таблиц: объекты, события, расшифровка событий. Нужно сделать отчет по событиям за период. Проблема в том, что в таблицу событий входят не сами события, а их коды, соответственно необходимо во время создания отчета заменять коды на расшифровки.

       Dim Conn1 As New ADODB.Connection
       Dim Rs1 As New ADODB.Recordset
       Dim i As Integer
       Dim AccessConnect As String

       AccessConnect = "Driver={Microsoft Access Driver (*.mdb)};" & _
                     "Dbq=vbdata.mdb;" & _
                     "DefaultDir=" & Mid(App.Path, 1, 3) & ";" & _
                     "Uid=;Pwd=;"



       Conn1.Open AccessConnect
       Set DataReport1.DataSource = Conn1.Execute("SELECT * FROM events ORDER BY DevID")

      DataReport1.Show

Есть в DataReport1 поле, код события , в этой же БД есть таблица расшифровки событий из двух полей - код, описание; как в отчете заменить поле кода событие на его описание?
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: LUCKY ICQ: 408-329-744 Вопросов: 1 Ответов: 2	Профиль \| \| #1	Добавлено: 20.03.10 16:32
	Или другой вариант подскажите как вызвать отчет из базы Access с параметрами? Ответить

Номер ответа: 2 Автор ответа: LUCKY ICQ: 408-329-744 Вопросов: 1 Ответов: 2	Профиль \| \| #2	Добавлено: 20.03.10 17:59
	Так я нашел как заменить на описание. Set DataReport1.DataSource = Conn1.Execute("SELECT * FROM events, log WHERE events.LogID = log.LogID") В отчет соответственно добавил поле description. Теперь вопрос в другом: в некоторых описаниях есть параметры, например событие 0(log.logID) описание(log.description) устройство N включилось на M секунд. В таблице событий (events) эти N, M есть. Хотелось бы чтобы при построении отчета вносились в текст описания(log.description) эти N(events.N) и M(events.M). Как такое сделать? Ответить

Страница: 1 |