Импорт из Access

Тема в разделе "Lotus - Программирование", создана пользователем Alex_1024, 14 июн 2006.

Статус темы:
Закрыта.
  1. Alex_1024

    Alex_1024 Гость

    Всем привет!
    Попытался сделать импорт из Access, но чёт не работает. Не коннектит базу в самом начале, - метод OpenCurrentDatabase выдаёт ошибку.
    Можно конечно в Excel импорт сделать, а потом xls импортировать в Lotus (хотя пока тоже не пробовал - в теории пока), но хотелось бы знать как импортировать напрямую из Access.
    На тему импорта из Excel много примеров есть на сайте, но на Access нет к сожалению.
    Импорт пытаюсь делать через COM. ODBC пока не применял - пока не особо знаком если честно.
    Если у кого есть реальные примеры кода по теме, хелп плиз.
     
  2. Elena Nefedova

    Elena Nefedova Гость

    Ну вот это я где-то давно нарыла (может, даже и в документации)
    Код (Text):
     ' Просто коннектимся
    Dim con As New ODBCConnection
    con.ConnectTo(Inputbox("ODBC data source name", "DSN"))
    While Not con.IsConnected
    dsn = Inputbox("ODBC data source name", _
    "Connection not made ...")
    If dsn = "" Then Exit Sub
    con.ConnectTo(dsn)
    Wend
    Messagebox "Connected to " & con.DataSourceName,, _
    "Connection made ..."
    con.Disconnect
    Это тоже тестировала - работало в шестерке (сейчас этот источник убит - проверить не на чем)
    Код (Text):
      ' Получаем данные из источника после подключения
    Dim icID As String
    Dim icText As String
    Dim msg As String
    con.ConnectTo(Inputbox("ODBC data source name", "DSN"))
    qry.SQL = "SELECT * FROM NH_INFO1"
    result.Execute
    If result.IsResultSetAvailable Then
    msg = "Data:" & Chr(10)
    Do
    result.NextRow
    firstName = result.GetValue("INFO_ID", icID)
    lastName = result.GetValue("INFO_TEXT", icText)
    msg = msg & Chr(10) & icID & " " & icText
    Loop Until result.IsEndOfData
    Messagebox msg,, "Data"
    result.Close(DB_CLOSE)
    Else
    Messagebox "Cannot get result set"
    Exit Sub
    End If
    con.Disconnect
    Кроме ODBC есть и другие методы - Lotus Connection, например.. (см. отдельную документацию по нему)
     
  3. Alex_1024

    Alex_1024 Гость

    Спасибо за помощь :) Вобщем вроде разобрался. Правда через COM из самого Access не получилось - настолько у него криво VB описан в хелпе - я так и не нашёл свойств для работы с таблицами.
    В запасе на всякий случай были другие методы.
    А через ODBC разобрался как работать, но! Сколько же там косяков понаходил! Всё новые глюки узнаю и не перестаю удивляться - потому что дальше больше - такие подставы для программеров!
    :unsure:
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей