[cofie]

الترانزاكشن يربط مره واحده مع command واحد

انت عندما عملت SqlCommand في الجزء (حفظ جدول التفاصيل) فانت الغيت الاول

PHP كود :

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If conn.State = ConnectionState.Closed Then conn.Open()
        '========تعريف المتغيرات
        Dim sqlCmd As New SqlCommand
        Dim trans As SqlTransaction = conn.BeginTransaction
        Try
            sqlCmd.Connection = conn
            sqlCmd.Transaction = trans  ' فتح الترانسكشن
            '=========اضافة الجدول الرئيسي
            sqlCmd.CommandText = "INSERT INTO orderHiderTbl(orderNumb,orderDate,userCode,CusCode,UserName,TotleOrder,CountItem,TotlCommis,SumItem)VALUES(@orderNumb,@orderDate,@userCode,@CusCode,@UserName,@TotleOrder,@CountItem,@TotlCommis,@SumItem)"
            sqlCmd.Parameters.Clear()
            'sqlCmd.Parameters.AddWithValue("@orderNumb", txtOrdNumb.Text)
            'sqlCmd.Parameters.AddWithValue("@orderDate", ddate.Value.Date)
            'sqlCmd.Parameters.AddWithValue("@userCode", txtUserCode.Text)
            'sqlCmd.Parameters.AddWithValue("@CusCode", txtCusCode.Text)
            'sqlCmd.Parameters.AddWithValue("@UserName", txtUserName.Text)
            'sqlCmd.Parameters.AddWithValue("@TotleOrder", txtTotlBill.Text)
            'sqlCmd.Parameters.AddWithValue("@CountItem", txtCountItem.Text)
            'sqlCmd.Parameters.AddWithValue("@TotlCommis", txtTotCoimm.Text)
            'sqlCmd.Parameters.AddWithValue("@SumItem", txtSumItem.Text)
            sqlCmd.ExecuteNonQuery()
            '=========حفظ جدول التفاصيل
            sqlCmd.CommandText = "INSERT INTO OrdersTbl(orderNumb,ItemCode,ItemPrice,qty,SumPrice,TotlCommis,itemRequired)VALUES(@orderNumb,@ItemCode,@ItemPrice,@qty,@SumPrice,@TotlCommis,@itemRequired)"
            For Each r As DataGridViewRow In dvgOrder.Rows
                If r.IsNewRow Then Exit For
                sqlCmd.Parameters.Clear()
                'sqlCmd.Parameters.AddWithValue("@orderNumb", txtOrdNumb.Text)
                'sqlCmd.Parameters.AddWithValue("@ItemCode", r.Cells(0).Value)
                'sqlCmd.Parameters.AddWithValue("@ItemPrice", r.Cells(5).Value)
                'sqlCmd.Parameters.AddWithValue("@qty", r.Cells(6).Value)
                'sqlCmd.Parameters.AddWithValue("@SumPrice", r.Cells(7).Value)
                'sqlCmd.Parameters.AddWithValue("@TotlCommis", r.Cells(8).Value)
                'sqlCmd.Parameters.AddWithValue("@itemRequired", r.Cells(9).Value)
                sqlCmd.ExecuteNonQuery()
            Next
            trans.Commit()
            MsgBox("تمت عملية الاضافة بنجاح", MessageBoxIcon.Information, "رسالة تاكيد")

        Catch ex As Exception
            trans.Rollback()
            MsgBox(ex.Message, MessageBoxIcon.Error, "خطاء")
        End Try
    End Sub