用Lotus Script通过ADO将附件引入SQL SERVER（原创）

在SQL SERVER中建立数据库DatabaseA，表TableB，包含以下字段：

name(文本),logo(Image)

NOTES中的代码：
       
Dim AdoCon As Variant
Dim AdoRs As Variant
Dim AdoStream As Variant
       
Set AdoCon=createobject("ADODB.Connection")
AdoCon.ConnectionString ="Provider=SQLOLEDB.1;Password=user;Persist Security Info=True;User ID=user;Initial Catalog=DatabaseA;Data Source=localhost;Connect Timeout=15"
       
AdoCon.Open       

Set AdoRs= createobject ("ADODB.Recordset")       
       
AdoRs.Open "Select * from TableB", oConn,1,3
       
Set AdoStream= CreateObject ("ADODB.Stream")
       
AdoStream.Type = 1
AdoStream.Mode = 3
AdoStream.Open
       
AdoStream.LoadFromFile "c:/11.jpg"
AdoRs.AddNew
       
AdoRs.fields("name").Value="jacky"
AdoRs.Fields("logo").Value = AdoStream.Read
AdoRs.Update
       
       
AdoRs.Close
Set AdoRs = Nothing
AdoCon.Close
Set AdoCon = Nothing

 

这段代码在NOTES里同样也是可以执行，但我自己的总是报错，可以用VB写个控件，然后在Lotus Script中调用。

备注：

     NOTES客户端应该是采用安装式。