اضافة البيانات في جدولين بينهما علاقة

وين بالزبط مشكلتك؟

وعلى فكرة

لاتسمي اسماء المشاريع بالعربي..

مشكلتي هي كالتالي:

العلاقة بين جدول الشركات المصنعة Product_Company وجدول انواع السيارات واحدالى كثير Many to One والحقل الرابط بينهم هو رقم الشركة Company_No فعندما اضيف بيانات جدول الشركات المصنعة الامور تمام ,,, بس المشكلة كيف اضيف حقل رقم الشركة Company_No في بيانات جدول انواع السيارات لانوا نفس بيانات الحقل مضافة في جدول الشركات المصنعة

سؤالي هو

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

تحتاج انت الى قائمة منسدةل يختار منها المستخدم الشركة

وتقوم بحفظ رقم الشركة الأم في جدول السيارات

ولم افهم موضوع الlistbox!!!

شكرا جزيلا على هذا الرد,,, وانتم كريمين ونحن نستاهل

ممكن كتابة كود الاضافة للنموذج الثاني حسب اقتراحكم

ولكم مني جزيل الشكر

أبشر ماطلبت غالي

والمشكلة في الرفع ماعندي مساحة :(

الآن في نموذج رقم 2

امسح التكست بوكس حق رقم الشركة وحط بدله كومبوبوكس اسمه ComboBox1

Private Sub fillcar()
        Try
            Open_Con()
            Dim sql As String = "select * from Product_Company"
            Dim ds As New DataSet
            Dim da As New OleDb.OleDbDataAdapter(sql, Con)
            da.Fill(ds)
            ComboBox1.DataSource = ds.Tables(0)
            ComboBox1.DisplayMember = ds.Tables(0).Columns(1).ColumnName
            ComboBox1.ValueMember = ds.Tables(0).Columns(0).ColumnName
            Close_Con()

        Catch exp As Exception
            MsgBox(exp.ToString)
        End Try
    End Sub

وبعدين في حدث load تبع الفورم نفسه سوي استدعاء للدالة هذي

يعني حيكون عندك ك التالي

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fillcar()
        Try
            Open_Con()
            Cmd.CommandText = "select * from Cars_Types "
            Dim rd As OleDbDataReader = Cmd.ExecuteReader
            If rd.Read = True Then
                Lst1.Items.Add(rd.GetValue(0) & "             " & rd.GetValue(1))
            End If
            rd.Close()
            Con.Close()
        Catch exp As Exception
            MsgBox(exp.ToString)
        End Try
    End Sub

هل لاحظت الاستدعاء fillcar() ??

ا لآن في جملة الادخال اكتب في خانة رقم الشركة

ComboBox1.selectedvalue

عشان تحفظ قيمة الشركة اي رقمها وليس اسمها

مشكور اخي الكريم على هذا الشرح المفصل

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

انا عجزت ولم اعرف الخطأ,,,,, وسف اقوم بارفاق المشروع بعد التعديل فيه

الرجاء من الاخ العزيز Romantic_touch مساعدتي والتعديل على المشروع وارفاقه مع تصحيح الخطا

ولك اخي الكريم جزيل الشكر

__________________.rar

السلام عليكم

تفضل تم اصلاح الكود ويتم الان الحفظ بنجاح

__________________.zip

شكرا على هذا الرد ويعطيكم الف عافية

هنا استخمتوا كائنات Wizard وعملت اتصال جديد وانشات اثنين من dataset

انا لا اريد استخدام هذه الطريقة

انا اريد تصحيح نفس البرنامج وبنفس الاسلوب ,,,, وانا اتوقع ان الخطأ بسيط

ساعدوني باسرع وقت ممكن

معلش انا غلبتكم معاه

خدامينك ياسيدي

المشكلة عندك في جملة الإدخال وهي انك كاتبها بالشكل التالي

Cmd.CommandText = "insert into Cars_Types(Type_No,Type_Name,Company_No)values(" & T1.Text & ",'" & T2.Text & "'," & Com1.SelectedValue & ")"

والصح هو

Cmd.CommandText = "insert into Cars_Types(Type_No,Type_Name,Comapny_No)values('" & T1.Text & "','" & T2.Text & "','" & Com1.SelectedValue & "')"

يعني نسيت تحط علامة ' في التايب نمبر والكومبني نومبر

ونصيحة دايم اكتب رسالة الخطأ لكي تحصل على اجابة سريعة

على فكرة

في شغلة تانية عندك خطأ وهي اسم الحقل Comapny_No في قاعدة البيانات

انت حاطه في الجملة هنا Company

وفي قاعدة البيانات Comapny

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

شكرا كثير لسعة صدركم

تم معرفة الخطأ ومعالجته,,,,,,,والبرنامج شغال

مشكورين