DataGrid как с ним бороться

[mnzol]

DataGRid я привязываю к Recordset

set dg.datasource = rs.datasource

После этого в DataGrid выводятся все поля из рекордсета, а если мне нужно их выводить не все или в другом порядке, то как это сделать. Установка DataField для колонок не помогает!

[alibek]

Код создания rs в студию.

[mnzol]

dim rs as new adodb.recordset

rs.CacheSize = 30
rs.CursorLocation = adUseClient

str1 = "select ..."
rs.Open str1, cn, adOpenKeyset, adLockOptimistic, adAsyncFetch

[alibek]

Самое нужное и не указал.
Чему равно str1?
Если "select * from ...", то замени на "select field1, field2, field3 from ...".

[Konst_One]

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

set dg.datasource = rs

[mnzol]

str1="SELECT Дата, [База].[Название СМИ] as NSmi, [База].[Тип СМИ] as TSmi, " & _
"[Название СМИ].[Наименование СМИ] as SmiName, [Приоритет].[Приоритет] as Prio, " & _
"[Наименование передачи] as N, Автор AS Au, Тема AS Th, [Время выхода] " & _
"FROM (База " & _
"left join [Название СМИ] " & _
"on [База].[Название СМИ] = [Название СМИ].[Код]) " & _
"left join [Приоритет] " & _
"on [База].[Приоритет]=[Приоритет].[Код] " & _
"WHERE " & stFilter & _
"ORDER BY Дата, [База].[Тип СМИ], [База].[Название СМИ]"

[GSerg]

Если ты предварительно настроил грид кодом, то перед установкой рекордсета источником вызови HoldFields.

[mnzol]

О, спасибо Шаман, а то я уж думал сервис пак 6 с сайта Microsoft скачать, а тут так просто !!!!