منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

يجب اضافة مرجع 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

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

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

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

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

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

كود :

       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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منه

منه

Anas Mahmoud

منه

atefkhalf2004

منه

Anas Mahmoud