[alaqsa]

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


عشره مباركه ان شاء الله للجميع



اخواني الكرام

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


المشكله كما في الصوره التاليه


تم إضافة الصورة المكبرة للموضوع بدلاً من المصغرة من قبل الإدارة . بالتوفيق






مثل ما في الصوره

انا اريد ان اجعل السجلات من 1 الى 12 كل واحد يعتبر قراءه مستقله ولكن يشتركوا في المعلومات العلويه

اتمنى منكم مساعدتي

[سعود]

وعليكم السلام ورحمة الله وبركاته
مافهمت عليك اخي الكريم ..
كيف يشتركوا ؟؟

[alaqsa]

شكرا لك اخ سعود على التفاعل


انا اقصد مثلا لو بدي ادخل بيانات

البيانات العلويه كما في الصوره وهي اربع بيانات اثنين منها على صيغه تاريخ سوف تكون مشتركه مع كل البيانات التي ادخلها في الاسفل

بمعنى اخر لو دخلت بيانات في الرقم 1 و 2 و 3 كما في ترتيب الصوره

عند اختيار الحفظ سوف يحفظ البيانات لتي في رقم 1 مع البيانات العلويه في قراءه واحده وكذلك يحفظ البيانات في الرقم 2 مع نفس البيانات العلويه في قراءه جديده وهكذا

اتنمى اكون قدرت اوصل الفكره

اخي الكريم

[سعود]

يعني كل صفوف مربعات النص تريد اضافتها كل صف بسجل مستقل؟؟
ممكن الكود اللي انت استخدمته.

[alaqsa]

نعم اخي سعود كل صف يتم اضافه في سجل مستقل مع اضافه البيانات العلومه " الاربع مربعات العلويه والتي تحتوى على مربعين للتاريخ ايضا" لكل صف من الصفوف


اخي سعود بصراحه لم اعرف كيف ابدا فيها بالاصل ولم اعمل الكود لاني لم اعرف كيف ابدأ فيها لم يخطر في بالي اي فكره لها

[سعود]

سويت مثال مشابه للفكرة وعرفت الاشكال وقمت باصلاح الخطا

انظر للمثال vb 2010 access 2007
http://vb4arb.com/vb/uploaded/34_01375210962.zip

خلاصة الامر اننا نريد حفظ كافة صفوف مربعات النص في عمود واحد بسجلات مستقلة .. لذلك نحتاج افراغ البارمتر قبل اعادة تهيئته لحفظ مربع النص الاخر

المثال يحتوي على عدد 8 مربعات نص وزر امر وقريد

اضفت روتين sub لعرض البيانات

كود :

Sub dt()        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter("select * from tb", con)
        ds.Clear()
        DataGridView1.DataSource = Nothing


        da.Fill(ds, "tb")
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "tb"
    End Sub

واستدعيه عند حدث تحميل الفورم

كود :

dt

وايضا استدعيه بعد كود الحفظ

كود :

Dim cm As New OleDbCommand("", con)

        cm.CommandText = ("insert into tb(tname) values(@tname)")
        cm.Parameters.AddWithValue("@tname", TextBox1.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()




        '====
        cm.Parameters.Clear()
        cm.Parameters.AddWithValue("@tname", TextBox2.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '===
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox3.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '==
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox4.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '==
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox5.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '==
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox6.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '==
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox7.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '==
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox8.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()

[alaqsa]

اخي الكريم سعود


يبدو انني لم اوضح المطلوب بشكل سليم وصحيح


تم ارفاق جزء من المثال في المرفقات

المطلوب بشكل مبسط :

انا اريد ان ادخل اولا بيانات MR no , JT No,date MR , date send

ثم يتم ادخال البينات في الاسفل

مثلا في اول مربع نص يتم ادخال

محمد والمربع التاني في نفس الصف 96665555 والمربع الثالث مثلا 10
ثم في الصف الثاني يتم ادخال مثلا
احمد في اول مربع نص وفي ثاني مربع نص مثلا 55555 وفي المربع الثالث 15

وعند عمل اضافه يتم اضافه الصف الموجود في محمد واحمد كل واحد سجل مستقل ولكن يحتوى كل السجلين احمد ومحمد على نفس المعلومات التي ادخلناها في البدايه التي هي "MR no , JT No,date MR , date send"

اتمنى اكون وفقت في شرح المشكله

ولك جزيل الشكر اخي سعود

[alaqsa]

للرفع اتمنى المساعده

[hoob computer]

السلام عليكم و رحمة الله و بركاته,
اخي الكريم alaqsa,

يجب عليك عمل طريقة الـ (Master-Details) من أجل الوصول إلى حل لسؤالك المطروح هنا.

كما هو الحال في مثال المنتجات و المخزن و الحركات المخزنية, حيث أن الحركات المخزنية هي كالأتي:
يجب عمل جدولين:
الجدول الاول لإدخال المعلومات التالية:
1- رقم الحركة.
2- تاريخ الحركة.
3- إسم الجهة الطالبة.

الجدول الثاني لإدخال المعلومات التالية:
1- رقم المادة.
2- إسم المادة.
3- كمية المادة.
4- سعر المادة.
5- الوصف (أو وصف المادة).

و هنالك علاقة (One-Many) بين الجدول الاول (و يمثل الجدول الرئيسي) و الجدول الثاني (و يمثل الجدول الفرعي).

أرجوا أن تكون الفكرة واضحة لديك.

السلام عليكم.

[hoob computer]

... تكملة

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

أما في حالتك يا أخي alaqsa,

فسيكون الجدول الاول هو الجدول الرئيسي و سيحتوي التالي:
MR no , JT No,date MR , date send

و الجدول الثاني و هو الجدول الفرعي و سيحتوي التالي:
Item, Description, Qty., Unit


و بهذا, سيكون لكل سجل من الجدول الاول عدة سجلات في الجدول الثاني, و هذه هي علاقة الـ (One-Many).

السلام عليكم.