VPF::DataGrid - Форум программистов

CjVirys

Дата 4.8.2003, 13:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 4.8.2003

Репутация: нет
Всего: нет

Как работать с датагридом

nicka

Дата 4.8.2003, 15:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 378
Регистрация: 11.6.2003

Репутация: нет
Всего: 1

Это в Visual Basic?

-Mikle-

Дата 4.8.2003, 15:47 (ссылка)

(нет голосов)

Загрузка ...

Невидимка Vingrad'а

Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59

rs.open "SELECT..."

Set DataGrid.DataSource = rs

--------------------

Если тебе плюют в спину, значит ты впереди...

GUI

Дата 19.11.2003, 13:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 4.6.2003

Репутация: нет
Всего: нет

Попробуйте в Form -- Load подставить этот код....

Код


' - соэдинения -
Private cnSaRoad As ADODB.Connection
' - Таблицы/запросы -
Private WithEvents rsSprSotr As ADODB.Recordset
'Public WithEvents rsSprSotr As ADODB.Recordset  ' должно быть видно во всех пр-мах
Private WithEvents rsSprOtd As ADODB.Recordset

' ---- описание Access базы --------------------------------------
' *    strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" _
' *                & "Data Source=" & MyDir_M & "\Ekzamen.mdb;" _
' *                & "Mode=ReadWrite;" _
' *                & "Persist Security Info=False"
' ---- -----------------------------------------------------------
' ---- описание SQL Server 2000 базы --------------------------------------
    strConnect = "Provider=SQLOLEDB.1;" _
                & "Integrated Security=SSPI;" _
                & "Persist Security Info=False;" _
                & "Initial Catalog=SaRoad;" _
                & "Data Source= SQL_Server" 

' в SQL сервере    - SQL_Server 
' есть база            - SaRoad  
' а в ней таблица  - SprSotr ...
' ---- -----------------------------------------------------------
                
    ' - создаем объект Connection -
    Set cnSaRoad = New ADODB.Connection
    
    ' - открываем новое соединение -
    On Error GoTo ErrorHandler  ' Если произойдет ОШИБКА при открытии
    cnSaRoad.Open strConnect, "sa", ""
    On Error GoTo 0             ' Остальные ошибки обрабатывать стандартно
    
    
    ' - создаем объект Recordset - Объекты ------------------
'    Set rsObekt_1 = New ADODB.Recordset
    Set rsSprOtd = New ADODB.Recordset
    ' - настраиваем свойства CursorType, LockType CursorLocation
    rsSprOtd.CursorType = adOpenDynamic
    rsSprOtd .LockType = adLockOptimistic   ' чтение / запись
    'rsSprOtd .LockType = adLockReadOnly     ' чтение
    rsSprOtd .CursorLocation = adUseClient  ' курсор на клиентской части
    
    ' - открываем СПИСОК ОБЪЕКТОВ ---
    '   и извлекаем нужные записи
'    rsObekt .Open "Select * from Obekt", cnSaRoad
    rsSprOtd.Open "Select * from SprOtd", cnSaRoad
    
    ' заполняем Grid таблицу данными из -- SprOtd --
    Set DataGridSprOtd.DataSource = rsSprOtd

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »