استرجاع مجموعه صور مخزنة بجدول موجود بسيفر sql

ممكن تكتب شيفرة بأي لغة برمجة مثل C#, VB.NET لإتمام ماتريد بكل سهولة إلا إن كنت تريد مشروعك Access هو من سيقوم بهذه المهمة, عندها أعتقد أنه عليك استخدام VBA التي تأتي مع Access.

أرجو أن أكون فهمت سؤالك بشكل صحيح

عزيزى اسماعيل انا شاكر لك جدا محاولة مساعدتى ولكن للاسف انا لاعرف الدوت نيت وحاولت اكتب كود vba بس فشلت لان الصور متخزنه فى الجدل بصيغتين الاول Microsoft word picture والاخرى Microsoft office picture السؤال هل يمكن كتابه كود عن طريق السيرفر ال sql لحل المشكله انا قريت انه ممكن بس مش عارف ازاى

كل المطلوب معرفة الامر المستخدم ... انا مش عايز الكود بالكامل .... سواء كانت الطريقة بواسطة vba او sql

السلام عليكم ورحمة الله وبركاته :

أخي الكريم . إليك كود سيساعدك في حل مشكلتك إن شاء الله ..

وهو عبارة عن إجرائية مخزنة تقرأ الصورة على شكل بايتات و تقوم بتخزينها في ملف صورة ..

أنا قد وضعته سابقاً في درس حول التعامل مع أنواع البيانات الضخمة (Image , NText, Text)

و هو موجود في أرشيف القسم على ما أعتقد ..

CREATE PROCEDURE SaveImage2file @filename nvarchar(128), @table nvarchar(128),@column nvarchar(128), @where nvarchar(4000)
--Saves an image from an image column to a file
AS
IF (@filename is NULL) OR (@table is NULL) OR (@column is NULL) OR (@where is NULL)
	BEGIN
	PRINT 'saveImage2file saves an image from an image column to a file'
	PRINT 'Usage:'
	PRINT 'EXEC saveImage2file FileName, tableName, columnName, WhereCondition'
	PRINT ''
	PRINT 'For example: EXEC saveImage2file ''C:\test.bmp'', ''customers'', ''picture'', ''where customerID=234'''
	RETURN
	END
DECLARE @hr int,@fso int,@i int, @j int, @blocks int, @c int, @v varbinary(10), @buffer varbinary(1000), @sql nvarchar(4000)
EXEC @hr = sp_OACreate 'ADODB.Stream', @fso OUT
exec @hr = sp_oasetproperty @fso, 'Type', 1--adTypeBinary=1
EXEC @hr = sp_OAMethod @fso, 'Open'
set @sql = N'SELECT @c =(select DATALENGTH('+@column+') from '+@table+' '+@where+')'
exec sp_executesql @sql, N'@c int OUTPUT', @c OUTPUT
set @j=0
create table #t ( t image ) 
SET @i=@c
--read 1000 bytes at a time
WHILE @i>1000
	BEGIN
	insert into #t 
	exec getREADTEXT @column,@table,@where,@j,1000
	set @buffer=(select convert(varbinary(1000),t) from #t)
	EXEC @hr = sp_oasetproperty @fso, 'Write', @buffer
	delete #t
	SET @i=@i-1000
	SET @j=@j+1000
	END
--read remaining bytes
if @i>0
	BEGIN
	insert into #t 
	exec getREADTEXT @column,@table,@where,@j,@i
	set @buffer=(select convert(varbinary(1000),t) from #t)
	EXEC @hr = sp_oasetproperty @fso, 'Write', @buffer
	delete #t	
	END
drop table #t
EXEC @hr = sp_oasetproperty @fso, 'SaveToFile', @filename
EXEC @hr = sp_OAMethod @fso, 'Close'
GO

مثال على استخدام الدالة :

EXEC saveImage2file 'C:\test.bmp', 'customers', 'picture', 'where customerID=234'

بالتوفيق ...

السلام عليكم

الف الف شكر على المساعدة وجارى التجربة بأذن الله

وشكرا لك مرة اخرى