[aldery]

(23-02-20, 12:12 AM)alsalamoni كتب :

(22-02-20, 11:38 PM)aldery كتب : السلام عليكم ورحمة الله , كيفكم أخواني إن شاء الله تكونو بخير .

لدي قاعدة بيانات sql و خانات متعددة واحتاج كود اضافة الصورة على حسب رقم الشخص

مثال : المعرف | احمد | العمر | رقم الهاتف | الصورة 

عندما أكتب الid الخاص في الشخص و أحفظ يقوم الكود بحفظ الصورة في الخانة المخصصة له 

هذه صورة لقاعدة البيانات + صورة للواجهة 

من الصورة يبدو ان نوع حقل الصورة ليس image

ضع الكود الذي لديك لتعديله
مع تحديد نوع حقل الصورة
وهل تريد حفظ الصورة ام مسارها؟

كود :

Imports System.Data.SqlClient
Imports System.IO
Public Class Form1
    Dim fName As String

    Dim cnn As SqlConnection
    Dim connectionString As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        connectionString = "server=DESKTOP-CRKR4GN\Afkee; database=list1; integrated security=true"
        cnn = New SqlConnection(connectionString)
        fName = "D:\picfile.jpg"
        If File.Exists(fName) Then
            Dim id As Integer = 1
            Dim content As Byte() = ImageToStream(fName)
            cnn.Open()

            Dim cmd As New SqlCommand("insert into imgtable (id,img) values ( @id,@img)", cnn)
            cmd.Parameters.AddWithValue("@id", id)
            cmd.Parameters.AddWithValue("@img", content)
            cmd.ExecuteNonQuery()

            cnn.Close()
            MsgBox("Image inserted")
        Else
            MsgBox(fName & " not found ")
        End If
    End Sub

    Private Function ImageToStream(ByVal fileName As String) As Byte()
        Dim stream As New MemoryStream()
tryagain:
        Try
            Dim image As New Bitmap(fileName)
            image.Save(stream, System.Drawing.Imaging.ImageFormat.Jpeg)
        Catch ex As Exception
            GoTo tryagain
        End Try

        Return Stream.ToArray()
    End Function
End Class

أخي هذا الكود 

بلنسبة لقاعدة بيانات هي بلفعل يوجد بها حقل صورة 

اريد حفظ الصورة وليس المسار  وهذا صورة لمكان الصورة