[dubai.eig]

السلام عليكم ورحمة الله

اريد اقوم بتحميل الصورة الى قاعدة البيتانات

بحثت كثير عن اي طريقه اغلبها ما مشى معاي 

انا استخدم قاعدة بيانات
SQLite


فقط محتاج تحميل الصورة ومن ثم عرضها في مكان اخر

حتى لو اقوم بتنزيل الصورة في القاعده وفي فولدر خاص في البرنامج
ومن ثم عرضها  في فورم اخر

افيدوني بارك الله فيكم

وشكرا

[سعود]

SQLite
اليس هذا النوع للجوالات؟
وان كان يوجد للكمبيوتر فهل يمكن تدلني على رابط للتحميل لكي اجرب واساعد من يحتاج اذا شاء الله تعالى.

[muharam]

السلام عليكم ورحمة الله

اريد اقوم بتحميل الصورة الى قاعدة البيتانات

بحثت كثير عن اي طريقه اغلبها ما مشى معاي 

انا استخدم قاعدة بيانات
SQLite


فقط محتاج تحميل الصورة ومن ثم عرضها في مكان اخر

حتى لو اقوم بتنزيل الصورة في القاعده وفي فولدر خاص في البرنامج
ومن ثم عرضها  في فورم اخر

افيدوني بارك الله فيكم

وشكرا

SQLite
اليس هذا النوع للجوالات؟
وان كان يوجد للكمبيوتر فهل يمكن تدلني على رابط للتحميل لكي اجرب واساعد من يحتاج اذا شاء الله تعالى.

اخي سعود

هذا الرابط يعرض الاصدارات المختلفه للمكتبه System.Data.SQLite.dll التي تحتاج اضافتها للمشروع
https://system.data.sqlite.org/index.htm...loads.wiki
بعد تنزيلها تحتاج منها فقط ملف المكتبه System.Data.SQLite.dll

في قاعدة البيانات SqLite يكون نوع بيانات الصوره BLOB ثم يتم التعامل مثل الاكسس والاسكيوال ك بيناري
هذا مثال

كود :

Dim ms As New IO.MemoryStream
PictureBox1.Image.Save(ms, Imaging.ImageFormat.Jpeg)
Dim b() As Byte = ms.GetBuffer()
Dim cmd As New SQLiteCommand("Insert Into table1(photo) values(@phpto)", con)
cmd.Parameters.AddWithValue("@phpto", b)

con.Open()
cmd.ExecuteNonQuery()
con.Close()

---

ومحرر SqLite اسمه DB Browser for SQLite يمكنك تنزيله من هذا الرابط
https://sqlitebrowser.org/dl

[abu ammar]

السلام عليكم

أنا دائما استخدم قاعدة بيانات sqlite3 مع فيجوال بيسك لأنها أفضل وأقوى من الاكسس 

بالنسبة لعرض الصور أو حفظها فهو لا يختلف عن قواعد البيانات الأخرى

هذا كود لعرض الصورة

PHP كود :

Try
            If Not IsDBNull(dt.Rows(0)("pic")) Then
                Dim img() As Byte = dt.Rows(0)("pic")
                Dim ms As New MemoryStream(img)
                picbox.Image = Image.FromStream(ms)
            Else
                picbox.Image = Image.FromFile(Application.StartupPath + "\nopic.png")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try 


وهذا كود حفظ الصورة

PHP كود :

Try
    If Not IsDBNull(dt.Rows(0)("pic")) Then
        Dim img() As Byte = dt.Rows(0)("pic")
        Dim ms As New MemoryStream(img)
        picbox.Image = Image.FromStream(ms)
    Else
        picbox.Image = Image.FromFile(Application.StartupPath + "\nopic.png")
    End If
    
    
    Dim cmd As New SQLiteCommand("insert into table (id, pic) values(@id,@pic) where id=@id", Con)
    cmd.Parameters.AddWithValue("@pic", arrpic)

    Con.Open()
    cmd.ExecuteNonQuery()
    MsgBox("تمت العملية بنجاح ")
    Catch ex As Exception
            MsgBox(ex.Message)
End Try