منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

Facture_Load(Nothing, Nothing)

End Sub

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

كود :

Using cnn As New OleDb.OleDbConnection(cnn.ConnectionString)

هذا خطا يجب ان تسند جملة الاتصال لانك بهذا تقوم بتجديد المتغير وافتراضيا يكون فارغ يعني اكتب هكذا

كود :

dim str as string = "هنا جملة الاتصال"

Using cnn As New OleDb.OleDbConnection(str)

الباقي هنا

End Using

شكرا لك أخي الكريم
هل تقصد الإتصال : سلسلة الإتصال بقاعدة البيانات ؟

djelloul