22-12-17, 04:11 AM
عندي جدولين مرتبطين مع بعض بعلاقة راس براس الجدول الاساسي بحقل ترقيم تلقائي 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()