تقييم الموضوع :
  • 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 ك ب / التحميلات : 25)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 1 65 أمس, 03:22 AM
آخر رد: abid
  الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو makky 2 87 08-12-16, 11:16 AM
آخر رد: superwoofer
  [سؤال] مطلوب كود ربط combo box بقاعدة بيانات (اكسيس) BLACKBROWN5 1 38 07-12-16, 02:14 PM
آخر رد: tryold
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 4 105 07-12-16, 01:11 AM
آخر رد: adel27
  [سؤال] مثال عن نسخ جدول من مستند وورد لمستند وورد آخر omran.a 3 56 05-12-16, 03:53 PM
آخر رد: sendbad100
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 107 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 67 03-12-16, 07:07 PM
آخر رد: ابراهيم النعيمي
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 58 03-12-16, 06:59 PM
آخر رد: sal.softip
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 224 03-12-16, 04:47 PM
آخر رد: صبري زينوبي
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 111 26-11-16, 03:03 AM
آخر رد: hglogtd

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


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