تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أرجوا المساعدة في كود حفظ
#1
السلام عليكم ورحمة الله تعالى وبركاته


في فورم بيع السلعة في زر حفظ وضعت الكود التالي
لكنه لم يشتغل وما أدري ما هو الحل يا كرام
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
أرجوا الإفادة شكرا
الرد }}}}
تم الشكر بواسطة:
#2
كود :
Using cnn As New OleDb.OleDbConnection(cnn.ConnectionString)
هذا خطا يجب ان تسند جملة الاتصال لانك بهذا تقوم بتجديد المتغير وافتراضيا يكون فارغ يعني اكتب هكذا
كود :
dim str as string = "هنا جملة الاتصال"
Using cnn As New OleDb.OleDbConnection(str)
الباقي هنا

End Using
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#3
شكرا لك أخي الكريم
هل تقصد الإتصال : سلسلة الإتصال بقاعدة البيانات ؟
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) الماجيك مسعد 9 87 منذ 9 ساعة مضت
آخر رد: سعود
  برجاء المساعدة فى اصلاح هذا المشروع mohamed haroon 0 70 21-05-17, 01:18 AM
آخر رد: mohamed haroon
  ارجو المساعدة لو تكرمتم rabeh.ram 4 89 20-05-17, 02:48 AM
آخر رد: rabeh.ram
  مشكلة في كود البحث فرجاء المساعدة khaled12345 5 94 19-05-17, 03:50 PM
آخر رد: khaled12345
  [VB.NET] ارجو المساعدة بخصوص Chart vb.net2017 0theghost0 2 58 17-05-17, 05:14 PM
آخر رد: 0theghost0
  ارجو المساعدة حفظكم الله rabeh.ram 2 94 16-05-17, 10:16 PM
آخر رد: rabeh.ram
  ارجو المساعدة في تصحيح الخطا rabeh.ram 5 95 13-05-17, 01:11 AM
آخر رد: rabeh.ram
  [VB.NET] ارجو المساعدة في زر موقع من متصفح كروم webkit A-R 3 74 03-05-17, 06:41 PM
آخر رد: A-R
  [VB.NET] أرجو المساعدة في تصحيح الاكواد محمود البكري 2 77 01-05-17, 04:45 PM
آخر رد: محمود البكري
  [VB.NET] السلام عليكم ... ارجوا المساعدة .... فـــCOMBOBOBX محمد بوقزاحة 2 130 23-04-17, 02:23 PM
آخر رد: ahmedfa71

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم