Recordset получает одну запись, хотя со де ржит несколько.

Подключяюсь к БД Access через ADO
Посылаю запрос и получаю объект RecordSet
Этот Recordset Связываю с MsFlexGrid, но получаю
одну запись
Сам RecordSet содержит несколько
Может кто знает, в чем дело ПЛЗ сообщите
Если делать подключение через контрол ADOData, а потом подключать к MSFlexGrid, то выводит все записи

0

Вот пример, который использую я. Здесь открывается БД MS Access Parts.mdb и в ней таблица tblParts.
Проверь подключение Reference к Ms ActiveX Data Objects 2.x Library

Dim DbFile As String '' Имя БД
Dim cn as ADODB.Connection '' Соединение ADO Data Type
Dim rs as ADODB.Recordset '' Набор записей
Dim SQLstmt as String '' Запрос SQL

Private Sub Form_Load()

Open_cn
Call ShowFlexGrid

End Sub

Private Sub Open_cn ()

'' Открываем БД
DbFile = App.Path & 'Parts.mdb'

'' Устанавливаем соединение
Set cn= New ADODB.Connection
cn.CursorLocation = adUseClient
cn.ConnectionString = _
'Provider=Microsoft.Jet.OLEDB.4.0;' & _
'Data Source=' & DbFile & ';' & _
'Persist Security Info=False'

'' Открываем соединение
cn.Open

SQLstmt = 'SELECT * FROM [tblParts]'

'' Получаем записи
Set rs = New ADODB.Recordset
rs.Open SQLstmt, cn, adOpenStatic, adLockOptimistic, _
adCmdText

End Sub

Private Sub Close_cn ()

cn.Close
Set cn = Nothing

End Sub

Private Sub ShowFlexGrid()

Dim c as Integer
Dim flxgd_row as Integer
Dim field_wid as Integer

'' Настройки MSFlexGrid
MSFlexGrid1.Rows = 2
MSFlexGrid1.FixedRows = 1
MSFlexGrid1.FixedCols = 0

MSFlexGrid1.Rows = 1
MSFlexGrid1.Cols = rs.Fields.Count
ReDim col_wid(0 To rs.Fields.Count - 1)

For c = 0 to (rs.Fields.Count - 1)
MSFlexGrid1.TextMatrix(0, c) = rs.Fields(c).Name
col_wid(c) = TextWidth(rs.Fields(c).Name)
Next c

flxgd_row = 1

Do While Not rs.EOF
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

For c = 0 To (rs.Fields.Count - 1)

MSFlexGrid1.TextMatrix(flxgd_row, c) = _
Format(rs.Fields(c).Value, '. ')

field_wid = TextWidth(rs.Fields(c).Value)
If col_wid(c) < field_wid Then col_wid(c) = field_wid

Next c

rs.MoveNext
flxgd_row = flxgd_row + 1
Loop

End Sub

А вообще-то я где-то у мелкомягких прочел типа: 'если хочешь что-бы жило все автоматически - используй MS DataGrid Control' . Не говорю что это и есть истинна, но точно так-же заполняю MSFlexGrid, как показанно выше.

Если используется провайдер Jet.4.0, то я не удивлюсь. Сам я работаю с Jet.3.51 и у меня всё
заполняется, но в 4-том даже DataGrid не работает...

0

Я прописаваю в ЭУ MSFlexGrid.datasource=имя объекта recordset и все само заполняется, как в jet.4.0 так и в более ранних версиях а так же с sqloledb. Только нужно поиграться с типами курсора и блокировками. По-моему нужен adStatic или adKeySet и блокировка adBatchOptimistic.

Теперича насчет DataGrid. Весьма недурственный ЭУ. Мне нравится гораздо больше чем Флексы.
Только и работать с ним сложнее немного. Мне не удалость заставить его работать с объектом recordset ADO в качестве DataSource.
Пришлось сделать свой ЭУ ActiveX и присобачить его как datasource к ЭУ DataGrid. ТОгда стало гораздо проще работать.

С уважением, Serge Pod. Airbase =KRoN= ( http://airbase.uka.ru )

0

Нашел-таки способ работать с DataGrig только через объекты ADO.
Для того чтобы DataGrid воспринимал recordset как datasource нужно курсор рекордсета на сторону клиента. Тогда все ок.

0