المشاركات : 244
المواضيع 94
الإنتساب : Dec 2016
السمعة :
8
الشكر: 809
تم شكره 246 مرات في 156 مشاركات
01-08-22, 07:28 AM
(آخر تعديل لهذه المشاركة : 01-08-22, 07:36 AM {2} بواسطة جيولوجي مبتدئ.)
السلام عليكم ورجمة الله وبركاته
عندي ملفات pdf مخزنة داخل قاعدة بيانات sql فقط وليست مخزنة في مجلدات أو فولدرات داخل الجهاز
السؤال كيف أستطيع فتح هذه الملفات من الداتاقريد فيو ؟ يعني مثلا اضغط كليك على السطر أو السجل المطلوب فيفتج لي ملف pdf
علماً أن المسار Path غير مخزن في قاعدة البيانات
لكم جزيل الشكر
دمتم بود
المشاركات : 360
المواضيع 41
الإنتساب : Nov 2019
السمعة :
89
الشكر: 798
تم شكره 736 مرات في 325 مشاركات
(01-08-22, 07:28 AM)جيولوجي مبتدئ كتب : السلام عليكم ورجمة الله وبركاته
عندي ملفات pdf مخزنة داخل قاعدة بيانات sql فقط وليست مخزنة في مجلدات أو فولدرات داخل الجهاز
السؤال كيف أستطيع فتح هذه الملفات من الداتاقريد فيو ؟ يعني مثلا اضغط كليك على السطر أو السجل المطلوب فيفتج لي ملف pdf
علماً أن المسار Path غير مخزن في قاعدة البيانات
لكم جزيل الشكر
دمتم بود
و عليكم السلام ورحمة الله و بركاته
انظر الرابط التالي
https://social.msdn.microsoft.com/Forums...spwebforms
المشاركات : 342
المواضيع 20
الإنتساب : May 2018
السمعة :
75
الشكر: 32
تم شكره 857 مرات في 338 مشاركات
01-08-22, 03:54 PM
(آخر تعديل لهذه المشاركة : 01-08-22, 03:57 PM {2} بواسطة aljzazy.)
اذا كانت البيانات مخزنة على شكل Binary
كود :
Dim dt_pdf As New DataTable
Dim DgId As Integer
Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
DgId = e.RowIndex
End Sub
' تحويل الكود المسجل بقاعدة البيانات الى ملف
Dim ff() As Byte = CType(dt_pdf.Rows(DgId)(4), Byte())
Dim FPath = Application.StartupPath & "\" & dt_pdf.Rows(DgId)(2).ToString() & dt_pdf.Rows(DgId)(3).ToString()
Dim FFS As FileStream = New FileStream(FPath, FileMode.Create, FileAccess.Write)
FFS.Write(ff, 0, ff.Length)
FFS.Close()
' تنفيذ فتح الملف بعد انشائه بالكود السابق
Process.Start(FPath)
المشاركات : 244
المواضيع 94
الإنتساب : Dec 2016
السمعة :
8
الشكر: 809
تم شكره 246 مرات في 156 مشاركات
السلام عليكم ورحمة الله وبركاته
ِأشكركم إخواني على ردكم والله يجزيكم بالخير
بالنسبة asmarsou حاولت أفهم وأحول الكود لكم لم أستطع
وبالنسبة للأخ [b]aljzazy هذا الجزء من الكود هل أضعه في button أم في حدث كليك للداتاقريد فيو [/b]
Dim ff() As Byte = CType(dt_pdf.Rows(DgId)(4), Byte())
Dim FPath = Application.StartupPath & "\" & dt_pdf.Rows(DgId)(2).ToString() & dt_pdf.Rows(DgId)(3).ToString()
Dim FFS As FileStream = New FileStream(FPath, FileMode.Create, FileAccess.Write)
FFS.Write(ff, 0, ff.Length)
FFS.Close()
' تنفيذ فتح الملف بعد انشائه بالكود السابق
Process.Start(FPath)
ثاني حاجة بالنسبة للخلايا التي جعلتها باللون الأزرق تشير إلى ماذا ؟
أسف على كثرة الأسئلة
لكم جزيل الشكر
دمتم بود
المشاركات : 360
المواضيع 41
الإنتساب : Nov 2019
السمعة :
89
الشكر: 798
تم شكره 736 مرات في 325 مشاركات
(01-08-22, 06:43 PM)جيولوجي مبتدئ كتب : السلام عليكم ورحمة الله وبركاته
ِأشكركم إخواني على ردكم والله يجزيكم بالخير
بالنسبة asmarsou حاولت أفهم وأحول الكود لكم لم أستطع
وبالنسبة للأخ [b]aljzazy هذا الجزء من الكود هل أضعه في button أم في حدث كليك للداتاقريد فيو [/b]
Dim ff() As Byte = CType(dt_pdf.Rows(DgId)(4), Byte())
Dim FPath = Application.StartupPath & "\" & dt_pdf.Rows(DgId)(2).ToString() & dt_pdf.Rows(DgId)(3).ToString()
Dim FFS As FileStream = New FileStream(FPath, FileMode.Create, FileAccess.Write)
FFS.Write(ff, 0, ff.Length)
FFS.Close()
' تنفيذ فتح الملف بعد انشائه بالكود السابق
Process.Start(FPath)
ثاني حاجة بالنسبة للخلايا التي جعلتها باللون الأزرق تشير إلى ماذا ؟
أسف على كثرة الأسئلة
لكم جزيل الشكر
دمتم بود
و عليكم السلام و رحمة الله و بركاته
كاضافة فقط اليك بهذا الرابط لموقع لتحويل الاكواد من و الى عدة لغات برمجية .. ان لم يفدك في تحويل اكواد الموضوع السابق فسيساعدك فيما سواه
https://www.carlosag.net/tools/codetranslator/
المشاركات : 244
المواضيع 94
الإنتساب : Dec 2016
السمعة :
8
الشكر: 809
تم شكره 246 مرات في 156 مشاركات
(01-08-22, 07:16 PM)asmarsou كتب : (01-08-22, 06:43 PM)جيولوجي مبتدئ كتب : السلام عليكم ورحمة الله وبركاته
ِأشكركم إخواني على ردكم والله يجزيكم بالخير
بالنسبة asmarsou حاولت أفهم وأحول الكود لكم لم أستطع
وبالنسبة للأخ [b]aljzazy هذا الجزء من الكود هل أضعه في button أم في حدث كليك للداتاقريد فيو [/b]
Dim ff() As Byte = CType(dt_pdf.Rows(DgId)(4), Byte())
Dim FPath = Application.StartupPath & "\" & dt_pdf.Rows(DgId)(2).ToString() & dt_pdf.Rows(DgId)(3).ToString()
Dim FFS As FileStream = New FileStream(FPath, FileMode.Create, FileAccess.Write)
FFS.Write(ff, 0, ff.Length)
FFS.Close()
' تنفيذ فتح الملف بعد انشائه بالكود السابق
Process.Start(FPath)
ثاني حاجة بالنسبة للخلايا التي جعلتها باللون الأزرق تشير إلى ماذا ؟
أسف على كثرة الأسئلة
لكم جزيل الشكر
دمتم بود
و عليكم السلام و رحمة الله و بركاته
كاضافة فقط اليك بهذا الرابط لموقع لتحويل الاكواد من و الى عدة لغات برمجية .. ان لم يفدك في تحويل اكواد الموضوع السابق فسيساعدك فيما سواه
https://www.carlosag.net/tools/codetranslator/
إن شاء الله اجرب مرة أخرى أشكرك على مجهودك
لك جزيل الشكر
دمت بود
المشاركات : 244
المواضيع 94
الإنتساب : Dec 2016
السمعة :
8
الشكر: 809
تم شكره 246 مرات في 156 مشاركات
(02-08-22, 01:28 AM)جيولوجي مبتدئ كتب : (01-08-22, 07:16 PM)asmarsou كتب : (01-08-22, 06:43 PM)جيولوجي مبتدئ كتب : السلام عليكم ورحمة الله وبركاته
ِأشكركم إخواني على ردكم والله يجزيكم بالخير
بالنسبة asmarsou حاولت أفهم وأحول الكود لكم لم أستطع
وبالنسبة للأخ [b]aljzazy هذا الجزء من الكود هل أضعه في button أم في حدث كليك للداتاقريد فيو [/b]
Dim ff() As Byte = CType(dt_pdf.Rows(DgId)(4), Byte())
Dim FPath = Application.StartupPath & "\" & dt_pdf.Rows(DgId)(2).ToString() & dt_pdf.Rows(DgId)(3).ToString()
Dim FFS As FileStream = New FileStream(FPath, FileMode.Create, FileAccess.Write)
FFS.Write(ff, 0, ff.Length)
FFS.Close()
' تنفيذ فتح الملف بعد انشائه بالكود السابق
Process.Start(FPath)
ثاني حاجة بالنسبة للخلايا التي جعلتها باللون الأزرق تشير إلى ماذا ؟
أسف على كثرة الأسئلة
لكم جزيل الشكر
دمتم بود
و عليكم السلام و رحمة الله و بركاته
كاضافة فقط اليك بهذا الرابط لموقع لتحويل الاكواد من و الى عدة لغات برمجية .. ان لم يفدك في تحويل اكواد الموضوع السابق فسيساعدك فيما سواه
https://www.carlosag.net/tools/codetranslator/
إن شاء الله اجرب مرة أخرى أشكرك على مجهودك
لك جزيل الشكر
دمت بود
للأسف لم أتوصل لحل المشكلة مقدراً مجهودكم
المشاركات : 360
المواضيع 41
الإنتساب : Nov 2019
السمعة :
89
الشكر: 798
تم شكره 736 مرات في 325 مشاركات
(02-08-22, 06:01 AM)جيولوجي مبتدئ كتب : (02-08-22, 01:28 AM)جيولوجي مبتدئ كتب : (01-08-22, 07:16 PM)asmarsou كتب : (01-08-22, 06:43 PM)جيولوجي مبتدئ كتب : السلام عليكم ورحمة الله وبركاته
ِأشكركم إخواني على ردكم والله يجزيكم بالخير
بالنسبة asmarsou حاولت أفهم وأحول الكود لكم لم أستطع
وبالنسبة للأخ [b]aljzazy هذا الجزء من الكود هل أضعه في button أم في حدث كليك للداتاقريد فيو [/b]
Dim ff() As Byte = CType(dt_pdf.Rows(DgId)(4), Byte())
Dim FPath = Application.StartupPath & "\" & dt_pdf.Rows(DgId)(2).ToString() & dt_pdf.Rows(DgId)(3).ToString()
Dim FFS As FileStream = New FileStream(FPath, FileMode.Create, FileAccess.Write)
FFS.Write(ff, 0, ff.Length)
FFS.Close()
' تنفيذ فتح الملف بعد انشائه بالكود السابق
Process.Start(FPath)
ثاني حاجة بالنسبة للخلايا التي جعلتها باللون الأزرق تشير إلى ماذا ؟
أسف على كثرة الأسئلة
لكم جزيل الشكر
دمتم بود
و عليكم السلام و رحمة الله و بركاته
كاضافة فقط اليك بهذا الرابط لموقع لتحويل الاكواد من و الى عدة لغات برمجية .. ان لم يفدك في تحويل اكواد الموضوع السابق فسيساعدك فيما سواه
https://www.carlosag.net/tools/codetranslator/
إن شاء الله اجرب مرة أخرى أشكرك على مجهودك
لك جزيل الشكر
دمت بود
للأسف لم أتوصل لحل المشكلة مقدراً مجهودكم
لا عليك كنت اتمنى ان افيدك بقدر استطاعتي الا اني لا افهم في الجداول وطريقة ربطها ببعض
فقط القي نظرة على هذا الموضوع
https://stackoverflow.com/questions/1703...a-datagrid
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
الامر بسيط فقط ينقصنا بعض التفاصيل مثل ماهو نوع البيانات اللتي تم تخزين تلك الملفات فيه.
المشاركات : 244
المواضيع 94
الإنتساب : Dec 2016
السمعة :
8
الشكر: 809
تم شكره 246 مرات في 156 مشاركات
02-08-22, 09:46 PM
(آخر تعديل لهذه المشاركة : 02-08-22, 09:55 PM {2} بواسطة جيولوجي مبتدئ.)
(02-08-22, 08:07 PM)asmarsou كتب : (02-08-22, 06:01 AM)جيولوجي مبتدئ كتب : (02-08-22, 01:28 AM)جيولوجي مبتدئ كتب : (01-08-22, 07:16 PM)asmarsou كتب : (01-08-22, 06:43 PM)جيولوجي مبتدئ كتب : السلام عليكم ورحمة الله وبركاته
ِأشكركم إخواني على ردكم والله يجزيكم بالخير
بالنسبة asmarsou حاولت أفهم وأحول الكود لكم لم أستطع
وبالنسبة للأخ [b]aljzazy هذا الجزء من الكود هل أضعه في button أم في حدث كليك للداتاقريد فيو [/b]
Dim ff() As Byte = CType(dt_pdf.Rows(DgId)(4), Byte())
Dim FPath = Application.StartupPath & "\" & dt_pdf.Rows(DgId)(2).ToString() & dt_pdf.Rows(DgId)(3).ToString()
Dim FFS As FileStream = New FileStream(FPath, FileMode.Create, FileAccess.Write)
FFS.Write(ff, 0, ff.Length)
FFS.Close()
' تنفيذ فتح الملف بعد انشائه بالكود السابق
Process.Start(FPath)
ثاني حاجة بالنسبة للخلايا التي جعلتها باللون الأزرق تشير إلى ماذا ؟
أسف على كثرة الأسئلة
لكم جزيل الشكر
دمتم بود
و عليكم السلام و رحمة الله و بركاته
كاضافة فقط اليك بهذا الرابط لموقع لتحويل الاكواد من و الى عدة لغات برمجية .. ان لم يفدك في تحويل اكواد الموضوع السابق فسيساعدك فيما سواه
https://www.carlosag.net/tools/codetranslator/
إن شاء الله اجرب مرة أخرى أشكرك على مجهودك
لك جزيل الشكر
دمت بود
للأسف لم أتوصل لحل المشكلة مقدراً مجهودكم
لا عليك كنت اتمنى ان افيدك بقدر استطاعتي الا اني لا افهم في الجداول وطريقة ربطها ببعض
فقط القي نظرة على هذا الموضوع
https://stackoverflow.com/questions/1703...a-datagrid
بارك الله فيك أعرف أنك وجميع المشاركين في المنتدى يحاولون بقدر مايستطيعون تقديم المساعدة ولا يرجون إلا وجه الله تعالى وسوف أراجع موضوعك
(02-08-22, 08:27 PM)سعود كتب : الامر بسيط فقط ينقصنا بعض التفاصيل مثل ماهو نوع البيانات اللتي تم تخزين تلك الملفات فيه.
حياك الله أستاذ سعود
المشروع في بدايته وفكرتي أن يتم تخزين ملفات pdf في قاعدة البيانات ولا تحفظ داخل مجلد لأسباب السرية وكذلك عدم تكرار تخزينها وهذا يعني عدم وجود path يستخدم في عملية عرض الملف المطلوب يعني أريد أن أفتح الملف مباشر من قاعدة البيانات والجدول المخزن به البيانات بسيط جداً عبارة عن حقلين الأول ID نوعه integer , والحقل الثاني pdf_Save ونوعه VarBinary(Max)
أتمنى الفكرة تكون واضحة
لك جزيل الشكر
دمت بود
|