[djelloul]

السلام عليكم ورحمة الله تعالى وبركاته


في فورم بيع السلعة في زر حفظ وضعت الكود التالي

لكنه لم يشتغل وما أدري ما هو الحل يا كرام

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

أرجوا الإفادة شكرا