把sqlserver数据库的文件导出来
sp_configure \'show advanced options\', 1;
GO
RECONFIGURE;
GO
sp_configure \'Ole Automation Procedures\', 1;
GO
RECONFIGURE;
GO
DECLARE @SOURCEPATH VARBINARY(MAX),
@DESTPATH VARCHAR(MAX),
@ObjectToken INT,
@image_ID VARCHAR(MAX)
DECLARE IMGPATH CURSOR FAST_FORWARD FOR
SELECT bin,zy_id+wjmc+convert(varchar(10),id) from d_file
OPEN IMGPATH
FETCH NEXT FROM IMGPATH INTO @SOURCEPATH, @image_ID
WHILE @@FETCH_STATUS = 0
BEGIN
SET @DESTPATH = \'c:\电子病历\\' + @image_ID + \'.doc\'
print(@image_ID)
print(@DESTPATH)
EXEC sp_OACreate \'ADODB.Stream\', @ObjectToken OUTPUT
EXEC sp_OASetProperty @ObjectToken, \'Type\', 1
EXEC sp_OAMethod @ObjectToken, \'Open\'
EXEC sp_OAMethod @ObjectToken, \'Write\', NULL, @SOURCEPATH
EXEC sp_OAMethod @ObjectToken, \'SaveToFile\', NULL, @DESTPATH, 2
EXEC sp_OAMethod @ObjectToken, \'Close\'
EXEC sp_OADestroy @ObjectToken
FETCH NEXT FROM IMGPATH INTO @SOURCEPATH, @image_ID
END
CLOSE IMGPATH
DEALLOCATE IMGPATH