محتاج خبراتكم فى اكواد هذا الفورم

hagr كتب:

السلام عليكم ورحمه الله وبركاته

اولا من خلال منتداكم الكريم اشكر الاستاذ محمد طارق الذى استفدت من دروسه كثيرا الذى سهلت لى الدخول الى فيجوال بيسيك 2010 بعد ان كان كل عملى على فيجوال بيسيك 6

طبقت كل دروسه ووضعتها فى مثال لعل وعسى ان يفيد غيرى

توجد فى درسى فورم لم اجد اكوادها من دروس الاستاذ محمد طارق اتمنى من الجميع المشاركة فى كتابه الاكواد

هى بسيطة جدا من وجهه نظر حضراتكم ولكنها بالنسبه لى للاسف رغم انى بحاول وسوف احاول فى البحث فى منتداكم الكريم

الاكواد هى

اظهار الداتا فى بدايه التحميل من T_emp

اظهار بيانات الكمب بوكس من جدول T_dep

كود البحث

كود تنفيد امر البحث

الغاء السجل

حفظ السجل

تعديل السجل

حملت الملف الذى تعلمت من خلاله وكذلك الفورم ومحتوياتها حتى لا اثقل على كاهل حضراتكم

اتمنى من له امثله مصممه بفيجوال بيسيك 2010 تعنينى على انشاء وتصميم النماذج اكون لة شاكرا

الحمد لله عملت كود لود البيانات لاظهارها عندما تفتح

لكن بقى الوضع على ماهو عليه حتى الان

Rashwan.rar

hagr كتب:

الحمد لله عملت كود لود البيانات لاظهارها عندما تفتح

لكن بقى الوضع على ماهو عليه حتى الان

بالبحث فى منتديات خاصه وجدت هذا المثال

سوف يفيدكم وفيه كل ماريده وسوف اطبقه على مثالى السابق

لان المعلومه داخل مثال ولو بسيط بتفيد اكثر

Insert & Update In Acces & TextDate.zip

السلام عليكم وحمه الله وبركاته

هل قدرت تسوي المطلوب كله؟ اذا في اي صعوبه سأحاول المساعده ..

VB Helper كتب:

السلام عليكم وحمه الله وبركاته

هل قدرت تسوي المطلوب كله؟ اذا في اي صعوبه سأحاول المساعده ..

والله انا محتار مش عارف امش فى انهى طريق وايهما اسهل

اولا طريقة احضار البيانات بالطريقة

Dim Connection As OleDb.OleDbConnection = New OleDb.OleDbConnection("provider =microsoft.jet.oledb.4.0; data source=" & Application.StartupPath & "\sma.mdb")

Dim command As OleDb.OleDbCommand

Dim cmd2 As OleDb.OleDbCommand

بالنسبه للطريقة ده انا شايف بناء البرنامج هيكون سهل لكن باقى الاكواد مش عارفها مثل الحفظ واللالغاء والتحديث

ام الطريقة الاخرى اللى فى المثال اللى احضرته

Dim con As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\data.mdb;user id=admin;jet oledb:database password=12345")

Dim DataSet1 As New DataSet

Dim Dataset2 As New DataSet

Dim DataAdapter As New OleDbDataAdapter

انا حاسس ان بناء البرنامج على هذا الوضع صعب شوى على

سؤالى الان كنت سمعت انى ممكن ابنى برنامجى باكواد فيجوال بيسيك 6 لكن للاسف معرفش ازاى

اتمنى لو احد الاعضاء لدية مثال مبنى بالطريقة الاولى يضعه لى وللاخرين ليستفدوا به لانى عن جد عايز اهجر بناء البرامج بفيجوال بيسيك 6

ولى رجاء لكل من يقرا مداخلتى وله سؤال ويريد الاجابه عليه ان يعمل مثلا ولو صغيرا حتى نضعه للاعضاء المتميزين ليعدلوا اخطاؤنا وسوف نضرب عصفورين بحجر واحد

اولا سوف ببناءنا مثالا صغير حتى لانرهق اساتذتنا فى بناء المثال لحل مشاكلنا

ثانيا سوف نفيد اعضاء اقل خبرة بفيجوال بيسك 2010 مثلى

اتمنى كذلك من الاخوة الاعضاء والقائمين على المنتدى الكريم ان يحجزوا لنا مكان للامثله التى تم حلها فى مكان واحد ليستفاد منها الاخرين

لان المثال بيكون اوضح واعمق للفهم

شكرا لجميع الاعضاء الكرام والقائمين على المنتدى