طلب كود حفظ الصورة واستدعائها من قاعدة بيانات Sqlبالفيجوال بيسك 6

i think this code will work with you

for save

Set rs = Nothing

Dim sSQL As String

Dim mystream As New ADODB.Stream

rs.Open "select PIC from staff where pr_no = 6", cn, 1, 3

mystream.Type = adTypeBinary

mystream.Open

mystream.LoadFromFile "C:\Amis\6.bmp"

If mystream.Size = 0 Then

MsgBox ("aa")

End If

With rs

.Fields("PIC").Value = mystream.Read

.Update

End With

rs.Close

cn.Close

mystream.Close

Set rs = Nothing

ahmad_yossef كتب:

i think this code will work with you

for save

Set rs = Nothing

Dim sSQL As String

Dim mystream As New ADODB.Stream

rs.Open "select PIC from staff where pr_no = 6", cn, 1, 3

mystream.Type = adTypeBinary

mystream.Open

mystream.LoadFromFile "C:\Amis\6.bmp"

If mystream.Size = 0 Then

MsgBox ("aa")

End If

With rs

.Fields("PIC").Value = mystream.Read

.Update

End With

rs.Close

cn.Close

mystream.Close

Set rs = Nothing

ممكن اخوي ان ترفق مثال ..لاي كي ال سيرفر 2000

اخي الفاضل اد كنت لازلت تبحت عن الكود المتعلق بفتح الصورة فهدا عنواني راسلني وسوف البي لك طلبك

BAANDIE@HOTMAIL.COM

اخي الفاضل تم تجربة الحفظ للصورة بنجاح 

بقي استدعائها فلا تبخل علينا لاهنت بدون مراسلات بريد ليستفيد الجميع

أم كما في النكته المعروفه 

الهبوظ في العدد القادم يعني طلعنا بالطائرة وماعرفنا ننزل