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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برجاء المساعدة في سورس كود اله حاسبة scientific calculator khaled12345 3 124 20-09-17, 12:11 AM
آخر رد: ابوثامر الحربي
  [VB.NET] المساعدة - في اظهار تقرير بناء على سطور يتم تحديدها امل عوض 6 95 19-09-17, 01:49 PM
آخر رد: أبو نوره
  [VB.NET] الرجاء المساعدة cheurfa 1 78 13-09-17, 05:41 PM
آخر رد: Rabeea Qbaha
  [VB.NET] السلام عليكم ارجوا المساعدة في التكست بوكس محمد بوقزاحة 1 54 10-09-17, 12:29 PM
آخر رد: سعود الشامان
  المساعدة في عمل برنامج حساب مجموع عدد حدود من السلسلة بإدخالها عن طريق لوحة المفاتيح Amjad 0 43 08-09-17, 04:02 PM
آخر رد: Amjad
  [VB.NET] المساعدة في بعض الاشياء البسيط في مشروعي هذا 0theghost0 4 173 06-09-17, 09:34 AM
آخر رد: 0theghost0
  [سؤال] الى الاساتذة الكرام ارجو المساعدة(تعديل كود) gharib 5 163 06-09-17, 08:32 AM
آخر رد: gharib
  ارجو المساعدة من اهل الخبرة اريد كود لعمل فورم نقل او تحويل الاصناف من مخزن الى مخزن احمد الامين 8 265 24-08-17, 06:23 AM
آخر رد: احمد الامين
  ارجو المساعدة samawi 7 167 20-08-17, 03:06 AM
آخر رد: zinom
  ارجوا فى المساعدة فى الاستعلام عن طريق ويب سيفر كفاح 10 270 15-08-17, 02:42 PM
آخر رد: سعود

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


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