[mostafa nada]

السلام عليكم اخوانى الكرام

انا عامل فاتورة شراء ومن ضمن الفاتورة الجزء الخاص بكمية المنتجات  والمبلغ المورد ... الكمية الخاصة بالمنتجات وعند اضافة كمية والضغط على زر الحفظ يقوم التحديث بنجاح فى جدول الاصناف بالفعل وكلن لا يتم التحديث بالنسبة للمبغ المورد فى جدول الموردين !!
ودة الكود الخاص بأضافة المبلغ المورد 

كود :

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

[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]

كود :

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()


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

[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]

كود :

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()

كود :

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()


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

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

تفضل اخى

---

هذا هو الرابط

[asemshahen5]

كود :

                   strimporter = " update Importers set ImporterBalance = " & newbalance & " where ImporterName = '" & BuyImporter.Text & "'"

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

[mostafa nada]

كود :

                   strimporter = " update Importers set ImporterBalance = " & newbalance & " where ImporterName = '" & BuyImporter.Text & "'"

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

ممكن تكتب الكود للايضاح اكتر ..

[Rabeea Qbaha]

تفضل اخي

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

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

[mostafa nada]

تفضل اخي

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

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

اخى مفيش رد اقولهولك غير ربنا يبارك فيك .. بجد شكرا جدا ليك