Страница: 1 |
ну канешна есть, а то нафика нужон был бы такой грид ) Set YourGrid.DataSource = YourRecordset Одно уточнение: CursortType рекордсета дожен быть типа Static (adOpenStatic) или Keyset (adOpenKeyset), с другими типами курсора выдает ошибку да как сказать, пробовал или нет ... у меня три три реальных приложений крутятся на вб писанные и везде в датагриде заполнение его выполняется именно так. Вот реальный код, для примера: ' Заполнение грида данными End Sub cnn - текущее соединение с mssql базой Страница: 1 |
Вопрос: 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
Номер ответа: 2
Автор ответа:
boevik
Хранитель чата
ICQ: 137392264
Вопросов: 8
Ответов: 557
Web-сайт:
Профиль | | #2
Добавлено: 26.10.03 09:40
Номер ответа: 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