تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ما طريقة عمل صورة افتراضية في قاعدة البيانات ؟
#1
السلام عليكم ،

ما طريقة وضع صورة افتراضية في القاعدة ، بحيث إذا لم يقم المستخدم بإدخال صورة في البرنامج تظهر له صورة بشكل تلقائي ؟

وشكرا
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
الأمر بسيط خالص :
نضع صوره في الريسورس

PHP كود :
Try
            
Dim Op As New OpenFileDialog
            With Op

              
.Filter = ("Bitmap | *.jpg")
                If .
ShowDialog Windows.Forms.DialogResult.OK Then

                    PictureBox1
.Load(.FileName)

                
End If
                If 
IsNothing(PictureBox1.ImageThen

                    PictureBox1
.Image My.Resources.MyImage
                End 
If
            
End With
        
Catch ex As Exception

        End 
Try 

Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:
#3
وضعت صورة في الريسورس باسم myImage

لكن ما فهمت الكود الذي وضعته..

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


PHP كود :
Dim file_path As String
            file_path 
txt_file_path.Text

            
''يختبر تحميل صورة من الكمبيوتر
            
If txt_file_path.Text.Trim <> "" Then
                
''يقوم بعمل متغير من النوع صورة ويحفظ بداخله الصورة المحملة
                Dim picture 
As Image Image.FromFile(file_path)
                
''يقوم بتعريف متغير من نوع ذاكرة
                Dim stream 
As New IO.MemoryStream
                
''يقوم بحفظ متغير الصورة والذى يحتوى على الصورة داخل متغير الذاكرة
                picture
.Save(streamImaging.ImageFormat.Jpeg)
                
''تمرير قيمة متغير الذاكرة إلى البارامتر
                com_add
.Parameters("@Statuse_photo").Value stream.GetBuffer()
            
End If 


ماذا اضيف عليه ؟

وشكرا
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته
انا الأفضل اعمل لك مثال في المرفقات .



الملفات المرفقة
.rar   Save Pic.rar (الحجم : 171.96 ك ب / التحميلات : 93)

Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:
#5
جزاكم الله كل خير

أنا المشكلة لدي أني لا أستطيع تغيير أكوادي في حفظ الصورة (لأن البرنامج عمل بعد مشقة كبيرة)

في حالة لم يقم المستخدم بإدخال صورة من خلال OpenFileDialog فإن البرنامج يظهر خطأ في العمل
فقمت بحل هذه المشكلة بكتابة هذا الأمر:


' في حالة ترك الصورة فارغة
If txt_file_path.Text = "" Then
txt_file_path.Text = "C:\Users\Public\Pictures\Sample Pictures\Tulips.jpg"

بمعنى لو ترك المستخدم القيمة فارغة، فقم بإدخال امتداد افتراضي (وهو الصورة الموجودة في النماذج)
ولكن أنا لا أضمن أن يكون نفس الامتداد في كل جهاز يتثبت فيه برنامج + أني أريد أن تظهر صورة افتراضية أنا أختارها
بمعنى أني أريد كود يملأ لي OpenFileDialog فقط .. بحيث يأخذها من الريسورس كما ذكريتم

جربت هذا الكود
OpenFileDialog1.path = my.resource.myImage
ولكن أظهر لي خطأ في العمل ..

فما الطريقة لذلك ؟

وشكرا
الرد }}}}
تم الشكر بواسطة:
#6
إقتباس :
ولكن أنا لا أضمن أن يكون نفس الامتداد في كل جهاز يتثبت فيه برنامج
حلها بسيط وهي باستخدام Environment
اكتبيها واكتبي بعدها . نقطة ثم اختاري مجلد الصور ثم بعدها اسم الصورة
لكن؟
لدي راي افضل (من وجهة نظري) وهي تمكين المحتوى الفارغ في الجدول لعمود الصور ثم عند استقبال البيانات يتم فحص السجل ان كان فارغا يتم اظهار الصورة سواء من الريسورس ام من مجلد الصور.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#7




الكلاس الخاص بالفورم
كود :
Imports System.Data.OleDb

Public Class Form1


    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(str)
    Dim p() As Byte
    Dim ds As New DataSet


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ofd As New OpenFileDialog
        If ofd.ShowDialog = vbOK Then
            TextBox2.Text = ofd.FileName
            p = My.Computer.FileSystem.ReadAllBytes(TextBox2.Text.Trim)


        End If
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        getdata()
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text.Trim = "" Then
            MsgBox("اما الاسم لابد من كتابته", MsgBoxStyle.Critical, "")


            Exit Sub
        End If
        Dim cm As New OleDbCommand("", con)
        If IsNothing(p) Then
            cm.CommandText = ("insert into tb (tname) values(@tname)")
            cm.Parameters.AddWithValue("@tname", Data.DbType.String).Value = TextBox1.Text


            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            cm.ExecuteNonQuery()
            MsgBox("تم حفظ الاسم")


        Else
            cm.CommandText = "insert into tb (tname,pic) values(@tname,@pic)"
            cm.Parameters.AddWithValue("@tname", Data.DbType.String).Value = TextBox1.Text
            cm.Parameters.AddWithValue("@pic", Data.DbType.Binary).Value = p


            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            cm.ExecuteNonQuery()
            MsgBox("تم حفظ الاسم والصورة")


        End If
        getdata()


    End Sub
    Sub getdata()
        Dim da As New OleDbDataAdapter("select tname,pic from tb", con)
        ds.Clear()
        tname.DataBindings.Clear()
        pic.DataBindings.Clear()
        'pic.Image.Dispose()


        da.Fill(ds, "tb")


        tname.DataBindings.Add("text", ds, "tb.tname")
        pic.DataBindings.Add("image", ds, "tb.pic", True)
        If IsNothing(pic.Image) Then
            pic.Image = My.Resources.nopic
        End If




    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.BindingContext(ds, "tb").Position -= 1
        If IsNothing(pic.Image) Then
            pic.Image = My.Resources.nopic
        End If


    End Sub


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.BindingContext(ds, "tb").Position += 1
        If IsNothing(pic.Image) Then
            pic.Image = My.Resources.nopic
        End If


    End Sub
End Class


وهذا المثال
http://vb4arb.com/vb/uploaded/34_01367394810.zip
اكسس 2007 و فيجوال 2010
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#8
تعديل بسيط للمثال وهو افراغ المتغير p من محتواه بعد الحفظ
p=nothing
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#9
جزاكم الله خيرا ،

بالنسبة للطريقة الأولى، هل أكتبها بهذا الشكل:
OpenFileDialog1.path= Environment.SpecialFolder.MyPictures

ولي استفسار من فضلك:
عندما أريد قراءة عمود من جدول (select exampel from exampel)
وأضعه في textbox ، أجد أنه لم يقرأ إلا السطر الأول أو الحقل الأول فقط .. فكيف أجلب بقية النتائج في نفس الtextbox ؟

وشكرا
الرد }}}}
تم الشكر بواسطة:
#10
السؤال الاول افضل مرجع له
http://msdn.microsoft.com/en-us/library/...s.71).aspx


السؤال الاخر .. شيء طبيعي والحل استخدام &= بدلا من =
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تصميم قاعدة البيانات djelloul 2 36 06-12-16, 12:36 PM
آخر رد: djelloul
  بحث و إظهار صورة من قاعة البيانات علىPictureBox ahmed_elwerfalli 0 40 29-11-16, 01:34 AM
آخر رد: ahmed_elwerfalli
  [سؤال] كيفية اضافة عناصر عمود فى جدول من قاعدة بيانات فى جدول اخر hidn 1 173 04-11-16, 09:25 AM
آخر رد: thevirus
  [VB.NET] مثال على جلب ارقام من قاعدة البيانات وحفظها في مصفوفة بدر إشتية 4 354 02-11-16, 02:42 AM
آخر رد: Ahmad ahmed
  [سؤال] قراءة رابط من قاعدة بيانات في ادة التصفح شمس الدين 03 2 84 27-10-16, 10:43 PM
آخر رد: شمس الدين 03
  مساعدة في بناء قاعدة hglogtd 4 137 05-10-16, 03:48 PM
آخر رد: hglogtd
  استفسار حول طريقتي في قاعدة البيانات صبري زينوبي 0 81 29-09-16, 04:35 PM
آخر رد: صبري زينوبي
  ربط قاعدة بيانات اكسس بفجوال دوت نت 2015 كنونو 0 125 26-09-16, 01:35 PM
آخر رد: كنونو
  تسمية قاعدة البيانات قبل انشائها aiman 3 175 15-09-16, 09:12 PM
آخر رد: Abu Ehab
  [Acces2003] المساعدة في كود لحذف البيانات من الاستعلام محمد خلف زكي 2 144 28-08-16, 11:24 AM
آخر رد: محمد خلف زكي

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


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