Страница: 1 |
Страница: 1 |
Вопрос: И снова бородатый вопрос ((
Добавлено: 19.05.05 08:18
Автор вопроса: CubeRoot | ICQ: 152818444
Доброго времени суток, дамы и господа
У меня не получается заполнить грид из нижеуказанного кода
В чем может быть ошибка ?
Set cnMain = New Connection
cnMain.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\dbTMP.mdb"
Dim strSQl As String
Set rsMain = New Recordset
strSQl = "Select name from cargo"
rsMain.Open strSQl, cnMain, adOpenKeyset
DataGrid1.AllowAddNew = True
Set DataGrid1.DataSource = rsMain
и вот далее
DataGrid1.Rebind - выдает ошибку
DataGrid1.RefResh - ничего не происходит
Грид пустой. Может нужно проверить какие-то свойства или установить какие либо свойства ?
Заранее THX
Ответы
Всего ответов: 4
Номер ответа: 1
Автор ответа:
GSerg
Вопросов: 0
Ответов: 1876
Профиль | | #1
Добавлено: 19.05.05 10:08
Перед открытием поставь гриду клиентский курсор.
Номер ответа: 2
Автор ответа:
GSerg
Вопросов: 0
Ответов: 1876
Профиль | | #2
Добавлено: 19.05.05 10:08
То есть рекордсету, конечно.
Номер ответа: 3
Автор ответа:
CubeRoot
ICQ: 152818444
Вопросов: 2
Ответов: 3
Профиль | | #3
Добавлено: 19.05.05 12:27
а у меня какой стоит ?
если такая строка ?
rsMain.Open strSQl, cnMain, adOpenKeyset
Номер ответа: 4
Автор ответа:
CubeRoot
ICQ: 152818444
Вопросов: 2
Ответов: 3
Профиль | | #4
Добавлено: 19.05.05 12:29
ок - все спасибо -- разобрался
перед открытием соединения нужно было поставит строчку
cnMain.CursorLocation = adUseClient
Вопрос снят