[sun_sweet]

شكرا جزيلا

[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 وهو اول سطر التى تتحدث عنه دائماً يتم جلب الملف الخاص به
يفضل مراجعة الموضوع والمرفق جيداً وسيتم حل المشكلة

[hanyteto]

(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 وهو اول سطر التى تتحدث عنه دائماً يتم جلب الملف الخاص به
يفضل مراجعة الموضوع والمرفق جيداً وسيتم حل المشكلة

[haithammoftah]

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

[سعود]

(23-12-21, 12:47 PM)haithammoftah كتب : السلام عليكم ورحمة الله
هل ممكن عرض ايقونة الملف بدلا من الامتداد في عمود من اعمدة الداتا فيو

خذ من المثال الجزئية اللتي ذكرتها فقط.

[أبو خالد الشكري]

شكرا جزيلا لك
هذا إبداع رائع جدا

ولكن تبقى أن تعمل تطبيق يعمل على VB6

أرجو أن تعمله حتى تتكامل المنظومة Vb.net و SQL و VB6

أنتظر ردك ، وشكرا