• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Odbcconnection

  • Автор темы gmp11
  • Дата начала
G

gmp11

Есть такой вот код
Код:
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim msg As String
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("max")
qry.SQL = "SELECT * FROM Acses ORDER BY OrderID"
result.Execute
Do
result.NextRow
OrderID= result.GetValue("Unit", OrderID)
msg = Chr(10) & OrderID

Loop Until result.IsEndOfData
result.Close(DB_CLOSE)
con.Disconnect
И он работает нормально, а вот когда con.ConnectTo("max") меняеш на con.ConnectTo("max",user,password) он обнаруживает ошибки в программе. Что же всётаки у меня не так?
 
G

gmp11

con.ConnectTo("max","user","password") это не переменные
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Хорошо. Тогда кто обнаруживает ошибки и какие?

И почитай в хелпе про "Call statement".
 
G

gmp11

Компилятор ошибки обнаруживает и пишит Illegal use of parentheses. А про Call statement щас прочту.

Код:
Хорошо. Тогда кто обнаруживает ошибки и какие?

И почитай в хелпе про "Call statement".
Отличный совет. Деиствительно надо было писать не con.ConnectTo("max","user","password"), а Call con.ConnectTo("max","user","password")
 
A

Akupaka

Компилятор ошибки обнаруживает и пишит Illegal use of parentheses. А про Call statement щас прочту.

Код:
Хорошо. Тогда кто обнаруживает ошибки и какие?

И почитай в хелпе про "Call statement".
Отличный совет. Деиствительно надо было писать не con.ConnectTo("max","user","password"), а Call con.ConnectTo("max","user","password")

Код:
Call con.ConnectTo("max","user","password")

ну, или

Код:
con.ConnectTo "max","user","password"
 
G

gmp11

И ещё один вопрос, если я этот код вписываю в агент, который будет запускатся по расписанию на сервере, то почемуто не происходит соединение с нужной мне бызой.
 
A

Akupaka

ну, а ошибки какие-то есть?..
на сервере настроен ODBC-источник?
какой-нить клиент с сервера может подключится к базе используя ODBC?..
 
K

K-Fire

Скорее всего ODBC sourse прописан как User DSN. Чтобы Домино его нашел надо прописывать в System DSN.
 
G

gmp11

Код:
ну, а ошибки какие-то есть?..
Этот агент должен выдёргивать данные из таблици SQL и создавать на их основе документы. В ручную если его запустить он работает, а по таймеру он создаёт только 1 документ и пишит во всех полях "False".
Код:
ну, а ошибки какие-то есть?..
на сервере настроен ODBC-источник?
какой-нить клиент с сервера может подключится к базе используя ODBC?..
ODBC настроен, и клиент с сервера прикрасно подключается к базе используя ODBC, а вот сам сервер не хотит :(
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Используй NotesLog для отслеживания ошибок.
 
G

gmp11

Код:
Скорее всего ODBC sourse прописан как User DSN. Чтобы Домино его нашел надо прописывать в System DSN.
Точно, так и было. Спосибо огромное
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!