Создание отчета с одной (конкретной) записи.

Народ, всю голову сломала, ничего не понимаю. Если вопрос идиотский, хоть скажите где про это почитать.

Из формы на которой есть аdodc выводим отчет:

Set DataReport1.DataSource = forma.Adodc1
DataReport1.Show

Все замечательно, НО! в отчете мне нужна только одна запись! текущая. Это раз.
Допустим в качестве ресурса datareport поставлю SQL-запрос, который ограничит выборку из таблицы одной записью,

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

пожаааааалуйста....

Надо написать соотвествующий запрос SQL, который связывает таблицы по ключевым полям и выводит нужные тебе. Смотреть надо информацию по языку SQL для начала оператор SELECT.
Удачи.

0

Мои приветствия, Margo
Как я понял тебе нада, чтобы на одной странице выводилось только одно значение из таблицы.
Значит так:
Репорт с самого начала разбит на три части

1. Report Header
Это выводится только один раз в начале репорта.
2. Page Header
Это выводится на каждой странице
3. Details
Это может выводится несколько раз на одной странице.

Соостетственно если тебе нада одна запись на странице ты размещаешь соответствующие ReportTextBox в секции PageHeader
а секцию Details не инициализируешь.

Но! Таким образом ты получишь столько листов репорта, сколько записей возвращает SQL
Если тебе нужен один единственный лист - соответствеенно SQL должен возвращать именно его.

К счастью я не знаю всей специфики работы с ADODC и тебе не советую на нем зацикливаться. Лучше использовать ядро ADODC - ADODB Recordset.
Если ты используешь ADODC контрол в качестве визуального контрола, с пом. которого ЮЗВЕРЬ может переходить от записи к записи, тогда еще куда ни шло. Но если ты его длаешь не видимым (признайся так или не так?) тогда данная технология является не рациональной.

На счет получения значения записи по коду нет ничего проще
SELECT tbl_value.value, tbl_code.* FROM tbl_code,tbl_value WHERE tbl_value.id = tbl_code.value_id

Пиши!

С уважением
Nick Staves

0

Огромное спасибо всем. Спасли. Кажется получается, только вот запрос будет уж очень громоздкий...

to NickStaves:
Adodc нужен именно для юзверя. И мне нужна именно только одна запись и не больше, и я поняла, что ограничить можно SQL-запросом.

Только вот глядя на запрос, который у меня получается приходит мне в голову такая идея - ведь юзверь в форме получает все значения, которые ему нужны в отчете, ни больше ни меньше. Нельзя ли просто сформировать независимый recordset или просто массив значений формы, а потом расположить их в запросе??... и если да, то как это сделать...

Конечно можна!

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open sSQL, YourConnection, adOpenStatic, adLockReadOnly
Set DataReport1.DataSource = rs
DataReport1.Show vbModal
Set rs = Nothing

sSQL - твой SQL ( as String)
YourConnection - коннесшен к твоей базе.
Его можно получить:
Dim YourConnection as ADODB.Connection
Set YourConnection = New ADODB.Connection
YourConnection.Open ConnectionString

...

set YourConnection = nothing

ConnectionString - Коннекшен стринг к твоей базе. Его проще всего получить из ADODC контрола. Нажми Custom в пропертях контрола и на против TextBox 'Use Conneciton String' нажми Build (да ты наверно уже это делала) - получившееся подставляешь в качестве ConnectionString

Теперь на счет DataReport1.Show vbModal
vbModal - это только для того, чтобы потом благополучно сделать

Set rs = Nothing
Set YourConnection = nothing

Если модальный репорт тебя не устраивает нада выносить Rs & YourConnection в локальные переменные формы (или класса). И хоть когда нибудь делать (например Form_Unload)

Set rs = Nothing
Set YourConnection = nothing

Пиши!

С уважением
Nick Staves

0

Не, это получается та же фича, вид сбоку. Для rs ресурсом является тот же громоздкий SQL-запрос, который мне не хочется использовать. А можно ли этот рекордсет составить вручную:
что-то вроде:

rs!field1 = forma.textbox1.text
и т.д.

а потом уже
Set DataReport1.DataSource = rs
???

Пардон ... в начале не понял.

Конечно можна.
Только при открытии рекордсета ничего не указывать

set rs = New ADODB.Recordset

rs.Open

rs.AddNew
rs!FieldName1 = 'Filed1'
rs!FieldName2 = 'Filed2'
...
rs!FieldNameN = 'FiledN'

Set DataReport1.DataSource = Rs

Вот... только перед этим еще раз подумай, может легче будет еще раз вытащить из базы по специфическому запросу.
Практика показывает, что ручное натаскивание рекордсета - операция ОООЧЕНЬ медленная.

Пиши

С уважением
Nick Staves

0

а вот так я уже пыталась. Ругается. На rs.open говорит: the connection cannot be used to perform this operation. it is either closed or unvalid in this contecst. Насколько я понимаю, ему нужно этот рекордсет все-таки с чем-нибудь связать. так?

... А ты ему язык покажи и сделай так:

Set rs = New ADODB.Recordset
rs.Fields.Append 'Field1',adVarChar,20
rs.Fields.Append 'Field1',adVarChar,20
...
rs.Fields.Append 'Fieldn',adVarChar,20

rs.Open

что он на это сжажет ?

0

ПОЛУЧИЛОСЬ!!! )) Спасибо огромадное!!!

C 8 марта!
Люби и будь любимой!

Best regards
Nick Staves

P.S.
Сорри, то так поздно

0

Cпасибо )))))