25-11-13, 04:51 AM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
___________________________
How To Save Image In DataBase Using LINQ TO SQL
1_ أنشــــــــأ قاعدة بيانات سميها AnimalsData
2_ أنشــــــــأ جــــدول سميه AnimalTb
3_ 3 حقول على التوالي :
ID INT PK
AnimalName NVARCHAR 50
Photo Image
بعـــــــــدها أضف
LINQ TO SQL Classes
يعــــــــــدها : أسجب الجدول الى الفئة ثم أحفظ
4_صمم فورم بالشكل التالي ..
5_ ضـــــــــع الكود التالي .
أنا ما رفعت المثـــــــــال لأني عملتع على 2012 وتقريبا مش موجود عند كل الناس
وما رفعت القاعده لأن كثير من الشباب ما بيعرف يتعامل مع السكربت بتاعها
فوجدت من الأفضل أنك تصمم المثال لوحدك ختى تتعلم .
أخيــــــــرا : تحياتي للجميع .
السلام عليكم ورحمة الله وبركاته
___________________________
How To Save Image In DataBase Using LINQ TO SQL
1_ أنشــــــــأ قاعدة بيانات سميها AnimalsData
2_ أنشــــــــأ جــــدول سميه AnimalTb
3_ 3 حقول على التوالي :
ID INT PK
AnimalName NVARCHAR 50
Photo Image
بعـــــــــدها أضف
LINQ TO SQL Classes
يعــــــــــدها : أسجب الجدول الى الفئة ثم أحفظ
4_صمم فورم بالشكل التالي ..
5_ ضـــــــــع الكود التالي .
PHP كود :
Imports System.Windows.Forms
Imports System.Drawing
Imports System.IO
Public Class FrmAnimals
Dim Db As AnimalDll_DbDataContext = New AnimalDll_DbDataContext
Public Function GetAllAnimals() As List(Of AnimalTb)
Return (Db.AnimalTbs).ToList
End Function
Dim Op As OpenFileDialog = New OpenFileDialog
Private Sub BrwoseBtn_Click(sender As Object, e As EventArgs) Handles BrwoseBtn.Click
Try
Op = New OpenFileDialog
With Op
If .ShowDialog = Windows.Forms.DialogResult.OK Then
PhotoBox.Image = Nothing
PhotoBox.Image = Image.FromFile(.FileName)
End If
End With
Catch ex As Exception
End Try
End Sub
Private Sub NewBtn_Click(sender As Object, e As EventArgs) Handles NewBtn.Click
Try
PhotoBox.Image = Nothing
NameBox.Text = vbNullString
NameBox.Focus()
Catch ex As Exception
End Try
End Sub
Private Sub SaveBtn_Click(sender As Object, e As EventArgs) Handles SaveBtn.Click
Try
If IsNothing(PhotoBox.Image) And NameBox.Text = vbNullString Then
MsgBox("Fill Data ")
Exit Sub
End If
Me.Cursor = Cursors.WaitCursor
Dim Img As Byte()
Dim SysMem As FileStream = New FileStream(Op.FileName, FileMode.Open, FileAccess.Read)
Dim Br As BinaryReader = New BinaryReader(SysMem)
Img = Br.ReadBytes(CInt(SysMem.Length))
'======================================
Dim Tb As AnimalTb = New AnimalTb
With Tb
.AnimalName = NameBox.Text
.Photo = Img
End With
Db.AnimalTbs.InsertOnSubmit(Tb)
Db.SubmitChanges()
Me.Cursor = Cursors.Default
'====================================
MsgBox("Saved ")
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub
Private Sub SearchBtn_Click(sender As Object, e As EventArgs) Handles SearchBtn.Click
Try
Dim L = (From NN In GetAllAnimals() Where NN.ID = IDBox.Text Select NN).Single
Dim XImg As [Byte]() = DirectCast(L.Photo.ToArray, Byte())
Dim MS As MemoryStream = New MemoryStream(XImg)
PhotoBox.Image = Image.FromStream(MS)
NameBox.Text = L.AnimalName
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub
End Class
أنا ما رفعت المثـــــــــال لأني عملتع على 2012 وتقريبا مش موجود عند كل الناس
وما رفعت القاعده لأن كثير من الشباب ما بيعرف يتعامل مع السكربت بتاعها
فوجدت من الأفضل أنك تصمم المثال لوحدك ختى تتعلم .
أخيــــــــرا : تحياتي للجميع .