LotusScript读写关系型数据库

注意：使用LotusScript访问数据库一定要在(Options)中加入Uselsx "*LSXODBC"命令
Sub Click(Source As Button)                
   Dim con As New ODBCConnection
'定义ODBC连接对象
   Dim qry As New ODBCQuery
'定义ODBC执行对象
   Dim result As New ODBCResultSet
'定义ODBC结果处理对象
   On Error Goto errorHandler
'如果有错误，就显示错误信息
   Set qry.Connection = con
   Set result.Query = qry
   con.ConnectTo("TXTEST")
'激活连接TESTXT数据库
   qry.SQL = "SELECT Table_Chat,Table_Int FROM ABC.TXT"
'决定对表单的“ABC.TXT”的字段Table_Char,Table_Int进行处理
   result.Execute
'执行SQL命令
   maxrow = result.MaxRows
'获得表单的记录数
   Call result.FirstRow
'定位第一条记录
   Do
       aa = result.GetValue("Table_Char")
       bb = result.GetValue("Table_Int")
       Print aa,bb
'将返回的值，打印显示
       Call result.NextRow
'继续下一条记录
   Loop While maxrow > result.CurrentRow
'如果搜索到最后条记录，退出循环
   result.Close(DB_CLOSE)
   con.Disconnect

Exit Sub

errorHandler:
   Messagebox result.GetExtendedErrorMessage,, result.GetErrorMessage
   Exit Sub

End Sub
利用Script写入数据库
使用LotusScript访问数据库的完整函数：
本函数仅加入了一条记录，你可以使用循环，将Notes数据库中的值加入到ODBC中。
Sub Click(Source As Button)                
   Dim con As New ODBCConnection
'定义ODBC连接对象
   Dim qry As New ODBCQuery
'定义ODBC执行对象
   Dim result As New ODBCResultSet
'定义ODBC结果处理对象
   On Error Goto errorHandler
'如果有错误，就显示错误信息
   Set qry.Connection = con
   Set result.Query = qry
   con.ConnectTo("TXTEST")
'激活连接TESTXT数据库
   qry.SQL = "SELECT Table_Chat,Table_Int FROM ABC.TXT"
'决定对表单的“ABC.TXT”的字段Table_Char,Table_Int进行处理
   result.Execute
'执行SQL命令
   result.AddRow
'增加一行记录
   Call result.SetValue("Table_Char","cc")
   Call result.SetValue("Table_Int",3)
   result.UpdateRow
'将增加的记录更新到数据库文件中
   result.Close(DB_CLOSE)
   con.Disconnect
'关闭数据库，断开连接

Exit Sub

errorHandler:
   Messagebox result.GetExtendedErrorMessage,, result.GetErrorMessage
   Exit Sub

End Sub