lotus domino designer中能取到sql server数据库中的数据吗？

[Tchieftain]

如题，在lotus表单中的一个文本域，能不能从sql server数据库中取到值呢？
谢谢！

[Kresher]

能啊

[Tchieftain]

老大，如何取呢？

[Kresher]

你的需求是什么啊,看需求有不同的方法的

[Tchieftain]

我就是想在一张表单中动态往列表框域添加通过sql语句从sql server数据库中取出来的记录。
不知我这样说，大家能不能看明白。

[Tchieftain]

一天了，怎么没有人回一下呢？

[Tchieftain]

没有人知道吗？

[陆君风]

很简单啊！c，jajva怎么做，这个也就怎么做，ODBC
或者是LEI

[陆君风]

%REM
'创建ADO连接对象
Set varCon=CreateObject("ADODB.Connection")
'连接字符串
strConStr={Provider=SQLOLEDB;Data Source=lmszmc.lmszmc.com;Uid=sa;Pwd=;Database=LMSMS}
'打开连接
varCon.open strConStr

'循环发送短信
For i=Lbound(strSendContent) To Ubound(strSendContent)
For j=Lbound(ArraySmsMobile) To Ubound(ArraySmsMobile)
'SQL语句
strSql={insert into ISSMTInit(TermNum,IContent) values('} & Replace(ArraySmsMobile(j),"'","''") & {','} & Replace(strSendContent(i),"'","''") & {')}
'执行SQL
varCon.Execute(strSql)
Next
Next

'关闭连接
varCon.close
%END REM

%REM
Dim con As New ODBCConnection 'ODBC连接对象
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet

If Not con.ConnectTo("SZMC","SZMC","SZMC") Then '如果连接失败,退出过程
Exit Sub
Else
Set qry.Connection = con
Set result.Query = qry
qry.SQL="select * from ISSMTInit"
result.Execute
result.LastRow
For i=Lbound(strSendContent) To Ubound(strSendContent)
For j=Lbound(ArraySmsMobile) To Ubound(ArraySmsMobile)
Call result.AddRow()
Call result.SetValue("TermNum",Replace(ArraySmsMobile(j),"'","''"))
Call result.SetValue("IContent",Replace(strSendContent(i),"'","''"))
result.UpdateRow
Next
Next
result.Close
'关闭连接
con.Disconnect
End If
%END REM

'创建LEI短信文档
Dim smsdb As NotesDatabase
Dim smsdoc As NotesDocument
Set smsdb=session.GetDatabase("DServer","SZMCOA/db_Sms.nsf")
'循环发送短信
Msgbox "OpenDB:" & smsdb.IsOpen
If smsdb.IsOpen Then
For i=Lbound(strSendContent) To Ubound(strSendContent)
For j=Lbound(ArraySmsMobile) To Ubound(ArraySmsMobile)
Set smsdoc=smsdb.CreateDocument()
smsdoc.FORM="Sms"
smsdoc.Mobile=ArraySmsMobile(j)
smsdoc.Content=strSendContent(i)
Call smsdoc.Save(False,True)
Next
Next
End If

[Tchieftain]

谢谢！