[kebboud]

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

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

[elgokr]

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

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

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

وفى قائمة References

ستجد كلاً من 

PHP كود :

AcroPDFLib
AxAcroPDFLib 


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

Copy Local = True

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

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

تحياتى لك

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

[kebboud]

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

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

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

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

وفى قائمة References

ستجد كلاً من 

PHP كود :

AcroPDFLib
AxAcroPDFLib 


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

Copy Local = True

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

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

تحياتى لك

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

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

[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, "حفظ")

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

تحياتى لك

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

[kebboud]

(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, "حفظ")

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

تحياتى لك

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

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

[elgokr]

الحمد لله والشكر لله

تحياتى لك

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

[waelalmsry75]

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

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

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

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

وفى قائمة References

ستجد كلاً من 

PHP كود :

AcroPDFLib
AxAcroPDFLib 


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

Copy Local = True

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

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

تحياتى لك

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

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

Copy Local = True

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

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

[elgokr]

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

Copy Local = True

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

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

اليك الصورة توضح المطلوب اكثر

وبخصوص لكن لم افهم المراد من قولك :...

المقصود بها ان تقوم بعمل Build للسورس

حتى يتم استخراج البرنامج بمجلد Debug 

وان تتاكد بان كل من الملفين DLL تم نسخهم بالمجلد

كما ذكرت مسبقاً برنانج ActiveX غير مثبت عندى 

فكل ما عليك استخراج الملفات الـ DLL من مجلد البرنامج لديك

حاول البحث لكيفية عمل ذلك فاكتهد قليلاً لتجد المقابل لما تطلبه بالنهاية

تحياتى لك

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

[waelalmsry75]

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

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

[elgokr]

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

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

حتى يتم ارفاقهم يجب علك يجاد الملفات بجانب البرنامج بجلد Debug 

ولاتمام ذلك يجب عليك عمل Build 

كما انت تري الصورة الموجودة فى الرد الاخير هو من السورس المرفقك الخاص بك

ولاحظ العالمة المثلثباللون الاصفر تشير بعدم وصوله الى الملفات المطلوبة

تحياتى لك