تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] سلام سؤال تحويل رابط حاتمي 5 96 16-05-19, 02:29 PM
آخر رد: elgokr
  [سؤال] بخصوص SQL Database DK-x 4 133 04-05-19, 04:44 PM
آخر رد: asemshahen5
  سؤال بخصوص نقل بيانات faysal13_13@hotmail.com 1 88 27-04-19, 10:32 PM
آخر رد: saoud2
  [VB.NET] سؤال بخصوص فتح الشاشات khalid475 3 97 25-04-19, 09:18 PM
آخر رد: elgokr
  [VB.NET] سؤال بخصوص datetimepicker في الداتا جريد فيو jassim316 7 159 25-04-19, 09:28 AM
آخر رد: elgokr
  [VB.NET] سؤال بخصوص client server dubai.eig 3 100 23-04-19, 11:40 AM
آخر رد: elgokr
  [VB.NET] سوال بخصوص اداه JbsaPrintDataGridView.dll للطباعه jassim316 3 88 21-04-19, 12:53 PM
آخر رد: elgokr
  [VB.NET] مساعدة بخصوص برنامج مبيعات hodanet 4 147 20-04-19, 12:16 PM
آخر رد: elgokr
  سؤال حول تنسيق لون مربع نص المتألق9 3 107 19-04-19, 02:31 AM
آخر رد: المتألق9
  [نقاش] سؤال محير جداااااا وارجو المساعده faysal13_13@hotmail.com 6 134 18-04-19, 11:52 AM
آخر رد: اسامه الهرماوي

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


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