السلام عليكــم ورحمـة الله وبركاتــه ،،
لدى مشكلة لدى نموذج مكون من head و details (فاتورة)
جزء details يحتوى على datagridview اريد ان احفظ البيانات المعروضة فى datagridview فى جدول كما اود حفظ بيانات عمودين فقط فى جدول اخر
فهل من طريقة
الكود الذى استخدمه فى تحميل النموذج هو
On Error Resume Next
SqlConnection1.ConnectionString = constring5
ds.EnforceConstraints = False
SqlConnection1.Open()
Dim str1 As String = "SELECT * FROM PURCHASE ORDER BY ID"
Dim str2 As String = "SELECT PITM_ID, BITM2,Unite_ID, ITEM_ID, PRICE,QUT,Serial, DIS,([PRICE] * [QUT]) * (100 - [DIS]) / 100 AS TOTAL, pur_id FROM Purchitems ORDER BY BITM2"
Dim str3 As String = "SELECT unite_id,qut FROM Barcode_Print"
SqlDataAdapter1 = New SqlClient.SqlDataAdapter(str1, SqlConnection1)
SqlDataAdapter2 = New SqlClient.SqlDataAdapter(str2, SqlConnection1)
SqlDataAdapter3 = New SqlClient.SqlDataAdapter(str3, SqlConnection1)
ds.Clear()
SqlDataAdapter1.Fill(ds, "Purchase")
SqlDataAdapter2.Fill(ds, "Purchitems")
SqlDataAdapter3.Fill(ds, "Barcode_Print")
ds.Relations.Add("REL7", ds.Tables("Purchase").Columns("ID"), ds.Tables("Purchitems").Columns("pur_id"), True)
ds.EnforceConstraints = True
BS.DataSource = ds
BS.DataMember = "PURCHASE"
Me.DataGridView1.DataSource = BS
Me.DataGridView1.DataMember = "REL7"
SqlDataAdapter1.Dispose()
SqlDataAdapter2.Dispose()
SqlDataAdapter3.Dispose()
SqlConnection1.Close()
RecordCount()
SHOWBUTTON()
كود حفظ العمودين فى الجدول الثانى هو
On Error Resume Next
Dim SQL As String = "INSERT INTO Barcode_Print (unite_id,qut) VALUES(@unite_id, @qut)"
Dim CMD As SqlClient.SqlCommand = New SqlClient.SqlCommand
With CMD
.CommandType = CommandType.Text
.Connection = SqlConnection1
.Parameters.Add("@unite_id", SqlDbType.NVarChar, 20, "unite_ID")
.Parameters.Add("@qut", SqlDbType.Float, 8, "qut")
.CommandText = SQL
End With
If SqlConnection1.State = ConnectionState.Open Then SqlConnection1.Close()
SqlConnection1.Open()
SqlDataAdapter3.TableMappings.AddRange(New DataTableMapping() {New DataTableMapping("Table", "Barcode_Print", New DataColumnMapping() {New DataColumnMapping("unite_id", "unite_id"), New DataColumnMapping("qut", "qut")})})
SqlDataAdapter3.InsertCommand = CMD
SqlDataAdapter3.Update(ds, "Barcode_Print")
SqlConnection1.Close()
كود حفظ العمودين فى الجدول الثانى لا يعمل اى عندما اضغط على حفظ لا يتم اضافة البيانات للجدول الثانى فما المشكلة .....لا ادرى