【发布时间】:2012-02-23 05:49:42
【问题描述】:
我正在创建一个必须具有动态组合框的 Lotus Notes 应用程序。组合框的选择需要通过从 SQL 数据库中进行选择来检索。
我是 Lotus Notes / Domino 的新手,我很想知道如何连接我的 SQL 数据库以便在 domino 设计器中使用。谢谢。
编辑:这是客户端,而不是网络
Sub Initialize
On Error GoTo e
Dim pw As String,user As String,odbc As String
Dim i As Integer
Dim conn As ODBCConnection,query As ODBCQuery,rs As ODBCResultSet
Dim db As NotesDatabase
Dim session As NotesSession
Dim view As NotesView
Dim doc As NotesDocument
Dim newDoc As NotesDocument
Set session = New NotesSession
Set db = session.CurrentDatabase
Set view = db.GetView("Reports")
Set doc = view.GetFirstDocument
Set conn = New ODBCConnection
Set query = New ODBCQuery
Set rs = New ODBCResultSet
Set query.Connection = conn
Set rs.Query = query
odbc = "server"
user = "user"
pw = "pass"
Call conn.ConnectTo( odbc , user , pw )
i = 0
query.SQL = "SELECT * FROM table"
rs.Execute
rs.FirstRow
Do While Not rs.IsEndOfData
i = i + 1
rs.NextRow
Loop
conn.Disconnect
Exit Sub
e :
MessageBox "Error " & Err & " line " & Erl & ": " & _
Error
Exit Sub
End Sub
【问题讨论】:
-
请更新您的问题以指定这是笔记客户端应用程序还是基于 Web 的应用程序。
标签: sql sql-server-2005 lotus-notes lotus-domino lotusscript