تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
السلام عليكم محتاجة مثال لربط picbox ب حقل به صور بقاعدة البيانات وجلب الصور لل pic
#1
السلام عليكم اخواني ي ريت كود لجلب صور موجودة بقاعدة البيانات بحقل موضوع بالصورة ادناه 


 قمت بمحاوله ربط  pic box  عن طريق ربطه بالحقل ولاكن فشلت محاولتي 

تم عرض الصور ولاكن تفضل قاعدة البيانات مفتوحه حتى اذا سكرت الاتصال محتاجة كود احطه بال Load  يجيب لي الصور من الحقل مباشرة ويسكر لي الاتصال بقاعدة البيانات بعد جلب الصور وشكرا
الرد }}}
تم الشكر بواسطة:
#2
الحل باستخدام متغير واحد للاتصال .....نفتحه ونغلقه باكثر من حدث
الرد }}}
تم الشكر بواسطة: رهف العريفي
#3
اخي سعود جزاك الله خير رفض يتحمل معي المثال للتوضيح

لاكن :

اسم قاعدة البيانات : image Database
اسم الجدول : Clothepic
اسم الحقل : picfile علما بأن نوع الخقل : OLE Object

بالاضافه لل PictureBox1 المطلوب ربطه بالحقل picfile واسم الفورم form1

ياريت بس تساعدني بكتابه المتغير وكود الاتصال بقاعدة البيانات اخي وجزاك الله خير
الرد }}}
تم الشكر بواسطة:
#4
الصراحة جهزت المثال قبل ردك الاخير
PHP كود :
Public Class Form1
    Dim con 
As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
 
   Dim dt As DataTable
    Dim da 
As OleDb.OleDbDataAdapter
    Dim cmdb 
As OleDb.OleDbCommandBuilder
    Private Sub oncon
()
 
       Try
            con
.Open()
 
       Catch ex As Exception

        End 
Try
 
   End Sub
    Private Sub ofcon
()
 
       Try
            con
.Close()
 
       Catch ex As Exception

        End 
Try
 
   End Sub

    Private Sub gd
()
 
       PictureBox1.DataBindings.Clear()
 
       PictureBox1.Image Nothing
        dt 
= New DataTable
        da 
= New OleDb.OleDbDataAdapter("select * from tb"con)
 
       cmdb = New OleDb.OleDbCommandBuilder(da)
 
       da.Fill(dt)
 
       PictureBox1.DataBindings.Add("image"dt"pic"True)
 
       ofcon()
 
   End Sub
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        gd
()
 
   End Sub





    Private 
Function addpic(ByVal b() As Byte) As Boolean
        
' Try
        Dim row As DataRow = dt.NewRow
        row(1) = b
        dt.Rows.Add(row)
        da.Update(dt)
        Return True
        gd()
        ' 
 Catch ex As Exception
        
'Return False
        ' 
 End Try
 
   End Function

 
   Private Function edpic(ByVal b() As Byte) As Boolean
        
' Try
        Dim row As DataRow = dt.Rows(Me.BindingContext(dt).Position)
        row.BeginEdit()
        row(1) = b
        row.EndEdit()
        da.Update(dt)
        Return True
        gd()
        ' 
 Catch ex As Exception
        
'Return False
        ' 
 End Try
 
   End Function






 
   Private Sub Button2_Click(sender As ObjectAs EventArgsHandles Button2.Click
        Me
.BindingContext(dt).Position -= 1
    End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Me
.BindingContext(dt).Position += 1

    End Sub

    Private Sub cmdnew_Click
(sender As ObjectAs EventArgsHandles cmdnew.Click
        Dim o 
As New OpenFileDialog
        If o
.ShowDialog Windows.Forms.DialogResult.OK Then
            If addpic
(My.Computer.FileSystem.ReadAllBytes(o.FileName)) Then
                MsgBox
("تم حفظ الصورة بنجاح")
 
           Else
                MsgBox
("حدث خطا"MsgBoxStyle.Critical"")
 
           End If
 
       End If
 
   End Sub

    Private Sub cmdedit_Click
(sender As ObjectAs EventArgsHandles cmdedit.Click
        Dim o 
As New OpenFileDialog
        If o
.ShowDialog Windows.Forms.DialogResult.OK Then
            If edpic
(My.Computer.FileSystem.ReadAllBytes(o.FileName)) Then
                MsgBox
("تم التعديل  بنجاح")
 
           Else
                MsgBox
("حدث خطا"MsgBoxStyle.Critical"")
 
           End If
 
       End If

 
   End Sub

    Private Sub cmddel_Click
(sender As ObjectAs EventArgsHandles cmddel.Click
        dt
.Rows(Me.BindingContext(dt).Position).Delete()
 
       da.Update(dt)
 
       gd()
 
       MsgBox("تم الحذف بنجاح")
 
   End Sub
End 
Class 
طبعا اضفت اجراءين oncon و ofcon
واقصد فتح الاتصال واغلاقه لكن بالمثال هذا لا نحتاج لفتح الاتصال وانما فقط للغلق 
وضعت ofcon باجراء جلب البيانات gd
وان ظلت القاعدة مفتوحة فهذا يعني نحتاج وضع الاجراء بعد كل عملية تحديث(اضافة-تعديل-حذف)
الرد }}}
تم الشكر بواسطة: رهف العريفي , hassan
#5
اخ سعود الله يعطيك العافية ي رب مشكور م قصريت جزيت خيرا ...  انا اريد فقط جلب الصور لل pic  لا يوجد تعديل ولاحذف ولا تحديث

لان الكود الكثير يلخبطني شوي  فقط راح ابحث عن الصورة بواسطه combo box  و text box  اتمنت ارفق لك المثال بس رفض التحميل من الموقع

راح يكون عند 2 button للتنقل بين الصور  ووفقك الله انظر للصورة المرفقة
الرد }}}
تم الشكر بواسطة:
#6
التعديل بسيط جدا
نضيف اداة كومبوبوكس ونربطها عن طريق data source
وعند تغيير القيمة في الكومبوكس تتغير الموضع في الداتاتيبل
الرد }}}
تم الشكر بواسطة: رهف العريفي , رهف العريفي
#7
هذا المثال اتحمل معي

اخي سعود اسفه ع الأطاله اخيرا رضى يتحمل معي المثال علما بأن البحث

بواسطه ال textboc عن طريق ال ID ياريت بس تعدل لي داخل البروجت لان يصعب علي فرز الكود وعندي صعوبة ف فهم الكود والله يجزاك كل خير
الرد }}}
تم الشكر بواسطة:
#8
دالة addpic فيها خطا اسناد الصورة لحقل رقم 0 وهو للايدي بينما رقم حقل الصورة هو 1 لقد عدلت على الكود بالمشاركة
الرد }}}
تم الشكر بواسطة: رهف العريفي
#9
ممكن ترفق لي المثال
الرد }}}
تم الشكر بواسطة:
#10

PHP كود :
Public Class Form1
    Dim con 
As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
 
   Dim dt As DataTable
    Dim da 
As OleDb.OleDbDataAdapter
    Dim cmdb 
As OleDb.OleDbCommandBuilder
    Private Sub oncon
()
 
       Try
            con
.Open()
 
       Catch ex As Exception

        End 
Try
 
   End Sub
    Private Sub ofcon
()
 
       Try
            con
.Close()
 
       Catch ex As Exception

        End 
Try
 
   End Sub

    Private Sub gd
()
 
       PictureBox1.DataBindings.Clear()
 
       PictureBox1.Image Nothing
        dt 
= New DataTable
        da 
= New OleDb.OleDbDataAdapter("select * from tb"con)
 
       cmdb = New OleDb.OleDbCommandBuilder(da)
 
       da.Fill(dt)
 
       PictureBox1.DataBindings.Add("image"dt"pic"True)
 
       ComboBox1.DataSource dt
        ComboBox1
.DisplayMember "picname"
 
       ofcon()
 
   End Sub
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        gd
()
 
   End Sub





    Private 
Function addpic(ByVal b() As ByteByVal t As String) As Boolean
        
' Try
        Dim row As DataRow = dt.NewRow
        row(1) = b
        row(2) = t
        dt.Rows.Add(row)
        da.Update(dt)
        Return True
        gd()
        ' 
 Catch ex As Exception
        
'Return False
        ' 
 End Try
 
   End Function

 
   Private Function edpic(ByVal b() As Byte) As Boolean
        
' Try
        Dim row As DataRow = dt.Rows(Me.BindingContext(dt).Position)
        row.BeginEdit()
        row(1) = b
        row.EndEdit()
        da.Update(dt)
        Return True
        gd()
        ' 
 Catch ex As Exception
        
'Return False
        ' 
 End Try
 
   End Function






 
   Private Sub Button2_Click(sender As ObjectAs EventArgsHandles Button2.Click
        Me
.BindingContext(dt).Position -= 1
    End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Me
.BindingContext(dt).Position += 1

    End Sub

    Private Sub cmdnew_Click
(sender As ObjectAs EventArgsHandles cmdnew.Click
        Dim o 
As New OpenFileDialog
        If o
.ShowDialog Windows.Forms.DialogResult.OK Then
            If addpic
(My.Computer.FileSystem.ReadAllBytes(o.FileName), IO.Path.GetFileNameWithoutExtension(o.FileName)) Then
                MsgBox
("تم حفظ الصورة بنجاح")
 
           Else
                MsgBox
("حدث خطا"MsgBoxStyle.Critical"")
 
           End If
 
       End If
 
   End Sub

    Private Sub cmdedit_Click
(sender As ObjectAs EventArgsHandles cmdedit.Click
        Dim o 
As New OpenFileDialog
        If o
.ShowDialog Windows.Forms.DialogResult.OK Then
            If edpic
(My.Computer.FileSystem.ReadAllBytes(o.FileName)) Then
                MsgBox
("تم التعديل  بنجاح")
 
           Else
                MsgBox
("حدث خطا"MsgBoxStyle.Critical"")
 
           End If
 
       End If

 
   End Sub

    Private Sub cmddel_Click
(sender As ObjectAs EventArgsHandles cmddel.Click
        dt
.Rows(Me.BindingContext(dt).Position).Delete()
 
       da.Update(dt)
 
       gd()
 
       MsgBox("تم الحذف بنجاح")
 
   End Sub

    
    Private Sub cmdAll_Click
(sender As ObjectAs EventArgsHandles cmdAll.Click
        For Each row 
As DataRow In dt.Rows
            row
.Delete()
 
       Next
        da
.Update(dt)
 
       MsgBox("تم حذف الكل")
 
   End Sub

    Private Sub TextBox1_KeyDown
(sender As ObjectAs KeyEventArgsHandles TextBox1.KeyDown
        If e
.KeyData Keys.Enter Then
            If TextBox1
.Text.Trim "" Then Exit Sub
            
' ComboBox1.SelectedText = TextBox1.Text
            ComboBox1.SelectedIndex = ComboBox1.FindString(TextBox1.Text)
            TextBox1.Clear()
            TextBox1.Select()
            TextBox1.Focus()

        End If
    End Sub

    Private Sub TextBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseClick
        If e.Button = Windows.Forms.MouseButtons.Left Then
            TextBox1.Clear()
        End If
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class 


الملفات المرفقة
.zip   QuickExample.zip (الحجم : 108.34 ك ب / التحميلات : 62)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  السلام عليكم رشاد حبيب 2 200 12-03-24, 02:43 PM
آخر رد: رشاد حبيب
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 274 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  [VB.NET] كود حفظ الصور والبيانات مره وحده مبرمج صغير 1 2 251 12-01-24, 03:04 PM
آخر رد: مبرمج صغير 1
  السلام عليكم رشاد حبيب 3 304 27-12-23, 01:25 PM
آخر رد: رشاد حبيب
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني

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


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