تقييم الموضوع :
  • 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 [email protected] , [email protected] , 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
الرد }}
تم الشكر بواسطة:
#2
كود :
  If CON.State = ConnectionState.Open Then
           CON.Close()
       End If
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 

واتساب 00963951283515
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة الكومبو بوكس واستدعاء البيانات mohamedassim 1 62 منذ 3 ساعة مضت
آخر رد: معاند الحظ
  [سؤال] مشكلة مع Module alims 3 55 منذ 9 ساعة مضت
آخر رد: معاند الحظ
  مشكلة في عدم ظهور الأرقام العربية وفي الكريستال ريبورت بالنسبة لـ spiceal Fileds مث جيولوجي مبتدئ 3 1,575 22-06-22, 02:11 AM
آخر رد: جيولوجي مبتدئ
  مشكلة في كود الترقيم التلقائي Abdallah61 3 173 16-06-22, 04:56 AM
آخر رد: معاند الحظ
  مشكلة في ربط الفيجول ستوديو مع قاعدة البيانات SQL mohamedassim 7 229 15-06-22, 08:26 AM
آخر رد: mohamedassim
  [SQL] مساعدة في جملة الاتصال safralfahd 6 298 13-06-22, 09:43 AM
آخر رد: safralfahd
  مشكلة فى devexpress mahmoudshefooo 2 351 30-05-22, 11:34 PM
آخر رد: mahmoudshefooo
  ترتيب العرض الشراء الاول ثم السداد في حالة تساوي التاريخ atefkhalf2004 2 205 26-05-22, 10:07 PM
آخر رد: atefkhalf2004
  مشكلة في تعديل كود نيمو 2 250 24-05-22, 01:51 PM
آخر رد: نيمو
  أرجو المساعدة العاجلة:الاتصال بقاعدة بيانات SQLLITE dr.programming 12 787 23-05-22, 11:35 AM
آخر رد: ابو محمد محمد محمد

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


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