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

اعمل علي داتا بيز اكسيس 2007 - وضع الاتصال المنفصل - فيجول بيسك دوت نت

عندي كود لاضافة ملفات مختلفة لقاعدة البيانات  الكود فية مشكلة في الاضافة رغم ان البيانات بتتنقل عادي باسمائها بحقل تيكست  وايضا حقل تحويل الملف الي بايت

  OLEObject

بقاعدة البيانات بس في مشكلة في الاضافة و عدم الحذف وعدم الاستعادة ورسالة خطاء عند الاضافة

[صورة مرفقة: Untitled-6.jpg?dl=0]

الاكواد كالاتي اضافة ملف -  حذف - استعادة

كود :
  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addpdf.Click
       Try ' اضافة  add file to access 2007
           Using ofd As New OpenFileDialog
               ofd.Filter = "Pdf files (*.pdf)|*.pdf|All Files (*.*)|*.*"
               ofd.FilterIndex = 1
               If ofd.ShowDialog = DialogResult.OK Then
                   If BindingSource1.Find("type_prod", ofd.FileName) = -1 Then
                       Dim drv As DataRowView = CType(BindingSource1.Current, DataRowView)
                       drv("type_prod") = ofd.FileName
                       drv("pic_prod") = IO.File.ReadAllBytes(ofd.FileName)
                       BindingSource1.EndEdit()
                       con.Open()
                       DataAdapter1.Update(DataSet1.Tables("purch_tb"))
                       con.Close()
                   Else
                       MessageBox.Show("الملف موجود بالفعل.", "اضافة ملف...")
                   End If
               End If
           End Using
       Catch ex As Exception

           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try

   End Sub

   
   Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delete.Click
       '  حذف delete file to access 2007
       If DataGridView1.SelectedRows.Count > 0 Then
           Dim dr As DialogResult = MessageBox.Show("هل تريد حذف الملف?", "حذف الملف...", MessageBoxButtons.YesNo)
           If dr = DialogResult.Yes Then
               BindingSource1.RemoveCurrent()

               con.Open()
               DataAdapter1.Update(DataSet1.Tables("purch_tb"))
               con.Close()
           End If
       End If
   End Sub

   Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles restore.Click
       ' استعادة restore file to access 2007
       If DataGridView1.SelectedRows.Count > 0 Then
           Dim drv As DataRowView = CType(BindingSource1.Current, DataRowView)
           Dim filename As String = drv("type_prod").ToString
           If IO.File.Exists(filename) Then
               Dim dr As DialogResult = MessageBox.Show("الملف المختار موجود ?", "استعادةالملف...", MessageBoxButtons.YesNo)
               If dr = DialogResult.No Then Exit Sub
           End If
           IO.File.WriteAllBytes(filename, CType(drv("pic_prod"), Byte()))
           Process.Start(filename)
           MessageBox.Show("تم استعادة الملف..." & vbNewLine & filename, "Restore File...")
       End If
   End Sub


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
مجهود رائع

ممكن طلب ان تضع كود الحذف وفقا لطريقتك
وان يتم وضع الملف في الصف المحدد وليس اضافة صف جديد
وهل يوجد طريقة لوضع فولدر كامل داخل خلية بية مجموعة ملفات واعادتها بنفس طرييقتك
الرد
تم الشكر بواسطة:
#3
(13-11-17, 06:44 AM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
لقد قمت بإنشاء مشروع يحاكي ما طلبت أتمنى أن تتقبله مني
المشروع :

وهذا فيديو يشرح فكرة البرنامج :




أتمنى لك التوفيق

شكراً لك، ولكن بعد التحميل الأرشيف يظهر لي وكأنه معطوب لا يمكن فكه
   
أرجو أن تتكرم بضغطه من جديد ورفعه لنا
فاعلم أنه لا إله إلا الله
الرد
تم الشكر بواسطة:
#4
(13-11-17, 02:00 PM)السندبااد كتب :
(13-11-17, 06:44 AM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
لقد قمت بإنشاء مشروع يحاكي ما طلبت أتمنى أن تتقبله مني
المشروع :

وهذا فيديو يشرح فكرة البرنامج :




أتمنى لك التوفيق

شكراً لك، ولكن بعد التحميل الأرشيف يظهر لي وكأنه معطوب لا يمكن فكه

أرجو أن تتكرم بضغطه من جديد ورفعه لنا

يبدو ان برنامج الوين رار تبعك يحتاج الى نسخة أحدث الى سندباد
الرد
تم الشكر بواسطة: السندبااد
#5
كلامك في محله أخي العزيز (أبو روضة)
إن كان بالإمكان أرجو ضغطه بالوينزب الخاص بنظام ويندوز فهذا أضمن لفتح الملف
فاعلم أنه لا إله إلا الله
الرد
تم الشكر بواسطة:
#6
السلام عليكم ورحمة الله وبركاته
هذه نسخة أخرى : 
.zip   khodor1985 - StoreFileDB.zip (الحجم : 1,022.09 ك ب / التحميلات : 73)
الرد
تم الشكر بواسطة: السندبااد
#7
أخي هل من الممكن ان تضع الكود ...إصدار البرنامج مختلف عن إصداري
الرد
تم الشكر بواسطة:
#8
(17-05-18, 05:16 AM)ilyeso2 كتب : أخي هل من الممكن ان تضع الكود ...إصدار البرنامج مختلف عن إصداري


عفواً اخى الموضوع قديم

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#9
(13-11-17, 03:40 AM)Mohammed Ismail كتب : Heart Thank you so much, this will help my project in thesis

السلام عليكم

ادعم على Data بيز اكسيس 2007 - Separate connection mode - فيجول بيسك DotNet I

have a code to add different files to the database code is a problem in the add-in, although the data is moving in plain names in the field of texast and also the file conversion field to bytes

  OLEObject

in the database b. A problem with the addition and non - deletion and non - restoration and error message when

[صورة مرفقة: Untitled-6.jpg?dl=0]

adding codes, such as add file - delete - restore

كود :
  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addpdf.Click
       Try ' اضافة  add file to access 2007
           Using ofd As New OpenFileDialog
               ofd.Filter = "Pdf files (*.pdf)|*.pdf|All Files (*.*)|*.*"
               ofd.FilterIndex = 1
               If ofd.ShowDialog = DialogResult.OK Then
                   If BindingSource1.Find("type_prod", ofd.FileName) = -1 Then
                       Dim drv As DataRowView = CType(BindingSource1.Current, DataRowView)
                       drv("type_prod") = ofd.FileName
                       drv("pic_prod") = IO.File.ReadAllBytes(ofd.FileName)
                       BindingSource1.EndEdit()
                       con.Open()
                       DataAdapter1.Update(DataSet1.Tables("purch_tb"))
                       con.Close()
                   Else
                       MessageBox.Show("الملف موجود بالفعل.", "اضافة ملف...")
                   End If
               End If
           End Using
       Catch ex As Exception

           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try

   End Sub

   
   Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delete.Click
       '  حذف delete file to access 2007
       If DataGridView1.SelectedRows.Count > 0 Then
           Dim dr As DialogResult = MessageBox.Show("هل تريد حذف الملف?", "حذف الملف...", MessageBoxButtons.YesNo)
           If dr = DialogResult.Yes Then
               BindingSource1.RemoveCurrent()

               con.Open()
               DataAdapter1.Update(DataSet1.Tables("purch_tb"))
               con.Close()
           End If
       End If
   End Sub

   Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles restore.Click
       ' استعادة restore file to access 2007
       If DataGridView1.SelectedRows.Count > 0 Then
           Dim drv As DataRowView = CType(BindingSource1.Current, DataRowView)
           Dim filename As String = drv("type_prod").ToString
           If IO.File.Exists(filename) Then
               Dim dr As DialogResult = MessageBox.Show("الملف المختار موجود ?", "استعادةالملف...", MessageBoxButtons.YesNo)
               If dr = DialogResult.No Then Exit Sub
           End If
           IO.File.WriteAllBytes(filename, CType(drv("pic_prod"), Byte()))
           Process.Start(filename)
           MessageBox.Show("تم استعادة الملف..." & vbNewLine & filename, "Restore File...")
       End If
   End Sub

(13-11-17, 03:40 AM)Mohammed Ismail كتب : Heart Thank you so much, this will help my project in thesis

السلام عليكم

ادعم على Data بيز اكسيس 2007 - Separate connection mode - فيجول بيسك DotNet I

have a code to add different files to the database code is a problem in the add-in, although the data is moving in plain names in the field of texast and also the file conversion field to bytes

  OLEObject

in the database b. A problem with the addition and non - deletion and non - restoration and error message when

[صورة مرفقة: Untitled-6.jpg?dl=0]

adding codes, such as add file - delete - restore

كود :
  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addpdf.Click
       Try ' اضافة  add file to access 2007
           Using ofd As New OpenFileDialog
               ofd.Filter = "Pdf files (*.pdf)|*.pdf|All Files (*.*)|*.*"
               ofd.FilterIndex = 1
               If ofd.ShowDialog = DialogResult.OK Then
                   If BindingSource1.Find("type_prod", ofd.FileName) = -1 Then
                       Dim drv As DataRowView = CType(BindingSource1.Current, DataRowView)
                       drv("type_prod") = ofd.FileName
                       drv("pic_prod") = IO.File.ReadAllBytes(ofd.FileName)
                       BindingSource1.EndEdit()
                       con.Open()
                       DataAdapter1.Update(DataSet1.Tables("purch_tb"))
                       con.Close()
                   Else
                       MessageBox.Show("الملف موجود بالفعل.", "اضافة ملف...")
                   End If
               End If
           End Using
       Catch ex As Exception

           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try

   End Sub

   
   Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delete.Click
       '  حذف delete file to access 2007
       If DataGridView1.SelectedRows.Count > 0 Then
           Dim dr As DialogResult = MessageBox.Show("هل تريد حذف الملف?", "حذف الملف...", MessageBoxButtons.YesNo)
           If dr = DialogResult.Yes Then
               BindingSource1.RemoveCurrent()

               con.Open()
               DataAdapter1.Update(DataSet1.Tables("purch_tb"))
               con.Close()
           End If
       End If
   End Sub

   Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles restore.Click
       ' استعادة restore file to access 2007
       If DataGridView1.SelectedRows.Count > 0 Then
           Dim drv As DataRowView = CType(BindingSource1.Current, DataRowView)
           Dim filename As String = drv("type_prod").ToString
           If IO.File.Exists(filename) Then
               Dim dr As DialogResult = MessageBox.Show("الملف المختار موجود ?", "استعادةالملف...", MessageBoxButtons.YesNo)
               If dr = DialogResult.No Then Exit Sub
           End If
           IO.File.WriteAllBytes(filename, CType(drv("pic_prod"), Byte()))
           Process.Start(filename)
           MessageBox.Show("تم استعادة الملف..." & vbNewLine & filename, "Restore File...")
       End If
   End Sub
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية اضافة اسم وصورة المنتج في الفورم نور الهدى الهدى 2 86 18-07-19, 10:29 PM
آخر رد: asemshahen5
  [VB.NET] عندما يكون حقل فارغ في داتا جريد فيو منع اضافة حقل جديد khairallah 0 55 12-07-19, 10:13 PM
آخر رد: khairallah
  فلتره الملفات في ال WebBrowser معاذ_ابراهيم 4 246 10-07-19, 08:52 PM
آخر رد: معاذ ابراهيم
  [سؤال] استفسار عن حفظ ومسح الملفات mostafa nada 3 97 07-07-19, 11:15 PM
آخر رد: elgokr
  جلب الملفات بالأسم فقط ابو روضة 12 805 27-06-19, 03:04 PM
آخر رد: محمد ف
Information [سؤال] كيفية جعل المشروع يحفظ الملفات في مجلد بالحاسوب مهما تغيير مكان تنصيب المشروع الرائد 3 178 09-06-19, 05:21 AM
آخر رد: ابراهيم ايبو
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 8 241 05-06-19, 03:40 AM
آخر رد: heshamelkomy71
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 11 420 04-06-19, 03:12 PM
آخر رد: elgokr
  [VB.NET] اضافة ايقونة لصفوف الداتاجريد فيو محمد اسماعيل 5 242 17-05-19, 10:33 PM
آخر رد: محمد اسماعيل
  [سؤال] حل مشكلة عدم وجود اضافة vlc في فجويل حاتمي 2 153 16-05-19, 02:11 PM
آخر رد: حاتمي

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


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