Связать recordset с MSHFlexGrid

[JumpingJack]

подскажите, плз, как связать MSHFlexGrid с имеющимся RecordSet'ом?

[Алексей К.]

Set Form1.MSHFlexGrid1.DataSource = rs
рекордсет - ADO-шный

[JumpingJack]

Делаю так:

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

   Set SendRs = New ADODB.Recordset
   SendRs.Fields.Append "Ind", adInteger, , adFldKeyColumn
   SendRs.Fields.Append "AppName", adVarChar, 200, adFldUpdatable
   SendRs.Fields.Append "AppVar", adInteger, , adFldUpdatable
   SendRs.Fields.Append "IdApp", adInteger

   SendRs.Open
   SendRs.AddNew "AppName", "test"
   SendRs.Close

   Set frmCreateApp2.MSHFlexGrid1.DataSource = SendRs


Пишет, что MSHFlexGrid не поддерживает этот тип данных..

[Алексей К.]

Ты снача заполняй грид, а потом закрывай рекордсет - и будет тебе счастье (Поменяй две последние строчки местами).

[JumpingJack]

Точно! Спасибо
А можно как-то сделать чтобы не все записи из рекордсета показывались? И как сделать в рекордсете индексное поле (чтоы автоматом заполнялось)?

И последний вопрос - SendRs.AddNew "AppName", "test" добавляет запись только в одно поле таблицы.. А как заполнить остальные??

[Алексей К.]

Для отбора записей используй проперть rs.filter, а если надо скрыть столбцы - то убирай их в гриде, насчет индексного поля точно не знаю можно ли через ADO, через ADOX вроде можно. Посмотри help по ADO и ADOX (смотря какая у тебя версия, у меня файл справки ado210.chm) - там примеры есть. Так же посмотри в разделе "Кирпичный завод" на этом форуме - создание структуры БД из кода, может там это есть.

[JumpingJack]

Ок, спасибо!
ТОлько остался вопрос - а как убирать поля в гриде?

[Алексей К.]

MSHFlexGrid1.ColWidth(номер_поля) = 0

[JumpingJack]

Надо было догадаться..
Еще вопрос - надо ли Set frmCreateApp2.MSHFlexGrid1.DataSource = SendRs делать всякий раз при добавлении новой записи в таблицу? Потому что просто MSHFlexGrid1.Refresh не помогает..

[Алексей К.]

раз источник записей изменился - значит надо делать, а если тебя это напрягает и часто приходится добавлять новые записи, то лучше используй другие гриды, например, DataGrid - также работает с рекордсетом, можно добалять записи в самом гриде.

[JumpingJack]

Надо именно этот грил использовать... а как в нем установить курсор на определенную ячейку??

[Алексей К.]

Как везде: мышкой или клавой...

[JumpingJack]

Не... эт понятно Я имел в виду программно!

[Konst_One]

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

grd.Row=i
grd.Col=j

так устроит

[JumpingJack]

Неа... не выбирается.. мне нужно, чтобы при добавлении строки курсор В ГРИДЕ устанавливался на превую запись..

[Konst_One]

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

grd.row=1
grd.col=0

после добавления своей строки.

[JumpingJack]

О, точно, спасибо, еще setfocus надо было делать)