注意:使用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
转载于:https://blog.51cto.com/sysmw/1293689