منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] لدي ثلاث اسئله - نسخة قابلة للطباعة

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



لدي ثلاث اسئله - منه - 02-08-20

السلام عليكم ورحمه الله وبركاته
اولا قبل اي شي ارجوا التماس العزى لي اذا كان السؤال مش في قسم الاسئلة لاني مش عارفه أضعه في مكانه 
لدي ثلاث اسئله 
السؤال الاول هو هل في كود او اكواد لتحويل الملفات من ورد الي اكسيل أو العكس أو  pdf وهكذا ولو فيه ممكن الكود
السؤال الثاني هو انا عندي جريد فيو وضايفه فيه بيانات عن طريق الداتا رو مش قاعده البيانات انا اريد اريد تحديد اعمده معينه وحفظها في قاعد البيانات 
السؤال الثالث هو نفس السؤال الثاني بس في الجريد كنترول الخاصة بمجموعة الديف اكسبريس  وثانيه ارجوا ار تسامحوني لاني لا احسن استخدام الموقع وشكرا


RE: لدي ثلاث اسئله - منه - 02-08-20

ممكن رد ياجماعه


RE: لدي ثلاث اسئله - Anas Mahmoud - 02-08-20

السؤال الاول :

يجب اضافة مرجع word الى المشروع
[attachment=25346]
[attachment=25347]
ومن ثم كود التحويل هو :
كود :
        Dim appWord As New Microsoft.Office.Interop.Word.Application()
        Dim wordDocument As Microsoft.Office.Interop.Word.Document
        wordDocument = appWord.Documents.Open("E:\x.docx")
        wordDocument.ExportAsFixedFormat("E:\x.pdf", Microsoft.Office.Interop.Word.WdExportFormat.wdExportFormatPDF)
https://stackoverflow.com/a/19560309


RE: لدي ثلاث اسئله - منه - 02-08-20

طيب ممكن جواب علي باقي الأسئلة


RE: لدي ثلاث اسئله - atefkhalf2004 - 02-08-20

استكمالا لسؤال الزميلة
خطوات تفعيل ديف 17.2 الاصدار 17
وكيف اذا كان المشروع به ديف 18
كيف اخليها 17 بعد حذف 18 واضافة الاصدار 17 مرة اخري


RE: لدي ثلاث اسئله - منه - 03-08-20

مفيش رد ياجماعه


RE: لدي ثلاث اسئله - Anas Mahmoud - 04-08-20

اختيار الاعمدة التي يتم اضافتها لقاعدة البيانات :
تعريف متغيرات للاعمدة المطلوب اضافتها ، ومن ثم اسناد قيم لها باستخدام حلقة تكرارية 
ومن ثم اضافتها لقاعدة البيانات حسب نوع قاعدة البيانات والتقنية المستخدمة

ايجاد الاعمدة عن طريق اسم العمود في الداتا جريد :
كود :
       Dim ProdName As String
       Dim Price As Double

       For Each r As DataGridViewRow In DataGridView1.Rows

           ProdName = r.Cells("ProdName").Value
           Price = r.Cells("Price").Value

           'كود اضافة ProdName و Price  لقاعدة البيانات

       Next


ايجاد الاعمدة عن طريق رقم index العمود في الداتا جريد :




كود :
       Dim ProdName As String
       Dim Price As Double

       For Each r As DataGridViewRow In DataGridView1.Rows

            ProdName = r.Cells(1).Value

            Price = r.Cells(2).Value

           'كود اضافة ProdName و Price  لقاعدة البيانات

       Next