MSFlexGrid & SQL

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
Dummiel
Бывалый
Бывалый
 
Сообщения: 235
Зарегистрирован: 11.06.2004 (Пт) 9:15
Откуда: Алтай

MSFlexGrid & SQL

Сообщение Dummiel » 18.02.2006 (Сб) 8:32

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

Когда я работал с 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
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 924
Зарегистрирован: 29.04.2005 (Пт) 17:38

Сообщение Kovu » 18.02.2006 (Сб) 12:20

Dummiel

Data1.RecordSource = SQLquery
MsFlexGrid1.DataSource = Data1

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

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 18.02.2006 (Сб) 19:52

Код: Выделить всё
SQLquery = "SELECT Fam as [Я хочу], Name as [чтобы было], Otch as [только так] FROM People"

Ennor
Конструктивный критик
Конструктивный критик
 
Сообщения: 2504
Зарегистрирован: 18.12.2001 (Вт) 3:58
Откуда: Калуга -> Москва

Сообщение Ennor » 19.02.2006 (Вс) 1:17

Код: Выделить всё
' 2:
.ColWidth(<colindex>) = <width in twips>

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

Dummiel
Бывалый
Бывалый
 
Сообщения: 235
Зарегистрирован: 11.06.2004 (Пт) 9:15
Откуда: Алтай

Сообщение Dummiel » 22.02.2006 (Ср) 14:20

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


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

    TopList  
cron