منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اضافة ملف pdf الى قاعدة بيانات sql server 2012 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اضافة ملف pdf الى قاعدة بيانات sql server 2012 (/showthread.php?tid=36514)

اضافة ملف pdf الى قاعدة بيانات sql server 2012 - moh developer - 25-09-20

السلااااااااااام عليكم اساتذتنا الاعزاء
ممكن مثال او كود او طريقة لاضافة ملف pdf الى  داخل قاعدة بيانات sql server 2012 وليس خارجة او حفظ المسار وطريقة استرجاعها

مع فااااااااائق الشكر والتقدير


RE: اضافة ملف pdf الى قاعدة بيانات sql server 2012 - kiki - 25-09-20

وعليكم السلام ورحمة الله وبركاته
عليك بمراجعة هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=28906

RE: اضافة ملف pdf الى قاعدة بيانات sql server 2012 - moh developer - 25-09-20

(25-09-20, 04:05 AM)kiki كتب : وعليكم السلام ورحمة الله وبركاته
عليك بمراجعة هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=28906


المثال لا يعمل على الحاسبة بسبب عدم تنصيب فورم ورك 4 لانها لا تدعمه
هل ممكن مساعدة عن بطريقة اخرى

RE: اضافة ملف pdf الى قاعدة بيانات sql server 2012 - moh developer - 25-09-20

اتبعت المثال السابق وقمت باضافة حقل التاريخ ماذا يقصد بهذا الخطا
Unable to cast object of type 'System.DateTime' to type 'System.Byte[]'.

RE: اضافة ملف pdf الى قاعدة بيانات sql server 2012 - Anas Mahmoud - 25-09-20

انت تحاول اسناد قيمة من dateTime الى متغير من نوع byte
ضع الكود الذي اظهر لك الخطأ

RE: اضافة ملف pdf الى قاعدة بيانات sql server 2012 - moh developer - 25-09-20

(25-09-20, 02:28 PM)Anas Mahmoud كتب : انت تحاول اسناد قيمة من dateTime الى متغير من نوع byte
ضع الكود الذي اظهر لك الخطأ

  لقد قمت باضافة الملف بنجاح لكن عند ما اقوم بعملية حفظ مجموعة من الكتب الى قاعدة البيانات واضغط على استرجاع الملف يقوم باسترجاع الملف الاول فقط كيف اقوم باخيتار الملف الموجود في رقم السجل المذي تم اخيتارة مع فائق الشكر

Dim ff() As Byte = CType(dt.Rows(DgId)(9), Byte())
            Dim FPath = Application.StartupPath & "\" & dt.Rows(DgId)(2).ToString() & dt.Rows(DgId)(7).ToString()
            Dim FFS As FileStream = New FileStream(FPath, FileMode.Create, FileAccess.Write)
            FFS.Write(ff, 0, ff.Length)
            FFS.Close()
            ' تنفيذ فتح الملف بعد انشائه بالكود السابق
            Process.Start(FPath)