+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مشروع] اضافة وعرض اى نوع من الملفات داخل قاعدة بيانات SQL (/showthread.php?tid=28906)
الصفحات:
1
2
RE: اضافة وعرض اى نوع من الملفات داخل قاعدة بيانات SQL - sun_sweet - 29-09-20
شكرا جزيلا
RE: اضافة وعرض اى نوع من الملفات داخل قاعدة بيانات SQL - kiki - 29-09-20
(04-04-20, 03:43 AM)محمد العامر كتب : السلام عليكم ورحمة الله وبركاته
يعطيك العافيه وبارك الله فيك
انا عني مشكلة في فتح الملف وهي عرض أول ملف مرفق في GridView فقط يعني إذا أرفقط ملف أخر وقمت بفتحه يتم فتح أول ملف GridView فقط.
كود :
' التحقق اذا كان الداتا جريد ممتلئة ام فارغة لتنفيذ كود فتح الملف
If (GridView1.RowCount > 0) Then
' تحويل الكود المسجل بقاعدة البيانات الى ملف
Dim ff() As Byte = CType(dt.Rows(DgId)(3), Byte())
Dim FPath = Application.StartupPath & "\" & dt.Rows(DgId)(1).ToString() & dt.Rows(DgId)(2).ToString()
Dim FFS As FileStream = New FileStream(FPath, FileMode.Create, FileAccess.Write)
FFS.Write(ff, 0, ff.Length)
FFS.Close()
' تنفيذ فتح الملف بعد انشائه بالكود السابق
Process.Start(FPath)
Else
' رسالة تنبيه بان الداتا جريد فارغة
MsgBox("Please Add Any Data So You Can Open File Selecte
مرحباً اخى بخصوص الكود الخاص بك هل من الممكن توضيح اين تعريف DgId
اجد فى كل الاكواد وجود DgId كا قيمة ولكن غير معرفة واذا كانت بلا قيمة وانها تم تعريفها من نوع رقم
فيصبح القيمة الافتراضية دائماً 0 وهو اول سطر التى تتحدث عنه دائماً يتم جلب الملف الخاص به
يفضل مراجعة الموضوع والمرفق جيداً وسيتم حل المشكلة
RE: اضافة وعرض اى نوع من الملفات داخل قاعدة بيانات SQL - hanyteto - 30-01-21
(29-09-20, 07:05 PM)kiki كتب :(04-04-20, 03:43 AM)محمد العامر كتب : السلام عليكم ورحمة الله وبركاته
يعطيك العافيه وبارك الله فيك
انا عني مشكلة في فتح الملف وهي عرض أول ملف مرفق في GridView فقط يعني إذا أرفقط ملف أخر وقمت بفتحه يتم فتح أول ملف GridView فقط.
كود :
' التحقق اذا كان الداتا جريد ممتلئة ام فارغة لتنفيذ كود فتح الملف
If (GridView1.RowCount > 0) Then
' تحويل الكود المسجل بقاعدة البيانات الى ملف
Dim ff() As Byte = CType(dt.Rows(DgId)(3), Byte())
Dim FPath = Application.StartupPath & "\" & dt.Rows(DgId)(1).ToString() & dt.Rows(DgId)(2).ToString()
Dim FFS As FileStream = New FileStream(FPath, FileMode.Create, FileAccess.Write)
FFS.Write(ff, 0, ff.Length)
FFS.Close()
' تنفيذ فتح الملف بعد انشائه بالكود السابق
Process.Start(FPath)
Else
' رسالة تنبيه بان الداتا جريد فارغة
MsgBox("Please Add Any Data So You Can Open File Selecte
مرحباً اخى بخصوص الكود الخاص بك هل من الممكن توضيح اين تعريف DgId
اجد فى كل الاكواد وجود DgId كا قيمة ولكن غير معرفة واذا كانت بلا قيمة وانها تم تعريفها من نوع رقم
فيصبح القيمة الافتراضية دائماً 0 وهو اول سطر التى تتحدث عنه دائماً يتم جلب الملف الخاص به
يفضل مراجعة الموضوع والمرفق جيداً وسيتم حل المشكلة
RE: اضافة وعرض اى نوع من الملفات داخل قاعدة بيانات SQL - haithammoftah - 23-12-21
السلام عليكم ورحمة الله
هل ممكن عرض ايقونة الملف بدلا من الامتداد في عمود من اعمدة الداتا فيو
RE: اضافة وعرض اى نوع من الملفات داخل قاعدة بيانات SQL - سعود - 23-12-21
(23-12-21, 12:47 PM)haithammoftah كتب : السلام عليكم ورحمة الله
هل ممكن عرض ايقونة الملف بدلا من الامتداد في عمود من اعمدة الداتا فيو
خذ من المثال الجزئية اللتي ذكرتها فقط.
RE: اضافة وعرض اى نوع من الملفات داخل قاعدة بيانات SQL - أبو خالد الشكري - 18-07-22
شكرا جزيلا لك
هذا إبداع رائع جدا
ولكن تبقى أن تعمل تطبيق يعمل على VB6
أرجو أن تعمله حتى تتكامل المنظومة Vb.net و SQL و VB6
أنتظر ردك ، وشكرا