[منه]

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

[منه]

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

[Anas Mahmoud]

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

يجب اضافة مرجع word الى المشروع
   
   
ومن ثم كود التحويل هو :

كود :

        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

[منه]

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

[atefkhalf2004]

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

[منه]

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

[Anas Mahmoud]

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

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

كود :

       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