احتاج اكواد للقوائم وفتح جداول في الفيجول من اكسس

أختي الكريمة،

أولاً، أظنك تقصدين Menu وليس ContextMenu.

التعامل مع الأكسس هو تقريباً نفس التعامل مع ال SQL Server، ونستطيع بسهولة أن نقوم بعرض جدول من Database معمولة بالأكسس، سأقوم بإعطاءك رابط لمثال كامل معمول بال SQL Server وأرجو أن تطبقي الكود مع قاعدة البيانات التي عملتها بالأكسس، المثال يفترض بأن هناك أزرار (إضافة، تحديث، حذف ...الخ)، وفي حالتك فقط نكتب الكود في زر ال Menu (لا يتطلب الأمر أي تغيير)... وإن توقفت عن نقطة ما فلا تتردين في طرحه هنا، وإن عجزت بالكامل فأرجو أن ترفقي مثالك على شكل ملف مرفق وسنقوم بإكماله لك، ها هو رابط المثال:

/index.php?showtopic=49999

شكرا لاهتمامك عزيزي .. وحأجرب الطريقة ويارب تزبط معايا

لكن شيء نسيت ماتقولولي طريقته كيف اخلي قائمة باسم جداول وفيها 4 جداول

كل ما عملنا كليك على اسم الجدول يفتح الجدول المطلوب من الاكسس

مع العلم اني في الفورم مسويه داتا غريد وظهرت فيها كل الجداول

وتحياتي للجميع

ايش اسوي اقتل نفسي

سويت الطريقة والنتيجة انه اما تظهر لي رسالة فيها

cannot create achild list for field region

او يظهر لي ويعمل لي break

في السطر التالي

Me.BindingContext(DataSet11, "region").CancelCurrentEdit()

ممكن اعرف ايش الحل

هل من الضروري اني اسوي فورم لتعبئة بيانات ولا يكفي اني املأ البيانات عن طريق الداتا غريد

وكمان دايما يعمل لي break

لو كتبت في اي كود واي سطر كلمة .fill ليش ماأدري؟

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

وربي صارت احلامي كلها هذا البرنامج الممل

ساعدوووووووووووووووووني

:lol: :lol: :lol:

البرمجة أصعب من بناء أبراج سكنية يا نسيم الربيع، هل تعتبرين الأمور تأتي بالسهل، يجب عليك أن تتعبي ويجب أن تقعي بالآف المشاكل البرمجية قبل أن تفهمي نقطة ما بشكل صحيح.

على كل حال، قمت بإعداد مثال لك يبين لك كيف نستطيع أن نفتح الجداول عن طريق الكود (وهو طلبك الأول)، وقمت بإعداد المثال لك كاملاً (عملته قبل قراءة مداخلتك الأخيرة)... فالنمشي خطوة خطوة:

1) قومي بعمل قاعدة بيانات بالأكسس وسميها HMS وقومي بوضع ثلاثة جداول فيها وسمي الجداول Table1,Table2,Table3.

2) قومي بوضع DataGrid على الفورم.

3) قومي بعمل Menu وضعي فيها ثلاثة تفرعات هي Table1، Table2,Table3

قومي بوضع قاعدة البيانات التي عملتيها في فولدر ال bin (أي بالفولدر الذي يشتغل منه برنامجك التنفيذي عندما تعملين Debug)...

والآن الى الكود:

في قسم التعريفات العامة للفورم أكتبي الكود التالي:

Dim Con As New Data.OleDb.OleDbConnection
Dim Adapter As Data.OleDb.OleDbDataAdapter
Dim DataSet As New DataSet

في حدث Load للفورم قومي بكتابة الكود التالي:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       
 Con.ConnectionString = "Provider=Microsoft.jet.oleDB.4.0;Data Source=" & Application.StartupPath & "\HMS.mdb;"
 DataGrid1.DataSource = DataSet

End Sub

وفي ال Menu الأولى نريد أن نضع الكود الذي يفتح الجدول الأول من قاعدة البيانات، في حدث ذلك الزر أكتبي الكود التالي:

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        
DataSet.Clear()
Dim ConString As String = "Select * From Table1"
Adapter = New Data.OleDb.OleDbDataAdapter(ConString, Con)
Adapter.Fill(DataSet)

End Sub

الآن قومي فقط بتغيير كلمة Table1 في الكود الأخير أعلاه الى Table2 وضعي الكود في ال menu الثانية، وبنفس الطريقة في ال menu الثالثة.

لاحظي بأننا قمنا بالكثير من العمليات عن طريق الكود (عمل إتصال بقاعدة البيانات، عمل أدابتر، عمل داتاسيت، ربط datagrid بالداتاسيت)...

أرفقت المثال كاملاً لحضرتك ولبقية الأعضاء فأرجو تحميله.

بالنسبة لمشكلتك الثانية وهي الحفظ والحذف والإضافة ...الخ، حاولي ثانية مع تغيير الأكواد بما يتناسب مع قاعدة البيانات لديك وبما يتناسب مع المتغيرات، وإن توقفتي عند نقطة فقومي بطرح المشكلة بوضوح (أو قومي بوضع مثالك غير المكتمل هنا لتعديله لك كاملاً)، فأنا للأسف لم أفهم تماماً عليك.

WindowsApplication1.zip

يسلمو ياعيني على تعبك معايا

واوعدك اسمع نصيحتك واتحمل بالصبر

وحأجرب الطريقة وانتظر ردا مني

وشكراااااااااااا بلا حدود

تحياتي