VBNet - Форум - ADODC.Recordet->DataGrid

Вопрос: ADODC.Recordet->DataGrid Добавлено: 24.10.03 22:33

Автор вопроса: Svetlana | ICQ: 262385618

Есть ли способ заполнения DataGrid'a через ADODB.Recordset????
(P.S. Только не надо говорить про MSHFlexGrid. С ним всё понятно. )
Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

ulis

ICQ: 50807612

Вопросов: 0
Ответов: 10

Профиль | Цитата | #1

Добавлено: 26.10.03 07:27

ну канешна есть, а то нафика нужон был бы такой грид )

Set YourGrid.DataSource = YourRecordset

Ответить

Номер ответа: 2
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | Цитата | #2

Добавлено: 26.10.03 09:40

Одно уточнение:

CursortType рекордсета дожен быть типа Static (adOpenStatic) или Keyset (adOpenKeyset), с другими типами курсора выдает ошибку

Ответить

Номер ответа: 3 Автор ответа: Svetlana ICQ: 262385618 Вопросов: 43 Ответов: 205	Профиль \| Цитата \| #3	Добавлено: 26.10.03 16:13
	ulis , а ты сам-то пробовал???? вот у меня, например, не получалось так рекордсет присвоить... ... поэтому я и обращаюсь к народу... Ответить

Номер ответа: 4
Автор ответа:

ulis

ICQ: 50807612

Вопросов: 0
Ответов: 10

Профиль | Цитата | #4

Добавлено: 26.10.03 18:18

да как сказать, пробовал или нет ... у меня три три реальных приложений крутятся на вб писанные и везде в датагриде заполнение его выполняется именно так. Вот реальный код, для примера:

' Заполнение грида данными
Private Sub FillGrid()

    Dim rst As New ADODB.Recordset
    Dim strSQL As String

    strSQL = "SELECT ukn AS код,НазвПодр AS подразделение,КодКВД AS [код КВД] FROM tbcПодразделение"

    If rst.State = 1 Then
        rst.Close
        Set rst = Nothing
    End If

    rst.Open strSQL, cnn

    Set dtgПодразделение.DataSource = rst

    dtgПодразделение.Columns(0).Width = 500
    dtgПодразделение.Columns(1).Width = 2750
    dtgПодразделение.Columns(2).Width = 850

End Sub

cnn - текущее соединение с mssql базой

Ответить

Страница: 1 |