G
gmp11
Есть такой вот код
И он работает нормально, а вот когда con.ConnectTo("max") меняеш на con.ConnectTo("max",user,password) он обнаруживает ошибки в программе. Что же всётаки у меня не так?
Код:
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