تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استفسار بخصوص تحميل الصورة الى قاعدة البيانات
#1
السلام عليكم ورحمة الله

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

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

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


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

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

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

وشكرا
الرد
تم الشكر بواسطة:
#2
SQLite
اليس هذا النوع للجوالات؟
وان كان يوجد للكمبيوتر فهل يمكن تدلني على رابط للتحميل لكي اجرب واساعد من يحتاج اذا شاء الله تعالى.
الرد
تم الشكر بواسطة: muharam , muharam , dubai.eig , dubai.eig
#3
(09-12-20, 12:52 AM)dubai.eig كتب : السلام عليكم ورحمة الله

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

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

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


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

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

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

وشكرا

(09-12-20, 04:14 AM)سعود كتب : 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
الرد
تم الشكر بواسطة: dubai.eig , سعود
#4
السلام عليكم
أنا دائما استخدم قاعدة بيانات 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 
الرد
تم الشكر بواسطة: dubai.eig


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  قمت بعمل مثال لإستخراج النصوص من الصورة واجهتني مشكلة اللغة العربية ماهو الحل mohamedgadain61 1 35 منذ 4 ساعة مضت
آخر رد: ابراهيم ايبو
  [سؤال] عندي استفسار عن كود معبن حسن الجلب 1 70 , 08:13 PM
آخر رد: asmarsou
Wink [VB.NET] إدخال درجات الطلاب إلى قاعدة البيانات صابر89 2 93 11-01-21, 12:10 AM
آخر رد: سعود
  استفسار سلام و محبه 1 91 09-01-21, 11:15 PM
آخر رد: ابراهيم ايبو
Information سؤال (قاعدة بيانات سيكوال سرفر علي النت) abdou 1 78 09-01-21, 09:43 PM
آخر رد: abdou
  سؤال بخصوص تثبيت الخطوط اليوم السابع 2 95 09-01-21, 05:27 AM
آخر رد: اليوم السابع
  كود تصدير البيانات من الداتاجريدفيو الى اكسل سلام و محبه 12 363 09-01-21, 03:57 AM
آخر رد: سلام و محبه
  [VB.NET] مشكلة عند عرض البيانات من الداتاجريد فيو ارهقتني محمد اسماعيل 12 340 08-01-21, 01:35 AM
آخر رد: محمد اسماعيل
  [VB.NET] سؤال بخصوص الامتدادات في فيشوال بيسيك M.SOFT 1 89 06-01-21, 12:38 PM
آخر رد: Owz
  أخواني قاعدة IF جننتني..أرجو المساعدة Alziny 4 153 05-01-21, 05:23 PM
آخر رد: 62531

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


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