lotus数据与关系数据库的数据转换范例

最新推荐文章于 2025-09-06 09:33:29 发布

原创最新推荐文章于 2025-09-06 09:33:29 发布 · 970 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#lotus #数据库 #integer #session #string #脚本

IBM Lotus 专栏收录该内容

4 篇文章

订阅专栏

本文介绍使用ODBC连接并从数据库中读取数据的基本步骤。通过VBA代码示例展示了如何建立连接、执行查询并将结果保存到Notes文档中。

ODBC 访问数据库基本步骤与样例（如果在脚本库写需要在Option 引用 uselsx "*lsxodbc"）

Dim conn As ODBCConnection
Dim result As ODBCResultSet
Dim qry As ODBCQuery
Set conn=New ODBCConnection
Set qry= New ODBCQuery
Set result = New ODBCResultSet
Set qry.Connection =conn
Set result.Query =qry

Call conn.Disconnect   '释放对象
If Not conn.ConnectTo (ds,user,pwd) Then
  Msgbox " The Lan is Error,Please CaLl Administrator!"

End If

qry.SQL =" select * from b_tsjg " '转换数据的表

Call result.Execute ()

If Not result.IsResultSetAvailable Then
  Msgbox "Please Call Administrator"  ，64
  Exit Sub
End If
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db=session.CurrentDatabase

Set doc=New NotesDocument(db)
doc.form="jgbs"
Dim field As String
Dim value As String
Do

  Call result.NextRow
  Dim i As Integer
  For i=1 To result.NumColumns
   field= result.FieldName(i)
   value =result.GetValue(field)
   Call doc.AppendItemValue(field,value)

  Next

  Call doc.Save(True,True)
  Set doc=New NotesDocument (db)
  doc.form="jgbs"

Loop Until result.IsEndOfData

Msgbox "Over Read"，64

Call result.Close(DB_CLOSE)
Call conn.Disconnect

Exit Sub