مشکل در بازگردانی اطلاعت از بانک

[M.KH-SH]

سلام به همه دوستان

من یک فایل rar رو در بانک میخوام ذخیره کنم (مشکلی ندارم با این بخش) و بعد از ذخیره کردن میخوام این فایل رو دوباره از بانک خارج کنم و روی هارد ویرایش انجام بدم و اطلاعات رو کم یا زیاد کنم
لطفا میشه دوستان راهنمایی کنن
خیلی واجب هستش

مرسی

اگه نمونه برنامه ای هم باشه حالا فرقی نمیکنه برای هر پسوندی البته به جز پسوند تصاویر بتونه تهیه کنه و بزاره خیلی ممنون میشم ازش

با تشکر

[M.KH-SH]

دوستان عزیز کسی روشی بلد نیست که بگه؟؟؟؟؟؟؟؟

[فرید نجفلو]

شما می تونید برای هردو کار ذخیره و به روز رسانی از کد زیر استفاده کنید



''' <summary>


''' ذخیره فایل در پایگاه داده
''' </summary>
''' <param name="FileName">مسیر فایل - الزامی</param>
''' <param name="Table">جدول هدف - الزامی</param>
''' <param name="ColumnToStore">ستون مورد نظر برای ذخیره فایل - الزامی</param>
''' <param name="Condition">شرط انتخاب - اختیاری</param>
''' <returns></returns>
''' <remarks></remarks>

PublicSharedFunction StoreFileIntoDB(ByVal FileName AsString, ByVal Table AsString, ByVal ColumnToStore AsString, OptionalByVal Condition AsString = "") AsBoolean




Try






Dim buffer() AsByte = {}




If FileName <> ""Then




Dim FlStream AsNewFileStream(FileName, FileMode.Open, FileAccess.Read)




Dim mbr AsBinaryReader = NewBinaryReader(FlStream)




ReDim buffer(FlStream.Length)




mbr.Read(buffer, 0,



CInt(FlStream.Length))




FlStream.Close()


EndIf




Dim TSQL AsString = ""




TSQL =""




TSQL &= "Update " & Table & " SET " & ColumnToStore & " = @image" & vbNewLine




If Condition <> ""Then




TSQL &= " Where " & Condition




EndIf




Dim conn AsNewSqlConnection(" Your connection string ")






Dim cmd = conn.CreateCommand




cmd.CommandText = TSQL






cmd.Parameters.Add(



@image", SqlDbType.Image).Value = buffer




If Not cmd.ExecuteNonQuery ThenReturnFalse






buffer = Nothing


ReturnTrue




Catch ex AsException






ReturnFalse




EndTry




EndFunction