[محمدالزند]

تم حل المشكلة الف شكر للعضو الغالي 

كود :

Dim temp As New DataTable
       If Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = True Then
           Cnn = New SqlConnection(CnnString)
       ElseIf Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = False Then
           Cnn = New SqlConnection(CnnString1)
       End If

       Dim r As DataGridViewRow = Me.DataGridView1.CurrentRow
       Dim code = r.Cells("clcode").Value

       Dim cmd As New SqlCommand("Select [image1] From [PC] WHERE [code]=@code", Cnn)
       cmd.Parameters.AddWithValue("@code", code)
       If Cnn.State <> ConnectionState.Open Then Cnn.Open()
       Dim obj As Object = cmd.ExecuteScalar
       Cnn.Close()

       If obj IsNot Nothing AndAlso Not IsDBNull(obj) Then
           Dim stream As New IO.MemoryStream(CType(obj, Byte()))
           Dim img As Image = Image.FromStream(stream)

           Dim SaveFileAs As New SaveFileDialog
           SaveFileAs.Title = "Save File As"
           SaveFileAs.Filter = "Image Files (JPEG)|*.jpg;*.jpeg"
           If SaveFileAs.ShowDialog() = DialogResult.OK Then
               img.Save(SaveFileAs.FileName, Imaging.ImageFormat.Jpeg)
           End If
       End If

[/code]