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

(30-08-18, 03:18 AM)waelalmsry75 كتب : [ -> ]إذا كان تطبيق الفكرة على AxAcroPDF فيه مشكلة
فممكن نطبقها على WebBrowser
وشكرا

كيف ذلك أخي الكريم ؟
أرجو أن تفيدنا بما رزقك الله به من علم البرمجة الشيقة

ستجد كلاً من 

(30-08-18, 02:57 PM)elgokr كتب : [ -> ]

اسف اخى فى التاخير فى الرد لعدم تواجدى اخر يومين

على كل حال يبدو انك ارفق ملفات مختلف عما انا اريد

حتى نتخطى هذا تعال على السورس

وفى قائمة References

ستجد كلاً من 

PHP كود :

AcroPDFLib
AxAcroPDFLib 


تاكد من خصائص كل منهم بان 

Copy Local = True

اعمل حفظ واستخرج برنامج من السورس

ثم قم بارفاق المشروع كاملاً من جديد

تحياتى لك

وتمنياتى لك التوفيق

الاستاذ الجوكر السلام عليكم 
عندي مشكلة جديدة تتعلق بقاعدة البيانات الاكسس
عندي قاعدة بيانات اكسس تتركب من جدولين :
جدول الطلاب و جدول مادة اللغة العربية
جدول الطلاب فيه اسم الطالب و رقمه و ...الخ
جدول اللغة العربية فيه نتائج الاختبارات و الامتحانات و لكنه فيه ايضا رقم الطالب و اسم الطالب الموجودين في جدول الطلاب
الآن عندما اقوم بتحدث جدول الطلاب يعني أضيف طالب جديد هذا الطالب الجديد يجب أن ينضاف رقمه و اسمه إلى جدول اللغة العربية و لكنه لا ينضاف ايضا لجدول اللغة العربية 
كيف يمكنني ذلك ؟

(30-08-18, 10:45 PM)elgokr كتب : [ -> ]

عند عمل اضافة طالب جديد

كل ما عليك فعله هو 

بعد انهاء من عمل كود اضافة الكود فى جدول الطلاب

قم بتكرار الكود نفسه اسفل منه ولكن هذه المرة لجدول المادة

وبكده ستجد انه قم باضافة الطالب لكلا الجدولين

لتوضح الفكرة اكتر

تخيل ان الرز الخاص بالاضافة يتحتوى على كود اضافة الطلاب بجدول الطالب بهذا الشكل

كود :

       If Not con.State = ConnectionState.Open Then con.Open()
       Dim sqlins As String = "insert into Table1 (Teacher,ID_Subject)values('" & Name.text & "', " & Id.text) & ")"
       Using cmd As New OleDbCommand(sqlins, con)
           cmd.ExecuteNonQuery()
       End Using
       con.Close()
       MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")

والكود كمثال

كل ما عليك ان تجعله بهذا الشكل

كود :

       If Not con.State = ConnectionState.Open Then con.Open()
       Dim sqlins As String = "insert into Table1 (Teacher,ID_Subject)values('" & Name.text & "', " & Id.text) & ")"
       Using cmd As New OleDbCommand(sqlins, con)
           cmd.ExecuteNonQuery()
       End Using
       con.Close()

       If Not con.State = ConnectionState.Open Then con.Open()
       Dim sqlins2 As String = "insert into Table2 (Teacher,ID_Subject)values('" & Name.text & "', " & Id.text) & ")"
       Using cmd As New OleDbCommand(sqlins2, con)
           cmd.ExecuteNonQuery()
       End Using
       con.Close()
       MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")

اتمنى ان تكون الصورة وضحت كاملاً

تحياتى لك

وتمنياتى لك التوفيق

 
ههههه 
تمت المهمة بنجاح !!!!
الحمد لله و الشكر لله على نعمه التي لا تعد و لا تحصى و منهم نعمة الاصدقاء المفيدين

(30-08-18, 02:57 PM)elgokr كتب : [ -> ]

اسف اخى فى التاخير فى الرد لعدم تواجدى اخر يومين

على كل حال يبدو انك ارفق ملفات مختلف عما انا اريد

حتى نتخطى هذا تعال على السورس

وفى قائمة References

ستجد كلاً من 

PHP كود :

AcroPDFLib
AxAcroPDFLib 


تاكد من خصائص كل منهم بان 

Copy Local = True

اعمل حفظ واستخرج برنامج من السورس

ثم قم بارفاق المشروع كاملاً من جديد

تحياتى لك

وتمنياتى لك التوفيق

بارك الله فيك أخي الكريم
تاكدت من خصائص كل من الملفين بأن 

Copy Local = True

لكن لم أفهم المراد من قولك: واستخرج برنامج من السورس

======================
مرفق المشروع كاملا

(31-08-18, 04:21 AM)waelalmsry75 كتب : [ -> ]بارك الله فيك أخي الكريم
تاكدت من خصائص كل من الملفين بأن 

Copy Local = True

لكن لم أفهم المراد من قولك: واستخرج برنامج من السورس

======================
مرفق المشروع كاملا

أخي الكريم.. أرجو ألا أكون أثقلت عليك
لكن هل اطلعت على الملف المرفق السابق
فيوجد به هذه الملفات
وأظن هذه التي تريدها

فإن كان المراد غير ذلك فأرجو إرشادي إلى الخطوات
فخبرتي محدودة
وجزاك الله خيرا

(03-09-18, 03:33 AM)waelalmsry75 كتب : [ -> ]أخي الكريم.. أرجو ألا أكون أثقلت عليك
لكن هل اطلعت على الملف المرفق السابق
فيوجد به هذه الملفات
وأظن هذه التي تريدها

فإن كان المراد غير ذلك فأرجو إرشادي إلى الخطوات
فخبرتي محدودة
وجزاك الله خيرا