X
xKlonx
Народ пытаюсь вытянуть некоторые данные из Excel в Лотус.Подключаюсь с помощью ODBC драйвера,в панель управления->администрирование ->Источники данных (ODBC) ->Пользовательский DSN добавляю настройки Microsoft Excel Driver(.xls).Пытаюсь приконектится:
result.Execute вылетает ошибка:
Может кто-то знает как правильно настроить драйвер?Заранее благодарен
Код:
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim Session As New NotesSession
Dim Db As NotesDatabase
Dim COView As NotesView
Dim CODoc As NotesDocument
Dim BillDirectionDoc As NotesDocument
Dim Row As Integer
Dim BillDirection As String
Set Db = Session.CurrentDatabase
Set COView = Db.GetView( "BillDirections:DirCode" )
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo( "STAT2" )
qry.SQL = "SELECT * FROM STAT2"
result.Execute
Do
result.NextRow
Row = Row + 1
.............................................
Может кто-то знает как правильно настроить драйвер?Заранее благодарен