lotusscript通过ODBC实现与关系型数据库SQL的数据存储

     下面的代码运行之前必须在代理的Options里面加上 Uselsx "*lsxodbc"，加载ODBC库才能调用ODBC连接类。
    “ODBC数据源”是运行SQL服务器后，在操作系统级的控制面板--管理工具--数据源（ODBC）中根据该SQL服务器添加的数据源。
1，读取关系型数据库SQL中的数据

Code
Sub Initialize
 Dim session As New NotesSession
 Dim con As New odbcConnection
 Dim qry As New odbcQuery
 Dim res As New odbcResultSet
 Dim status As Variant
 Dim msg As String
 On Error Resume Next
 status=con.ConnectTo("ODBC数据源")
 If status Then
  Msgbox "ok"
 Else
  Msgbox "no"
 End If
 Set qry.Connection=con
 Set curdb=session.CurrentDatabase
 Set res.Query=qry
 qry.Sql="SELECT * FROM PersonData"
 Call res.execute
 Msgbox res.NumColumns
 Do
  Call res.NextRow
  For i = 1 To res.NumColumns
   msg =  res.GetValue(i)
   print msg
  Next
 Loop Until res.IsEndOfData
 Call res.close
 Call con.Disconnect
End Sub

2，写入数据到SQL

Code
Sub Initialize
 Dim con As New ODBCConnection
 Dim qry As New ODBCQuery
 Dim result As New ODBCResultSet
 Set qry.Connection = con
 Set result.Query = qry
 Dim iname As String
 Dim sex As String
 Dim age As String
 Dim com As String
 Dim collage As String
 iname="王五"
 sex="男"
 age="34"
 com="Google"
 collage="清华大学"
 Dim sql As String
 If con.ConnectTo("ODBC数据源") Then
  Msgbox "connect ok"
  qry.Sql=|INSERT INTO PersonData(name,sex,age,collage,company)VALUES ('|+iname+|', '|+sex+|', '|+age+|', '|+collage+|','|+com+|');|
  result.Execute
 Else
  Msgbox "connect lost"
 End If
 result.Close(DB_CLOSE)
 con.Disconnect
End Sub

转载于:https://www.cnblogs.com/haitunzhilian/archive/2009/10/17/1584863.html