Проблема при подключении к БД

[nihil_]

Всем привет!

Возникает проблема при подключении к БД Oracle 8.1 ORA-06413. Все началось после перехода на Win-64. Использую офис-32 bit. Подскажите в чем проблема?

Спасибо.

Dim onetine As Integer

Sub gdet()
Dim CellValue As String, track_num As String
Dim NVstavka As Integer
Dim cn

Application.ScreenUpdating = False

DT = InputBox("Введите конечную и начальную дату для расчета в формате дд.мм.гггг, разделенные точкой с запятой")
BDate = Left(DT, InStr(DT, ";") - 1)
'MsgBox BDate
EDate = Right(DT, Len(DT) - InStr(DT, ";"))
'MsgBox EDate

Set cn = CreateObject("ADODB.Connection")
cn.Provider = "MSDAORA.1"
cn.ConnectionString = "User ID=sto;Password=service;Data Source=dbsto"
cn.Open '----------------------------ORA-06413!!!

Dim rs
Set rs = CreateObject("ADODB.Recordset")

'sqlstring = Sheets("SQL Statement").Range(Cells(2, 1).Address).Value

Dim SelfName As String, sqlstring As String

SelfName = "ReadModule"
Call ReadModule(SelfName, sqlstring)
sqlstring = Replace(sqlstring, "between '00.00.0000'", "between '" & BDate & "'")
sqlstring = Replace(sqlstring, "and '00.00.0000'", "and '" & EDate & "'")

'MsgBox sqlstring
rs.Open sqlstring, cn

    If rs.BOF = True And rs.EOF = True Then
    ' рекордсет пустой
        rs.Close
        MsgBox "Нічого не вибрано"
        GoTo endsub:
    Else
        NVstavka = 2
    
    While Not rs.EOF
       Range(Cells(NVstavka, 1).Address).Value = rs!Name
       Range(Cells(NVstavka, 2).Address).Value = rs!pay_date
       Range(Cells(NVstavka, 3).Address).Value = rs!Sum
       Range(Cells(NVstavka, 4).Address).Value = rs!descrip
       NVstavka = NVstavka + 1
       If NVstavka > 65000 Then
            MsgBox "Діапазон завеликий"
            GoTo endsub:
       End If
    Application.StatusBar = NVstavka - 1 & " Стрічок заповнено"

    rs.MoveNext
    Wend
    End If
    
rs.Close
cn.Close
'rs = Nothing
'cn = Nothing

endsub:
Application.ScreenUpdating = False
End Sub

[Stilet]

А через sqlplus и ODBC коннект есть?

[nihil_]

А через sqlplus и ODBC коннект есть?

Не пробовал. Можно пожалуйста пример, как это проверить?

[Stilet]

Ну насчет sqlplus почитай его команды, я не помню, а вот про ODBC:
Создай там подключение с провайдером Оракла. Укажи БД и хост и нажми кнопку Apply & Test. Если ошибки не вылезет значит подключение есть.
Опять таки давно не настраивал Оракл, посему подробностей настройки ODBC не скажу, но там совсем не сложно.

[AndVGri]

Доброе время суток
nihil_ скорее всего у вас не стоит 32-битный клиент Oracle