15-10-14, 01:15 AM
السلام عليكم ورحمة الله تعالى وبركاته
في فورم بيع السلعة في زر حفظ وضعت الكود التالي
في فورم بيع السلعة في زر حفظ وضعت الكود التالي
لكنه لم يشتغل وما أدري ما هو الحل يا كرام
Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
For Each row As DataGridViewRow In DGFL.Rows
Try
Using cnn As New OleDb.OleDbConnection(cnn.ConnectionString)
cnn.Open()
Using trans As OleDb.OleDbTransaction = cnn.BeginTransaction
' Facture
Dim sqlF As String = "INSERT INTO [Facture] ([N], [Societe], [Date], [MontantHT]) values(@N, @Societe, @Date, @MontantHT )"
Using saveF As New OleDb.OleDbCommand(sqlF, cnn)
saveF.Parameters.AddWithValue("@N", Val(Me.txtNFact.Text))
saveF.Parameters.AddWithValue("@Societe", Me.CmbClients.SelectedValue)
saveF.Parameters.AddWithValue("@Date", Me.DTPiker.Value.Date)
saveF.Parameters.AddWithValue("@MontantHT", Val(Me.TotHT.Text))
saveF.Transaction = trans
saveF.ExecuteNonQuery()
End Using
' FactureL
Dim sqlFL As String = "INSERT INTO [FactureL] ([N_Facture], [CodeP], [Quantité], [Prix_Unit]) VALUES (@N_Facture, @CodeP, @Quantité, @Prix_Unit)"
Using saveFL As New OleDb.OleDbCommand(sqlFL, cnn)
saveFL.Parameters.AddWithValue("@N_Facture", row.Cells(0).Value)
saveFL.Parameters.AddWithValue("CodeP", row.Cells(1).Value)
saveFL.Parameters.AddWithValue("@Quantité", row.Cells(3).Value)
saveFL.Parameters.AddWithValue("@Prix_Unit", row.Cells(4).Value)
saveFL.Transaction = trans
saveFL.ExecuteNonQuery()
End Using
trans.Commit()
End Using
cnn.Close()
End Using
MsgBox("Enregistrement fait avec Succée", vbMsgBoxRight, "Cofermation")
Me.CmbProd.SelectedIndex = -1
Me.txtQte.Text = ""
Me.txtNFact.Focus()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Next
Facture_Load(Nothing, Nothing)
End Sub
أرجوا الإفادة شكرا