利用存储过程向SQL Server 2000 的表中写入大二进制文件
时 间:2004-05-11 15:36:46
作 者:zhuyiwen ID:61 城市:岳阳
摘 要:利用存储过程向SQL Server 2000 的表中写入大二进制文件
正 文:
本文在存储过程中利用SQL Server的UpdateTEXT语句进行分段写入,很好地解决了这一个问题,读者还可以稍加改进,使之成为断点续传。
在SQL SERVER 2000数据库中有表:
Create TABLE [dbo].[tblTest] (
[id] [int] IDENTITY (1, 1) NOT NULL ,
[name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[photo] [image] NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
存储过程:
Alter PROCEDURE addImage
(
@bin varbinary(4096),
@ID integer
)
AS
DECLARE @ptrval binary(16)
Update tblTest SET photo = '' Where id=@ID and photo is null
IF DATALENGTH(@bin)<4096
SET @bin = SUBSTRING(@bin, 1, DATALENGTH(@bin)-1)
Select @ptrval = TEXTPTR(photo) FROM tblTest Where id = @ID
UpdateTEXT tblTest.photo @ptrval null NULL @bin
VBA代码:
Private Sub Test(ByVal FileName As String, ByVal id As Long)
Dim cmm As ADODB.Command
Dim cnn As New ADODB.Connection
Dim par As New ADODB.Parameter
Dim image() As Byte
Const BLOBSIZE = 4096
Dim strConn As String
Dim FileNo As Integer
Dim lngPosition As Long
Dim LenF As Long
Dim NoGr As Long
Dim i As Long
lngPosition = 0
FileNo = FreeFile
Open FileName For Binary As FileNo
LenF = LOF(FileNo)
Debug.Print LenF
NoGr = LenF \ BLOBSIZE
strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=test;Data Source=(local)"
cnn.Open strConn
For i = 1 To NoGr
Set cmm = New ADODB.Command
With cmm
Set .ActiveConnection = cnn
.CommandType = adCmdStoredProc
.CommandText = "addImage"
lngPosition = (i - 1) * BLOBSIZE + 1
ReDim image(BLOBSIZE)
Get FileNo, lngPosition, image
Set par = .CreateParameter("bin", adVarBinary, adParamInput,
BLOBSIZE + 1)
par.Attributes = adParamLong
par.AppendChunk image()
.Parameters.Append par
Set par = .CreateParameter("ID", adInteger, adParamInpu
Access软件网QQ交流群 (群号:54525238)
Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)