ADO实现与SQL的数据同步

最新推荐文章于 2023-10-14 08:41:43 发布

weixin_30867015

最新推荐文章于 2023-10-14 08:41:43 发布

阅读量101

点赞数

CC 4.0 BY-SA版权

文章标签：数据库

原文链接：http://www.cnblogs.com/haitunzhilian/archive/2009/10/20/1587121.html

本文介绍了如何使用Lotus Notes与SQL Server进行数据查询、添加及删除操作。通过VBA代码示例展示了从SQL Server获取数据并保存到Lotus Notes文档的过程，以及如何直接在SQL Server中进行数据更新。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

数据查询提取：

Code
Sub Initialize
    On Error Goto errors
    Dim session As New Notessession
    Dim db As Notesdatabase
    Dim doc As notesdocument
    Dim item As NotesItem
    Set db=session.currentdatabase
    Set doc=New notesdocument(db)
    doc.form = "test"
    Dim con As Variant
    Set con = CreateObject("ADODB.Connection")
    ConAdmin = "driver={SQL Server};server=数据源ip;database=数据库名"  'uid=xxx;pwd=xxx
    con.open ConAdmin
    Set rs=createobject("adodb.recordset")
    SQL="SELECT name,collage from PersonData"
    rs.open SQL,con,1,3
    rs.MoveFirst
    Do While Not rs.eof
        field=rs.Fields("name").name
        value=rs.Fields("collage").value
        Msgbox field
        Msgbox value
        Set item = doc.AppendItemValue(field,value)
        rs.MoveNext
        Call doc.save(True,True)
        Set db = session.CurrentDataBase
        Set doc = New NotesDocument(db)
        doc.form = "test"
    Loop
    rs.close
    Exit Sub
errors:
    Msgbox Str(Err)+" At "+Str(Erl)+". "+Error$
End Sub

数据删除：

Code
Sub Initialize
    On Error Goto errors
    Dim session As New Notessession
    Dim db As Notesdatabase
    Dim doc As notesdocument
    Set db=session.currentdatabase
    Dim con As Variant
    Set con = CreateObject("ADODB.Connection")
    ConAdmin = "driver={SQL Server};server=数据源ip;database=数据库"
    con.open ConAdmin
    Set rs=createobject("adodb.recordset")
    SQL="SELECT * from PersonData"
    rs.open SQL,con,1,3    '''''''''''''''''''
    rs.MoveFirst
    rs.Delete
    rs.Update              ''''''''''''''''''
    rs.close
    con.close
    Set rs=Nothing
    Set con= Nothing
    Exit Sub
errors:
    Msgbox Str(Err)+" At "+Str(Erl)+". "+Error$
End Sub

数据添加：

Code
Sub Initialize
    On Error Goto errors
    Dim session As New Notessession
    Dim db As Notesdatabase
    Dim doc As notesdocument
    Dim item As NotesItem
    Set db=session.currentdatabase
    Dim con As Variant
    Set con = CreateObject("ADODB.Connection")
    ConAdmin = "driver={SQL Server};server=数据源ip;database=数据库名"
    con.open ConAdmin
    Set rs=createobject("adodb.recordset")
    SQL="SELECT * from PersonData"
    rs.open "PersonData",con,1,3,2     '''''''''''''''''''
    rs.AddNew                          '''''''''''''''''''
    rs.Fields("name").value="罗宾逊"
    rs.Fields("sex").value="男"
    rs("age").value="41"
    rs("collage").value="麻省理工"
    rs("company").value="SUN"
    rs.Update                          '''''''''''''''''''
    rs.close
    con.close
    Set rs=Nothing
    Set con= Nothing
    Exit Sub
errors:
    Msgbox Str(Err)+" At "+Str(Erl)+". "+Error$
End Sub

转载于:https://www.cnblogs.com/haitunzhilian/archive/2009/10/20/1587121.html