تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال بخصوص ال update فى الاكسس
#1
السلام عليكم اخوانى الكرام

انا عامل فاتورة شراء ومن ضمن الفاتورة الجزء الخاص بكمية المنتجات  والمبلغ المورد ... الكمية الخاصة بالمنتجات وعند اضافة كمية والضغط على زر الحفظ يقوم التحديث بنجاح فى جدول الاصناف بالفعل وكلن لا يتم التحديث بالنسبة للمبغ المورد فى جدول الموردين !!
ودة الكود الخاص بأضافة المبلغ المورد 
كود :
If BuyPostpone.Checked = True Then
                   Dim newbalance As Double
                   Dim strimporter As String
                   Dim balance As String
                   Dim totalb As Double

                   totalb = Val(BuyTotalB.Text)
                   balance = Val(txt2.Text)

                   newbalance = totalb + balance
                   strimporter = " update Importers set ImporterBalance = " & newbalance & " where ImporterName = '" & balance & "'"
                   importersCmd = New OleDbCommand(strimporter, con)

                   con.Open()
                   importersCmd.ExecuteNonQuery()
                   con.Close()
               End If
الرد
تم الشكر بواسطة:
#2
كود :
Dim newbalance As Double
       Dim strimporter As String
       Dim balance As String
       Dim totalb As Double

       totalb = Val(BuyTotalB.Text)
       balance = Val(txt2.Text)

       newbalance = totalb + balance

       If Conn.State = ConnectionState.Closed Then
           Conn.Open()
       End If

       Dim cmd As New OleDb.OleDbCommand
       cmd.Connection = Conn
       cmd.CommandType = CommandType.Text
       cmd.CommandText = "UPDATE Importers SET ImporterBalance=@ImporterBalance WHERE ImporterName= @ImporterName"
       cmd.Parameters.AddWithValue("@ImporterBalance", newbalance)
       cmd.Parameters.AddWithValue("@ImporterName", balance)
       cmd.ExecuteScalar()
       Conn.Close()
الرد
تم الشكر بواسطة: mostafa nada , mostafa nada , elgokr , elgokr
#3
(12-11-18, 03:52 AM)Rabeea Qbaha كتب :
كود :
Dim newbalance As Double
       Dim strimporter As String
       Dim balance As String
       Dim totalb As Double

       totalb = Val(BuyTotalB.Text)
       balance = Val(txt2.Text)

       newbalance = totalb + balance

       If Conn.State = ConnectionState.Closed Then
           Conn.Open()
       End If

       Dim cmd As New OleDb.OleDbCommand
       cmd.Connection = Conn
       cmd.CommandType = CommandType.Text
       cmd.CommandText = "UPDATE Importers SET ImporterBalance=@ImporterBalance WHERE ImporterName= @ImporterName"
       cmd.Parameters.AddWithValue("@ImporterBalance", newbalance)
       cmd.Parameters.AddWithValue("@ImporterName", balance)
       cmd.ExecuteScalar()
       Conn.Close()


بردو نفس المشكلة اخى الكريم .. لا يقوم بالتحديث!
الرد
تم الشكر بواسطة:
#4
(12-11-18, 04:11 AM)mostafa nada كتب :
(12-11-18, 03:52 AM)Rabeea Qbaha كتب :
كود :
Dim newbalance As Double
       Dim strimporter As String
       Dim balance As String
       Dim totalb As Double

       totalb = Val(BuyTotalB.Text)
       balance = Val(txt2.Text)

       newbalance = totalb + balance

       If Conn.State = ConnectionState.Closed Then
           Conn.Open()
       End If

       Dim cmd As New OleDb.OleDbCommand
       cmd.Connection = Conn
       cmd.CommandType = CommandType.Text
       cmd.CommandText = "UPDATE Importers SET ImporterBalance=@ImporterBalance WHERE ImporterName= @ImporterName"
       cmd.Parameters.AddWithValue("@ImporterBalance", newbalance)
       cmd.Parameters.AddWithValue("@ImporterName", balance)
       cmd.ExecuteScalar()
       Conn.Close()


بردو نفس المشكلة اخى الكريم .. لا يقوم بالتحديث!


ستكون اذا المشكلة في الاتصال او شئ اخر
ارفق المشروع
الرد
تم الشكر بواسطة: عبد العزيز البسكري , mostafa nada
#5
(12-11-18, 03:52 AM)Rabeea Qbaha كتب :
كود :
Dim newbalance As Double
       Dim strimporter As String
       Dim balance As String
       Dim totalb As Double

       totalb = Val(BuyTotalB.Text)
       balance = Val(txt2.Text)

       newbalance = totalb + balance

       If Conn.State = ConnectionState.Closed Then
           Conn.Open()
       End If

       Dim cmd As New OleDb.OleDbCommand
       cmd.Connection = Conn
       cmd.CommandType = CommandType.Text
       cmd.CommandText = "UPDATE Importers SET ImporterBalance=@ImporterBalance WHERE ImporterName= @ImporterName"
       cmd.Parameters.AddWithValue("@ImporterBalance", newbalance)
       cmd.Parameters.AddWithValue("@ImporterName", balance)
       cmd.ExecuteScalar()
       Conn.Close()

(12-11-18, 11:46 PM)Rabeea Qbaha كتب :
(12-11-18, 04:11 AM)mostafa nada كتب :
(12-11-18, 03:52 AM)Rabeea Qbaha كتب :
كود :
Dim newbalance As Double
       Dim strimporter As String
       Dim balance As String
       Dim totalb As Double

       totalb = Val(BuyTotalB.Text)
       balance = Val(txt2.Text)

       newbalance = totalb + balance

       If Conn.State = ConnectionState.Closed Then
           Conn.Open()
       End If

       Dim cmd As New OleDb.OleDbCommand
       cmd.Connection = Conn
       cmd.CommandType = CommandType.Text
       cmd.CommandText = "UPDATE Importers SET ImporterBalance=@ImporterBalance WHERE ImporterName= @ImporterName"
       cmd.Parameters.AddWithValue("@ImporterBalance", newbalance)
       cmd.Parameters.AddWithValue("@ImporterName", balance)
       cmd.ExecuteScalar()
       Conn.Close()


بردو نفس المشكلة اخى الكريم .. لا يقوم بالتحديث!


ستكون اذا المشكلة في الاتصال او شئ اخر
ارفق المشروع
تفضل اخى

هذا هو الرابط
الرد
تم الشكر بواسطة:
#6
كود :
                   strimporter = " update Importers set ImporterBalance = " & newbalance & " where ImporterName = '" & BuyImporter.Text & "'"

استبدل balance باستعلام التعديل لانها تعبر عن txt2 بـ BuyImporter.Text

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة: mostafa nada , Rabeea Qbaha
#7
(13-11-18, 07:16 PM)asemshahen5 كتب :
كود :
                   strimporter = " update Importers set ImporterBalance = " & newbalance & " where ImporterName = '" & BuyImporter.Text & "'"

استبدل balance باستعلام التعديل لانها تعبر عن txt2 بـ BuyImporter.Text

ممكن تكتب الكود للايضاح اكتر ..
الرد
تم الشكر بواسطة:
#8
تفضل اخي

المشكله كانت انك تريد التحديث باسم التاجر ، لكنك تضع قيمة ال txt2.text وهي القيمة الماليه للتاجر
ملاحظه من الخطئ ان تقوم بالتحديث باسم المورد لانه من الممكن ان يكون موردين بنفس الاسم وفي هذه 
الحاله ستقوم بالتحديث للاثنين معا.

قمت لك بجلب رقم المورد والتحديث يقوم حسب رقم المورد


الملفات المرفقة
.zip   Market.zip (الحجم : 2.54 م ب / التحميلات : 14)
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5 , elgokr , elgokr
#9
(14-11-18, 05:30 PM)Rabeea Qbaha كتب : تفضل اخي

المشكله كانت انك تريد التحديث باسم التاجر ، لكنك تضع قيمة ال txt2.text وهي القيمة الماليه للتاجر
ملاحظه من الخطئ ان تقوم بالتحديث باسم المورد لانه من الممكن ان يكون موردين بنفس الاسم وفي هذه 
الحاله ستقوم بالتحديث للاثنين معا.

قمت لك بجلب رقم المورد والتحديث يقوم حسب رقم المورد

اخى مفيش رد اقولهولك غير ربنا يبارك فيك .. بجد شكرا جدا ليك
الرد
تم الشكر بواسطة: Rabeea Qbaha , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] بخصوص دورة الأستاذ ملهم لسه مبتدئ 6 126 18-02-19, 09:06 PM
آخر رد: لسه مبتدئ
  سؤال في الفورم الذي يظهر فيه التقرير Emam emam 2 48 17-02-19, 03:59 PM
آخر رد: Emam emam
  [VB.NET] استفسار بخصوص تحريك الماوس والضغط dubai.eig 0 62 08-02-19, 06:42 PM
آخر رد: dubai.eig
  مساعدة بخصوص امر show سمير جمال 3 115 07-02-19, 03:53 AM
آخر رد: حريف برمجة
  سؤال فى صفوف الداتا جريد فيو احمد خطاب 1 78 07-02-19, 03:51 AM
آخر رد: حريف برمجة
  [كود] سؤال لأهل الخبرة كيف يمكن استدعاء شااشة لبرنامج تم برمجتة بالجافا dametucorazon 1 89 06-02-19, 10:35 AM
آخر رد: dametucorazon
  سؤال حول امر الطباعة الفورية Osama Bayoumy 6 599 02-02-19, 01:08 PM
آخر رد: atef_020
  [VB.NET] استفسار :- بخصوص ALTER TABLE dubai.eig 1 89 01-02-19, 04:22 PM
آخر رد: asemshahen5
  [VB.NET] استفسار :- بخصوص New Point form Top dubai.eig 1 97 29-01-19, 05:50 PM
آخر رد: ابراهيم ايبو
  مساعدة بخصوص الارقام في Textbox Adata 2 142 25-01-19, 02:35 AM
آخر رد: ابراهيم ايبو

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


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