VPF::Данные из 2-х таблиц в одну. - Форум программистов

ArtNeoX

Дата 19.2.2006, 06:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 23.10.2005

Репутация: нет
Всего: нет

Есть 2 таблицы
Как данные из 2-х таблиц отобразить в одной.

код для открытия данных в 1 таблице:

Код


Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=Files\Base.mdb;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select X01,X02,X03,X04,X05 from Таблица1", db, adOpenStatic, adLockOptimistic
Set grdDataGrid.DataSource = adoPrimaryRS
Set adoRecordset = adoPrimaryRS
mbDataChanged = False
End Sub

код для открытия данных во 2-й таблице:

Код


Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=Files\Base.mdb;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select X01,X02,X03,X04,X05 from Таблица2", db, adOpenStatic, adLockOptimistic
Set grdDataGrid.DataSource = adoPrimaryRS
Set adoRecordset = adoPrimaryRS
mbDataChanged = False
End Sub

как будет выглядеть код, для 3-й таблицы в которой будут отображаться данные из 1 и 2 таблиц.

boevik

Дата 19.2.2006, 09:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35

А если select подправить?

Код


adoPrimaryRS.Open "select X01,X02,X03,X04,X05 from Таблица1 union all select X01,X02,X03,X04,X05 from Таблица2", db, adOpenStatic, adLockOptimistic

--------------------

Никогда не говори никогда

ArtNeoX

Дата 19.2.2006, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 23.10.2005

Репутация: нет
Всего: нет

А если одинаковые данные находятся в столбцах с разными именами и нужно после sql запроса отсортировать данные из первой таблицы по одним колонкам, а данные из второй таблицы по другим.

sqlName = "SELECT * FROM Таблица1 ORDER BY X16,X17 ASC union all SELECT * FROM Таблица2 ORDER BY X13,X14 ASC"

boevik

Дата 20.2.2006, 08:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35

Дорогой. определись что тебя надо.
Или представить две таблицы как одну или показывать две разные.
Если как одна, то как можно одну часть таблицы по одним полям, а другую по другим?

--------------------

Никогда не говори никогда

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »