[alsalamoni]

(23-02-20, 12:28 AM)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

أخي هذا الكود 

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

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

افترضت ان id ترقيم تلقائي لهذا حذفته من امر الاضافه

كود :

Imports System.Data.SqlClient
Imports System.IO

Public Class Form1

   Dim fName As String

   Dim cnn As New SqlConnection("Data Source=servername; Initial Catalog=databasename; User ID=sa; Password=password")
   Dim connectionString As String

   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

       fName = "D:\picfile.jpg"
       If Not File.Exists(fName) Then
           MsgBox("not found")
           Exit Sub
       End If

       Dim cmd As New SqlCommand("insert into imgtable (img) values(@img)", cnn)
       cmd.Parameters.AddWithValue("@img", File.ReadAllBytes(fName))

       cnn.Open()
       If cmd.ExecuteNonQuery() = 1 Then
           MsgBox("Image inserted")
       End If
       cnn.Close()

   End Sub

End Class