notes用ODBC连SQL的时候怎么每次连都要跳出来登入对话框

[324pp]

http://sz.photo.store.qq.com/http_imgload.cgi?/rurl2=eeb9a83d14778e29864e6d3421963df4ffbf865c28001bffd566f36192de3fbe15dfc7da5bbcf69d99503db4f004b7b74522579c2bd80da06b2907f844923fd94b04e8ed66cd429cb209f99244bd8c52eaa49023


能不能把这个框去掉的
代码如下
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet

Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument

Dim item As NotesItem

On Error Goto errorHandler

Set db = s.CurrentDatabase

Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("OA")

qry.SQL = "SELECT * FROM oa"
result.Execute
result.FirstRow
oa=result.GetValue(2)
result.Close(DB_CLOSE)

[comeon188]

勾上"使用信任连接"试试！

[yangnotes]

可不可以把登陆的用户名与密码写到程式里去呢,这样每次系统不就可以自动用你设定的帐户登了吗,就不用手动输入了.

[lotus_guilty]

楼上说得对！把密码和用户名写到connectTo("数据源","用户名","密码")

[zhepro]

status = odbcConnection. ConnectTo( dataSourceName$ [ , userID$ [ , password$ ]] )帮助里面说的再清楚不过了

[Dominoxjcj]

Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Set con = New ODBCConnection
Set qry = New ODBCQuery
Set result = New ODBCResultSet

If Not con.ConnectTo("AccessKQ") Then 'AccessKQ 建的ODBC数据源名
Exit Sub
End If

Set qry.Connection = con
Set result.Query = qry