Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: osmor
это не DAO
dao так
Set dbsCurrent = currentdb

    ' Создает временный объект QueryDef для загрузки
    ' данных из базы данных Microsoft SQL Server.
    Set qdfBestSellers = dbsCurrent.CreateQueryDef("")

With qdfBestSellers
        .Connect = "ODBC;DATABASE=pubs;UID=sa;PWD=;" & _
             "DSN=Publishers"
        .SQL = "SELECT title, title_id FROM titles " & _
            "ORDER BY ytd_sales DESC"
        Set rstTopSeller = .OpenRecordset()
        rstTopSeller.MoveFirst
    End With


или

' Создает объект Workspace Microsoft Jet.
    Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
    ' Открывает для монопольного доступа аргумент Database, 
    ' представляющий сохраненную базу данных Microsoft Jet.
    MsgBox "Открытие базы данных 'Борей'..."
    Set dbsNorthwind = wrkJet.OpenDatabase("Борей.mdb", _

True)
    ' Открывает только для чтения объект Database,
    ' используя строку подключения.
    MsgBox "Открытие базы данных 'Publishers'..."
    Set dbsPubs = wrkJet.OpenDatabase("Publishers", _
        dbDriverNoPrompt, True, _
        "ODBC;DATABASE=pubs;UID=sa;PWD=;DSN=Publishers")
    


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.