MSHFlexGrid and Dao

[Alex_2005]

Привет всем. Кто - нибудь может подсказать как автоматически заполнить MSHFlexGrid данными из DAO Recordset. С ADO проблем нет а вот с DAO только начал работать. Если лень написать( понятно , все мы люди) то если можно ссылку.
Спасибо.
P.S. в слове написать ударение на второе а

[Konst_One]

а зачем тебе DAO?

[Alex_2005]

Как зачем? При работе с Access скорость Dao значительно быстрее чем у Ado.

[GSerg]

Да? А мож-таки ручки?

[Alex_2005]

Ну так шож, буде сало, че ни?

[GSerg]

Сало - это ADO, причём уже в шоколаде

[Alex_2005]

Не, ну а если серьёзно, как мне заставить заполнятся таблицу автоматически, а то если каждой ячейке присваивать данные из базы данных то это очень долго длится. А почему именно DAO , так ведь в Германии всё наоборот, фирма, где я работаю работает с DAO.

[Konst_One]

попробуй заюзать свойство Clip у данного контрола.

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

Dim myStr As String
   myStr ="James" + Chr(9) + "Nancy" + Chr(9) + "Lisa"
   MSHFlexGrid1.Clip =myStr

[Konst_One]

чтобы понятней было:

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

Private Sub Form_Load()
Dim myStr As String

    With MSHFlexGrid1
        .ClearStructure
        .Clear
        .FixedRows = 1
        .FixedCols = 0
        .Rows = 10
        .Cols = 3
   
        .ColSel = 2
        .RowSel = 3

        myStr = "0" + vbTab + "00" + vbTab + "000"
        myStr = myStr & vbCr & "1" + vbTab + "11" + vbTab + "111"
        myStr = myStr & vbCr & "2" + vbTab + "22" + vbTab + "222"
        .Clip = myStr
   
        .Col = 0
        .Row = 1
    End With
   
End Sub

[Alex_2005]

А как насчёт DataSource ? В ADO например я мог сделать так
Set Grid.DataSource = AdoRs, но, с DAO такой номер не проходит, можно ли как то это с DAO осуществить?

[Konst_One]

MSDN:

Returns or sets a data source through which a data consumer is bound to a database.

Syntax

object.DataSource [=datasource]

The DataSource property syntax has these parts:

Part Description
object Anobject expression that evaluates to an object in the Applies To list.
datasource An object reference that qualifies as a data source, including ADO Recordset objects, and classes or user controls defined as data sources (DataSourceBehavior property = vbDataSource).


Remarks

Use the Set statement to set the DataSource property, as shown below:

Set DataGrid1.DataSource = ADODC1

Note Two older controls, the Data control and RemoteData control, can be used as data sources, however you cannot set the DataSource property of another control or object to either of these controls at run time. For example, the following code will fail:

Set Text1.DataSource = Data1 ' Will fail! You can't set DataSource at
' run time to an intrinsic Data control.

To use either the Data control or RemoteData control as a data source, you can set the DataSource property of bound controls at design time only.