Попробуйте в 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
|
|