powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Datareport and несколько таблиц
25 сообщений из 45, страница 1 из 2
Datareport and несколько таблиц
    #34070278
SlySv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подскажите плиз, как вывести в один отчет данные из нескольких не связанных таблиц
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34072417
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
что из себя представляет отчёт
на чём написан

откуда идут данные

в ADO.Recordset есть метод NextRecordSet(возвращает следующий Recordset )
если например в sql получать несколько несвязных select-ов
то перебором NextRecordSet можно их все получить
использовать еще обьект/ы
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34072977
SlySv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 несвязанные таблицы (перечень опор и проводов ),
в одном datareporte отобразить эти перечни (опор и проводов) можно ли это сделать?
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34073654
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
если всё-таки попытаться связать данные из этих таблиц
то можно создать свой иерархический рекордсет
и его можно запихнуть в один DataReport в VB6
данные в виде иерархии

иначе не уверен что это возможно
или создать свой контроль
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34073829
SlySv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
datareport для иерархического sql получается, если в иерархии 1 подзапрос .... а если 2 то не получается
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34073839
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
не
я имел ввиду свой иерархический рекордсет
заполнение данных происходит в ручную
и в принципе ограничение на уровни нет
возможно долгая работа

я в своё время сделал такой рапорт на 8 уровней
но данные были связанны между собой
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34073937
SlySv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
можно примера, если не трудно, у меня что-то не получается
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34073976
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Щас
надо найти
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34074025
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
тут 4 уровня иерархии
данные для примера
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34074066
SlySv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
огромное спасибо, сейчас разберусь
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34074392
SlySv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
не получается на 2 уровне два SQL запроса .... и второй не видет

de2.S_KOM_Pr SelLEPDispNum, Trim$(F_LEP6.MSHFlexGrid2.Text)

Set rs1 = de2.rsS_KOM_Pr.Clone
de2.rsS_KOM_Pr.Close

Set rsCh1 = rs1.Fields(2).value
Set rsCh2 = rs1.Fields(3).value

Set DataReportPassp.DataSource = rs1

DataReportPassp.Sections("Section1").Controls("T1").DataMember = "Sel_OPOR"
DataReportPassp.Sections("Section1").Controls("T1").DataField = rsCh1.Fields.Item(4).NAME
DataReportPassp.Sections("Section1").Controls("T2").DataMember = "Sel_OPOR"
DataReportPassp.Sections("Section1").Controls("T2").DataField = rsCh1.Fields.Item(3).NAME

эту часть не видет
DataReportPassp.Sections("Section1").Controls("T3").DataMember = "Sel_TRAV"
DataReportPassp.Sections("Section1").Controls("T3").DataField = rsCh2.Fields.Item(4).NAME
DataReportPassp.Sections("Section1").Controls("T4").DataMember = "Sel_TRAV"
DataReportPassp.Sections("Section1").Controls("T4").DataField = rsCh2.Fields.Item(3).NAME
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34074825
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Давай завтра посмотрим
что нужно сделать
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34074883
SlySv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ok
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34076499
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я сейчас попробую создать такой рекордсет из базы ......
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34076717
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SlySv

я сделал но нужно обьяснить

ты готов(а) принять истину ??
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34076752
SlySv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
да готова
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34076756
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
сейчас напишу подробно
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34076816
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
если в нашем примере нет связи между таблицами
то мы создаём фиктивную связь
в двух таблицах добавляем поля Link
в таблицу 1 значение '0' в таблицу 2 значение '*' (условно)
нам нужно в отчёте показать сначало все значения из таблицы 1
а потом из в таблицы 2
то есть связать нужно только последную запись из в таблицы 1
со всеми значениями из таблицы 2

в VB получаем в рекордсет через Shema-запрос получаем значения
и для последней записи в верхнем рекордсете меняем значение в поле Link на *
рекордсет отключенный


DataMember=С
я так определил в запросе

база у меня в SQL 2000
может придется менять ConnectionString для подключения для других баз

структрура таблиц
A1
id text Link
1 A1 0
2 A2 0
3 A3 0
4 A4 0
5 A5 0


A2
id2 text2 Link
1 B1 *
2 B2 *
3 B3 *
4 B4 *
5 B5 *
6 B6 *




получилось немного сложно
но зато 2 не связанные таблицы в один рапорт

Прошу прощения за мой русский язык
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34076825
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
забыл пример
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34076850
SlySv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
>в VB получаем в рекордсет через Shema-запрос получаем значения
>и для последней записи в верхнем рекордсете меняем значение в поле Link на *
>рекордсет отключенный



эта часть непонятно
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34076874
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Str = "SHAPE {SELECT * from A1 } AS A " _
& " APPEND ({ SELECT * from A2 } as B " _
& " RELATE Link to Link ) as C "

это запрос с использованием SHAPE

rs1.ActiveConnection = Cn
rs1.CursorLocation = adUseClient
rs1.CursorType = adOpenDynamic
rs1.LockType = adLockOptimistic
rs1.Source = Str
rs1.Open

открыть рекордсет

Set rs1.ActiveConnection = Nothing
отключить рекордсет от базы данных

rs1.MoveLast
последняя запись

rs1("link").Value = "*"
поменять значение последней записи и
тем самым создать связь со второй таблицей

rs1.Update
сохранить изменения
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34076939
SlySv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
есть таблица S_TAB1....есть еще 2 таблицы S_TAB2 и S_TAB3 эти две таблицы связаны с таблицой S_TAB1 (двумя полями) ....те иерархаический recordset....вот и в datareport таблица S_TAB2 печатается а S_TAB3 нет (не находит)
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34076958
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
S_TAB2 и S_TAB3 на одном уровне иерархии ??
Они должны быть в одном запросе ???
идея моя подходит ??
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34076970
SlySv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
S_TAB2 и S_TAB3 на одном уровне иерархии...в одном запросе S_TAB1
...
Рейтинг: 0 / 0
Datareport and несколько таблиц
    #34077007
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
не

я имел ввиду
1 уровень S_TAB1
2 уровень S_TAB2 и S_TAB3
или как то по другому

может второй запрос переписать так чтобы использовалось 2 таблицы
в одном запросе ??
...
Рейтинг: 0 / 0
25 сообщений из 45, страница 1 из 2
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Datareport and несколько таблиц
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]