تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Save Image Using LINQ TO SQL
#1
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
___________________________
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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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.FileNameFileMode.OpenFileAccess.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 ObjectAs EventArgsHandles SearchBtn.Click
        
Try

            
Dim L = (From NN In GetAllAnimals() Where NN.ID IDBox.Text Select NN).Single

            Dim XImg 
As [Byte]() = DirectCast(L.Photo.ToArrayByte())
            
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 وتقريبا مش موجود عند كل الناس
وما رفعت القاعده لأن كثير من الشباب ما بيعرف يتعامل مع السكربت بتاعها
فوجدت من الأفضل أنك تصمم المثال لوحدك ختى تتعلم .
أخيــــــــرا : تحياتي للجميع .

Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة: Sajad , مالكـ , hoob computer , tarek
#2
السلام عليكم ورحمة الله
حاجة روعة والله
جاري التنفيذ
وجزاك الله خيرا
فكرة حلوة ان الواحد يشرح فقط
عشان الي ينفذ يتعلم لانه بالطبع هينفذ الامر عملي
الرد }}}}
تم الشكر بواسطة: Abu Ehab
#3
ممتاز

تم عمل التطبيق بنجاح

يعطيك العافية على الشرح الرائع
الرد }}}}
تم الشكر بواسطة: Abu Ehab
#4
الله يبارك لك في ايهاب يا ابو ايهاب طول عمرك استاذ
الرد }}}}
تم الشكر بواسطة: Abu Ehab


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ADO.NET VS LINQ khodor1985 1 316 13-06-16, 04:12 AM
آخر رد: hitman48
  LINQ TO SQL N-Tire & Microsoft Report Abu Ehab 8 2,268 05-07-14, 11:27 PM
آخر رد: Abu Ehab

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم