تقييم الموضوع :
  • 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 م ب / التحميلات : 32)
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5 , elgokr , elgokr
#9
(14-11-18, 05:30 PM)Rabeea Qbaha كتب : تفضل اخي

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

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

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



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


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