تقييم الموضوع :
  • 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
شكرا لك أخي الكريم
هل تقصد الإتصال : سلسلة الإتصال بقاعدة البيانات ؟
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ار جو المساعدة ما هي مشكلة كود التعديل والحذف boofa2015 2 51 21-02-17, 10:58 AM
آخر رد: boofa2015
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 98 18-02-17, 02:19 PM
آخر رد: Amrjamil
  السلام عليكم .... ارجوا المساعدة في الجمع التكست بوكس محمد بوقزاحة 8 152 08-02-17, 11:50 AM
آخر رد: محمد بوقزاحة
  السلام عليكم .... ارجوا المساعدة محمد بوقزاحة 2 91 01-02-17, 07:05 PM
آخر رد: محمد بوقزاحة
  السلام عليكم .... ارجوا المساعدة محمد بوقزاحة 11 238 31-01-17, 08:22 PM
آخر رد: محمد بوقزاحة
  ارجوا المساعدة محمد بوقزاحة 2 76 29-01-17, 12:30 AM
آخر رد: محمد بوقزاحة
  [سؤال] ما هو الخطأ في الكود التالي .. أرجو المساعدة abo_alaa315 0 72 22-01-17, 02:27 PM
آخر رد: abo_alaa315
  ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 محمد بوقزاحة 8 272 19-01-17, 01:30 PM
آخر رد: محمد بوقزاحة
  [VB.NET] المساعدة في الاكواد لبرنامج انتي فايرس 0theghost0 6 166 11-01-17, 11:08 PM
آخر رد: 0theghost0
  [VB.NET] الرجاء المساعدة noway 2 107 10-01-17, 09:28 AM
آخر رد: thevirus

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


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