MSFlexGrid & SQL

[Dummiel]

Интересный вопросец, други мои!

Когда я работал с MsFlexGrid ручками мозолистыми, т.е., выставлял все его свойства вручную,
у меня был большой код и не было головной боли. Сейчас связался с SQL (чтоб он жил вечно!),
код кардинально уменьшился, но появилась боль:

Делаю так:

Set MyDb = DAO.OpenDatabase(App.Path & "\db1.mdb")
Dim SQLquery As String
Data1.DatabaseName = App.Path & "\db1.mdb"

'Fam - фамилия, Name - Имя, Otch - отчество
SQLquery = "SELECT Fam, Name, Otch FROM People"

Data1.RecordSource = SQLquery
MsFlexGrid1.DataSource = Data1

Грид все выводит классно, но...

1. Как сделать, что бы в заголовке столбцов грида были не имена полей таблицы, а то, что я захочу?
2. Как сделать ширину столбцов не ту, что он дает, а ту, что я захочу?
3. Как программно выделить строки (или начальную ячейку строки) отвечающие определенным условиям,
цветом? Например, людей старше 30 и младше 50 лет?
4. Как в заголовке грида вывести "Дата рождения"? Обзываю поле - SQL начинает материться (пробел в названии).

Короче, можно ли менять пропертя-свойства грида после заполнения его по SQL-запросу?

[Kovu]

Dummiel

Data1.RecordSource = SQLquery
MsFlexGrid1.DataSource = Data1

Вот это вообще-то называется не вручную
Создай рекордсет по SQL запросу и ручками заполни грид.

[Konst_One]

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

SQLquery = "SELECT Fam as [Я хочу], Name as [чтобы было], Otch as [только так] FROM People"

[Ennor]

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

' 2:
.ColWidth(<colindex>) = <width in twips>

' 3:
.FillStyle = flexStyleRepeat
.Row = <rownum>
.RowSel = <rownum>
.Col = 0
.ColSel = .Cols - 1
.CellColor = vbCyan

[Dummiel]

Спасибо, други! Три ночи за ваше здоровье молиться буду!