Импорт из Access

[Alex_1024]

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

 

[Elena Nefedova]

Ну вот это я где-то давно нарыла (может, даже и в документации)

 ' Просто коннектимся
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

Это тоже тестировала - работало в шестерке (сейчас этот источник убит - проверить не на чем)

  ' Получаем данные из источника после подключения
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, например.. (см. отдельную документацию по нему)

 

[Alex_1024]

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