تقييم الموضوع :
  • 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
 Youtube   Facebook    Twitter   
الرد }}}}
تم الشكر بواسطة: Sajad , مالكـ , hoob computer , tarek
#2
السلام عليكم ورحمة الله
حاجة روعة والله
جاري التنفيذ
وجزاك الله خيرا
فكرة حلوة ان الواحد يشرح فقط
عشان الي ينفذ يتعلم لانه بالطبع هينفذ الامر عملي
الرد }}}}
تم الشكر بواسطة: Abu Ehab
#3
ممتاز

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  Populate TreeView & LINQ Abu Ehab 6 934 02-12-17, 05:27 PM
آخر رد: sendbad100
  الدرس الثالث : Linq To SQL khodor1985 4 924 11-07-17, 09:46 PM
آخر رد: حريف برمجة
  خطأ في تطبيق Linq to Sql Abdh111 0 123 11-07-17, 01:22 AM
آخر رد: Abdh111
  سؤال في تطبيق الدرس الأول Linq to Sql Abdh111 0 194 11-06-17, 12:46 AM
آخر رد: Abdh111
  سؤال حول JOINT في تقنية LINQ ndjakoub 3 266 04-06-17, 09:06 PM
آخر رد: ndjakoub
  Microsoft Report using LINQ TO SQL Abu Ehab 1 282 05-05-17, 11:27 AM
آخر رد: sendbad100
  Save and Retreve Image Abu Ehab 4 435 27-03-17, 11:47 PM
آخر رد: Abu Ehab
Exclamation سؤال في LINQ a_abdullah 3 383 25-03-17, 11:03 PM
آخر رد: khodor1985
  عملية البحث من خلال تقنية linq khodor1985 1 670 12-03-17, 07:29 PM
آخر رد: حريف برمجة
  الدرس الرابع : Linq To SQL khodor1985 6 1,212 10-03-17, 11:12 AM
آخر رد: عماد السيد

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


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