Грид и 3 рекордсета

[lord0n]

Собственно вопрос:
можно ли в грид впихнуть 3 рекордсета.
то есть чтобы сначало шли данные из первого, потом из второго и т. д.
а то вот так не получается:

Код: Выделить всё


rs1.open ...............................
set grd.datasourse = rs1

rs2.open ...............................
set grd.datasourse = rs2

rs3.open ...............................
set grd.datasourse = rs3


грид обнуляется и вносит данные из нового rs

[GSerg]

Код: Выделить всё

SELECT * FROM Table1 WHERE a=1
UNION ALL
SELECT * FROM Table2 WHERE b=2
UNION ALL
SELECT * FROM Table3 WHERE c=3

[lord0n]

Код: Выделить всё

SELECT * FROM Table1 WHERE a=1
UNION ALL
SELECT * FROM Table2 WHERE b=2
UNION ALL
SELECT * FROM Table3 WHERE c=3

я бы конечно тоже так сделал и незадавал глупых вопросов
НО - каждая таблица находится в разной базе

[Konst_One]

так прилинкуй эти базы и сделай через юнион, как тебе сказали

[lord0n]

а вот про линковку первый раз слышу
как это сделать?

[GSerg]

Почему я нашёл это в поиске за 10 секунд?
http://bbs.vbstreets.ru/viewtopic.php?p=144094#144094

[lord0n]

Почему я нашёл это в поиске за 10 секунд?
http://bbs.vbstreets.ru/viewtopic.php?p=144094#144094

еще раз повторюсь: потаму чта ты искал

[lord0n]

Почему я нашёл это в поиске за 10 секунд?
http://bbs.vbstreets.ru/viewtopic.php?p=144094#144094

прочитал топик и мсдн
либо я тупой, лоба чет не понимаю

Код: Выделить всё


Set db = New ADODB.Connection
Set RS = New ADODB.Recordset
Set db1 = New ADODB.Connection
Set RS1 = New ADODB.Recordset

db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Appath & "Hranenie.mdb;Mode=Share Deny None;"

RS.Open "select Дата, №_поставки, Артикул, Наименование, Количество, Партия, Срок_годности, Блокировка, Адрес_места, №_паллеты from Hran where Артикул = '" & txtArt.Text & "' Order by Дата", db, adOpenDynamic, adLockOptimistic

db1.CursorLocation = adUseClient
db1.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Appath & "Vidacha.mdb;Mode=Share Deny None;"

RS1.Open "select Дата, №_Заказа, Артикул, Наименование, Количество, Партия, Адрес_места, №_паллеты from Vidacha where Артикул = '" & txtArt.Text & "' Order by Дата", db1, adOpenDynamic, adLockOptimistic

RSc.Tables.Append RS

grdPrix.Clear
Set grdPrix.DataSource = RSc
db.Close


[coderx]

Код: Выделить всё

set grd.datasourse = rs1

Ты использовал методу Refresh для grd после этых установках? Если не обновляеш grd, тогда он останеться прежным свойствам ...

[GSerg]

Ничего подобного.

Просто, действительно, lord0n, ты чё-то не понимаешь...

[lord0n]

а нет ли какойни простой функции

типа append rs1 and rs2

[GSerg]

Нет, есть UNION...

[lord0n]

юнион катит если таблицы находятся в одном файле
а у меня в двух

[alibek]

Тебе уже сказали, линкуешь таблицы и объединяешь UNION-ом.
Если хочется геморроя, то можешь комбинировать их вручную в отвязанный рекордсет.

[lord0n]

Тебе уже сказали, линкуешь таблицы и объединяешь UNION-ом.
Если хочется геморроя, то можешь комбинировать их вручную в отвязанный рекордсет.

вот я и немогу разобраться с линковкой

[alibek]

Тебе же дали ссылки.
тут через ADO, тут через ADOX.