سورس کد ذخیره و بازیابی تصویر از پایگاه داده SQL Server با استفاده از VB.NET

سورس کد ذخیره و بازیابی تصویر از پایگاه داده SQL Server با استفاده از VB.NET

مقدمه

در دنیای برنامه‌نویسی، مدیریت تصاویر و فایل‌های چندرسانه‌ای در برنامه‌های ویندوزی، یکی از نیازهای اصلی و پرکاربرد است. بسیاری از توسعه‌دهندگان در پروژه‌های خود نیاز دارند تا تصاویر را در پایگاه‌داده‌های رابطه‌ای مانند SQL Server ذخیره و سپس در زمان نیاز، آنها را بازیابی کنند. این فرآیند، به ویژه در برنامه‌های VB.NET، شامل چندین مرحله مهم است که باید با دقت و درستی انجام شوند. در ادامه، به صورت جامع، مفاهیم، روش‌ها، و نمونه کدهای مربوط به ذخیره و بازیابی تصاویر در SQL Server با استفاده از VB.NET را بررسی می‌کنیم.
مبانی ذخیره‌سازی تصویر در SQL Server
در اصل، تصاویر در پایگاه‌داده‌های رابطه‌ای، به صورت بایت‌های خام یا BLOB (Binary Large Object) ذخیره می‌شوند. برای این کار، معمولاً از نوع داده‌ای `VARBINARY(MAX)` در جدول‌های SQL Server استفاده می‌شود. این نوع داده، توانایی نگهداری فایل‌های بزرگ، از جمله تصاویر، را دارد و در نتیجه، مناسب‌ترین گزینه برای ذخیره‌سازی تصاویر است.
برای نمونه، فرض کنید جدولی با نام `Images` داریم که ساختارش به صورت زیر است:

sql  
CREATE TABLE Images (
ID INT IDENTITY(1,1) PRIMARY KEY,
ImageData VARBINARY(MAX),
ImageName NVARCHAR(50)
)

در این جدول، ستون `ImageData`، داده‌های تصویر، و `ImageName`، نام تصویر را نگهداری می‌کند.
روش‌های ذخیره‌سازی تصویر در پایگاه‌داده
برای ذخیره تصویر، باید تصویر مورد نظر را به صورت بایت‌های خام تبدیل کنیم و سپس این بایت‌ها را در پایگاه‌داده وارد کنیم. این کار در VB.NET، با استفاده از کلاس‌های `FileStream` و `BinaryReader` انجام می‌شود. در اینجا، روند کلی به صورت زیر است:
1. بارگذاری تصویر از فایل در برنامه.
2. تبدیل تصویر به بایت‌های خام.
3. ساخت دستور SQL برای درج داده‌ها.

1. اجرای دستور SQL و ذخیره‌سازی در پایگاه‌داده.

کد نمونه برای ذخیره تصویر در VB.NET:

vb.net  
Dim imgPath As String = "C:\Images\sample.jpg"
Dim imageBytes() As Byte
Using fs As New FileStream(imgPath, FileMode.Open, FileAccess.Read)
Using br As New BinaryReader(fs)
imageBytes = br.ReadBytes(CInt(fs.Length))
End Using  
End Using
Dim query As String = "INSERT INTO Images (ImageData, ImageName) VALUES (@ImageData, @ImageName)"
Using conn As New SqlConnection("YourConnectionString")
Using cmd As New SqlCommand(query, conn)
cmd.Parameters.Add("@ImageData", SqlDbType.VarBinary).Value = imageBytes  
cmd.Parameters.Add("@ImageName", SqlDbType.NVarChar).Value = "sample.jpg"
conn.Open()
cmd.ExecuteNonQuery()
End Using  
End Using  

در این نمونه، ابتدا ... ← ادامه مطلب در magicfile.ir