Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Set rstTD = mdb.OpenSchema(adSchemaIndexes ...А ДАЛЬШЕ КАК? / 3 сообщений из 3, страница 1 из 1
31.01.2006, 11:30:55
    #33512802
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Set rstTD = mdb.OpenSchema(adSchemaIndexes ...А ДАЛЬШЕ КАК?
Dim rstTD As ADODB.Recordset
Set rstTD = mdb.OpenSchema(adSchemaIndexes, ?????????????????)
...
Рейтинг: 0 / 0
31.01.2006, 11:54:11
    #33512906
Set rstTD = mdb.OpenSchema(adSchemaIndexes ...А ДАЛЬШЕ КАК?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Public Sub X()

    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
      & "Data Source=D:\My Databases\dbTest.mdb;" _
      & "Persist Security Info=False"
    
    Set rst = cnn.OpenSchema(adSchemaIndexes, _
         Array(Empty, Empty, Empty, Empty, "tblCustomers"))
    
    Do Until rst.EOF
        Debug.Print rst!INDEX_NAME
        rst.MoveNext
    Loop
    
    rst.Close
    Set rst = Nothing
    
    cnn.Close
    Set cnn = Nothing
End Sub
...
Рейтинг: 0 / 0
31.01.2006, 11:55:34
    #33512911
Set rstTD = mdb.OpenSchema(adSchemaIndexes ...А ДАЛЬШЕ КАК?
И вот еще статейка на всякий случай.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Set rstTD = mdb.OpenSchema(adSchemaIndexes ...А ДАЛЬШЕ КАК? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]