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

小木可

于 2005-12-17 11:30:00 发布

阅读量1.8k

点赞数

分类专栏： Lotus Script技术文章标签： sql server lotus security image 数据库 vb

本文链接：https://blog.csdn.net/jackyzhan/article/details/554558

版权

Lotus Script技术专栏收录该内容

2 篇文章

订阅专栏

本文介绍如何通过Lotus Script利用ADO连接SQL Server数据库，将图片文件作为Image类型数据存储到TableB表中。首先创建数据库DatabaseA和表TableB，然后在Lotus Script中打开数据库连接，创建Recordset对象，读取本地图片文件并写入到记录中，最后保存和关闭连接。虽然代码可执行，但在实际操作中可能会遇到错误，建议尝试使用VB控件在Lotus Script中调用来解决。

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

在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