تقييم الموضوع :
  • 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()

المشكلة بكود اضافة صف جديد

التالي يظهر خطا بكود الايدي الخاص بالترقيم التلقائي  مش عارف المشكلة في اية


كود :
Label2.Text = (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)
       con.Open()
       cmd.ExecuteNonQuery()
       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)
       con.Open()
       cmd.ExecuteNonQuery()
       con.Close()
الرد
تم الشكر بواسطة:
#2
اي حقل ترقيم تلقائي لا يدخل في جملت أمر الإخال
احذف
@ID_acce,
ID_acce,

@ID_mail,
ID_mail,
الرد
تم الشكر بواسطة: محمد اسماعيل , hedra samir
#3
الف شكر تم حل المشكلة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [VB.NET] ازرار التنقل و الاضافة و الحفظ و الحذف و التعديل في entity framework باستخدام visual vb 2010 + sql server 2008 3 127 28-10-20, 12:46 PM
آخر رد: Anas Mahmoud
  عمليات الاضافة والتعديل على قاعدة بيانات sql server 2012 kewely 2 207 19-09-20, 07:45 PM
آخر رد: kewely
  التاريخ لا يقبل الاضافة او التعديل talatm 2 200 18-09-20, 08:36 PM
آخر رد: talatm
  ارجو تفعيل الازرار الاضافة و التعديل والبحث والحذف عمور2016 3 582 11-07-20, 10:14 PM
آخر رد: alshandodi
  استرداد الجداول المحذوفة بسام محمدغانم 0 226 18-03-20, 01:06 AM
آخر رد: بسام محمدغانم
  معرفة عدد الجداول في قاعدة بيانات ابو همام العراقي 6 780 30-09-19, 12:34 AM
آخر رد: asemshahen5
  سؤال فى العلاقات بين الجداول بين اكسس وVB.NET خالد كامل1 2 549 24-07-19, 07:18 PM
آخر رد: خالد كامل1
Video خطأ في الاضافة الدتا جريد nourmandour 5 653 24-04-19, 05:13 AM
آخر رد: elgokr
  [سؤال] عن ربط الجداول لسه مبتدئ 5 669 01-04-19, 08:30 PM
آخر رد: elgokr
  [VB.NET] فتح ارتباط تشعبي موجود ضمن قاعدة البيانات اكسس EMADSSS 2 1,303 17-02-19, 09:32 PM
آخر رد: EMADSSS

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


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