كيف اظهر الصوة من قاعدة االبيانات في Picturebox

21 مشاهدة .......... معقولة ولا واحد قاد يساعدني............:(

المــاسة كتب:

21 مشاهدة .......... معقولة ولا واحد قاد يساعدني............:(

جرب أبحثي في المنتدى عن حفظ الصورة ستلاقيهناك حلول كثيرة ...

السلام عليكم

أنا بتعامل مع الحكاية ديه بالأسلوب ده

Private Sub DirTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DirTextBox.TextChanged

Dim FirstName As String = DirTextBox.Text

Dim LastName As String = ".jpg"

TextBox2.Text = String.Concat(FirstName, LastName)

PicDir.ImageLocation = Application.StartupPath & "\Picture\" & TextBox2.Text & " "

End Sub

أولا أقوم بتعريف متغير يأتي بقيمة النص من تكست بوكس وهو به رقم الصورة في قاعدة البيانات

Dim FirstName As String = DirTextBox.Text

ثانيا أعرف متغير باسم امتداد الصورة وذلك حتى تتمكن الأداة من عرض الصورة

Dim LastName As String = ".jpg"

نننشأ تكست بوكس ثاني وهو الذي سوف يكون به دمج المتغيران معا رقم الصورة والامتداد ليعطي في النهاية اسم الصورة وامتدادها

TextBox2.Text = String.Concat(FirstName, LastName)

نضيف أداة الصور ونضع الكود الأخير بها مع العلم أني هنا أبحث عن الصورة في المسار الحالي للبرنامج ويبحث بعد ذلك على فولدر اسمه picture ويبحث عن الصورة

PicDir.ImageLocation = Application.StartupPath & "\Picture\" & TextBox2.Text & " "

ملاحظه في حالة قيامك بتسجيل رقم الصورة أو اسم الصورة بالامتداد في ملف قاعدة البيانات يمنكك عدم استخدام المتغير الثاني

ده الأسلوب إلاي بتعامل بيه مع هذا الوضع بحيث إن الصور تكون من مسار البرنامج وليس مسار ثابت

هذاا إلاي أقدر أقدمه ليك حيث أني مبرمج مبتدأ

ده sub بستخدمه في عرض الضورة المسجلة في قاعدة البيانات في حقل Image

    Sub ViewImage()

        Dim sQuery As New System.Text.StringBuilder()
        Dim oDataTable As New DataTable()
        Dim dtRow As DataRow
        Dim imagedata() As Byte
        Dim imageBytedata As IO.MemoryStream

            sQuery.Append("SELECT picture  FROM   Table2 WHERE (ID = '1000') ")
            oDataTable = New Connection().doDBconnection(sQuery.ToString, "Image")

            For Each dtRow In oDataTable.Rows
                imagedata = dtRow.Item("picture")
                imageBytedata = New IO.MemoryStream(imagedata)
            Next

            Image2.BackgroundImage = Image.FromStream(imageBytedata)

    End Sub

مشكووووووورين

جزاكم الله خيرا