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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 37 1,158 منذ 2 ساعة مضت
آخر رد: tryold
  ارجو المساعدة في كود VB.NET 7 106 16-11-16, 03:20 AM
آخر رد: أبو عمر
Exclamation الرجاء المساعدة : كيف اخفى او اشفر كلمة السر لقاعدة بيانات من ملف App.config noway 2 87 28-10-16, 07:58 PM
آخر رد: noway
Lightbulb المساعدة في معرفة طريقة كتابة الأكواد بشكل صحيح ... Arabia 0 70 26-10-16, 03:18 PM
آخر رد: Arabia
  [سؤال] أريد أن أصنع برنامج يمثل الدوال أرجو المساعدة Bettayeb 4 402 20-10-16, 10:54 PM
آخر رد: Bettayeb
  [VB.NET] رجاء المساعدة:سؤالي عن التقارير في الفيجوال بيسك دوت نت Asmaa adel 2 106 20-10-16, 09:41 AM
آخر رد: Asmaa adel
Information المساعدة في كيفية : التحديد في الداتاقريد ... Arabia 4 151 18-10-16, 10:50 AM
آخر رد: Arabia
  [سؤال] رجاء المساعدة البرنامج لا يعمل تحديث للبيانات Asmaa adel 3 154 16-10-16, 09:48 AM
آخر رد: Asmaa adel
Information المساعدة في طريقة عمل سجل تتبع لجميع الإدخالات التي قام بها المستخدمين . Arabia 2 175 14-10-16, 03:37 PM
آخر رد: Arabia
Heart [VB.NET] الرجاء المساعدة .. استرجاع صورة من قاعدة بيانات ميكروسوفت SQL بـ الـ VB.Net superawdi 5 239 20-09-16, 01:42 AM
آخر رد: superawdi

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


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