الاضافة للجداول المرتبطة

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] الاضافة للجداول المرتبطة
#1
السلام عليكم

اريد اضافة صف جديد  في حالة جداول مرتبطة بعلاقة راس براس الجدول الاساسي tb1  , الجدول الثاني tb2


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


كود :
Dim cmd As OleDbCommand = New OleDbCommand("SELECT tb1.ID_mail ,tb1.clien_mail, tb1.model_mail, tb2.probl_acce,tb2.main_acce,tb2.typ_acce  FROM tb1, tb2 where tb1.ID_mail and tb2.ID_acce", con)
           con.Open()
           DataAdapter1 = New OleDbDataAdapter(cmd)
           Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(DataAdapter1)
           DataSet1 = New DataSet()
           DataAdapter1.Fill(DataSet1, "tb1,tb2")
           DataGridView1.DataSource = DataSet1
           DataGridView1.DataMember = "tb1,tb2"
           con.Close()


كود الاضافة ويعطي خطاء عند الاضافة


كود :
Me.Label2.Text = Me.DataSet1.Tables("tb1").Compute("Max(ID_mail)", "ID_mail >= 0") + "1"

       Using con As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\web_database.accdb;Jet OLEDB:Database Password=12345")
           Using cmd As New OleDbCommand("insert into tb1,tb2 (ID_mail,clien_mail,model_mail,probl_acce,main_acce,typ_acce) values(@ID_mail,@clien_mail,@model_mail,@probl_acce,@main_acce,@typ_acce)", con)
               cmd.Parameters.AddWithValue("@ID_mail", Label2.Text)
               cmd.Parameters.AddWithValue("@clien_mail", TextBox2.Text)
               cmd.Parameters.AddWithValue("@model_mail", TextBox3.Text)
               cmd.Parameters.AddWithValue("@probl_acce", TextBox4.Text)
               cmd.Parameters.AddWithValue("@main_acce", TextBox5.Text)
               cmd.Parameters.AddWithValue("@typ_acce", TextBox6.Text)
               If con.State = ConnectionState.Open Then
                   con.Close()
               End If
               con.Open()
               cmd.ExecuteNonQuery()
               con.Close()
           End Using
       End Using
الرد
تم الشكر بواسطة:
#2
الاضافة تتم لكل جدول على حدة
الرد
تم الشكر بواسطة:
#3
وحقل الترقيم التلقائي id لكل جدول ولا مرة واحدة لاول جدول

حاولات بالكود دة ولكن يعطي خطا بحقل المفتاح اول لاين



كود :
Me.Label2.Text = Me.DataSet1.Tables("tb1").Compute("Max(ID_mail)", "ID_mail >= 0") + "1"

       Dim con As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\web_database.accdb;Jet OLEDB:Database Password=12345")
       Dim cmd As New OleDbCommand("insert into tb1 (ID_mail,clien_mail,model_mail) values(@ID_mail,@clien_mail,@model_mail,)", con)
       cmd.Parameters.AddWithValue("@ID_mail", Label2.Text)
       cmd.Parameters.AddWithValue("@clien_mail", TextBox2.Text)
       cmd.Parameters.AddWithValue("@model_mail", TextBox3.Text)
     

       cmd = New OleDbCommand("insert into tb2 (ID_acce,probl_acce,main_acce,typ_acce) values(@ID_acce,@probl_acce,@main_acce,@typ_acce)", con)
       cmd.Parameters.AddWithValue("@ID_acce", Label2.Text)
       cmd.Parameters.AddWithValue("@probl_acce", TextBox4.Text)
       cmd.Parameters.AddWithValue("@main_acce", TextBox5.Text)
       cmd.Parameters.AddWithValue("@typ_acce", TextBox6.Text)
       If con.State = ConnectionState.Open Then
           con.Close()
       End If
       con.Open()
       cmd.ExecuteNonQuery()
       con.Close()
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] الاضافة لقاعدة بيانات سيكول سيرفر باستضافة مدفوعة محمد اسماعيل 10 154 06-07-18, 10:24 PM
آخر رد: محمد اسماعيل
  [VB.NET] البحث قبل الاضافة محمد اسماعيل 0 94 22-02-18, 06:14 AM
آخر رد: محمد اسماعيل
  [VB.NET] الاضافة عند ارتباط الجداول محمد اسماعيل 2 159 23-12-17, 07:44 PM
آخر رد: محمد اسماعيل
  مشكلة في كود الاضافة والتعديل khaled12345 4 229 22-11-17, 02:02 AM
آخر رد: khaled12345
  مشكلة في كود الاضافة والحذف khaled12345 0 131 09-11-17, 07:58 PM
آخر رد: khaled12345
  مساعدة في كود الاضافة والتخزين و الحذف والتعديل و البحث khaled12345 5 465 16-06-17, 08:17 PM
آخر رد: khaled12345
  [VB.NET] كود الاضافة والتعديل alma_fandi 2 545 10-04-17, 06:54 PM
آخر رد: alma_fandi
  [سؤال] المرجو المساعدة كود الاضافة ليعمل في تصميم برنامج صانع الاكواد brioule 1 435 25-02-17, 06:31 PM
آخر رد: khodor1985
  مشكلة في OleDbCommandBuilder لا تقبل الاضافة abdalla89 4 510 11-03-16, 08:57 PM
آخر رد: khodor1985
  كيف الاضافة بلتسلسل الصحيح swengineeer 3 485 12-06-15, 01:26 AM
آخر رد: أحمد النجار

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم