تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح)
#1
كود :
 Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
       Try
           If tbItem.Text = "" Or tbPrice.Text = "" Then
               MsgBox("الرجاء ادخال اسم المنتج والسعر الخاص به")
               Return
           End If

           Dim cmd As OleDbCommand = con.CreateCommand
           con.Open()

           If frmitems.status = "Add" Then

               cmd.CommandText =
               "INSERT INTO ItemsInfo (Item,Category, Department, Price) VALUES (@Item,@Category,@Department,@Price)"
               cmd.Parameters.AddWithValue("Item", tbItem.Text)
               cmd.Parameters.AddWithValue("Category", cbCategory.SelectedItem)
               cmd.Parameters.AddWithValue("Department", cbDept.SelectedItem)
               cmd.Parameters.AddWithValue("Price", tbPrice.Text)
               cmd.ExecuteNonQuery()
               con.Close()
               frmitems.Load_Data()

               MsgBox("تم إضافة بيانات العنصر بنجاح", vbMsgBoxRight + MsgBoxStyle.Information, "جاري الحفظ")
               frmitems.Enabled = True

               Me.Close()
           End If

           If frmitems.status = "Edit" Then
               cmd.CommandText =
               "UPDATE ItemsInfo SET Item= @Item ,Category =@Category , Department=@Department , Price= @Price WHERE ID=  " & frmCommands.IDpos
               cmd.Parameters.AddWithValue("Item", tbItem.Text)
               cmd.Parameters.AddWithValue("Category", cbCategory.Text)
               cmd.Parameters.AddWithValue("Department", cbDept.Text)
               cmd.Parameters.AddWithValue("Price", tbPrice.Text)
               cmd.ExecuteNonQuery()
               con.Close()
               frmitems.Load_Data()
               MsgBox("تم تعديل بيانات العنصر بنجاح", vbMsgBoxRight + MsgBoxStyle.Information, "جاري الحفظ")
               frmitems.Enabled = True
               Me.Close()
           End If

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

   End Sub
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] حل مشكلة تشغيل برنامج يعمل ب net framework 4.5 عبدالكريم برشدان 0 39 21-10-21, 04:30 PM
آخر رد: عبدالكريم برشدان
  [VB.NET] حل مشكلة فتح مشروع قديم ibrahimhuseen828 2 249 21-10-21, 03:43 AM
آخر رد: ibrahimhuseen828
  [سؤال] لدي مشكلة في عمل لوحة دخول مرتبطة في قاعدة بيانات اكسس مجـ متعلم ـرد 2 110 20-10-21, 08:48 PM
آخر رد: مجـ متعلم ـرد
  مشكلة في توليد arabic qr code osmana2005 6 4,403 10-10-21, 04:49 PM
آخر رد: mahtawfik
  مشكلة عند تحويل البيانات من الداتاقريدفيو الى الإكسل جيولوجي مبتدئ 3 210 09-10-21, 06:55 PM
آخر رد: ahmed4
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 1 186 07-10-21, 11:32 AM
آخر رد: asemshahen5
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 1 220 06-10-21, 08:33 PM
آخر رد: ابو انس
  [VB.NET] مشكلة تظهر عند تنصيب فيجوال ستوديو 2019 اباذر 4 3,474 04-10-21, 03:57 PM
آخر رد: Mohammed_khalil
  [سؤال] مشكلة عاجلة saja salahiden 1 194 28-09-21, 02:23 PM
آخر رد: alims
  مشكلة في تحويل كود من #c الي vb.net الماجيك مسعد 6 375 27-09-21, 04:31 PM
آخر رد: الماجيك مسعد

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


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