منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال بخصوص ال update فى الاكسس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال بخصوص ال update فى الاكسس (/showthread.php?tid=27410)

سؤال بخصوص ال update فى الاكسس - mostafa nada - 12-11-18

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

انا عامل فاتورة شراء ومن ضمن الفاتورة الجزء الخاص بكمية المنتجات  والمبلغ المورد ... الكمية الخاصة بالمنتجات وعند اضافة كمية والضغط على زر الحفظ يقوم التحديث بنجاح فى جدول الاصناف بالفعل وكلن لا يتم التحديث بالنسبة للمبغ المورد فى جدول الموردين !!
ودة الكود الخاص بأضافة المبلغ المورد 
كود :
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


RE: سؤال بخصوص ال update فى الاكسس - Rabeea Qbaha - 12-11-18

كود :
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()


RE: سؤال بخصوص ال update فى الاكسس - mostafa nada - 12-11-18

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


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


RE: سؤال بخصوص ال update فى الاكسس - Rabeea Qbaha - 12-11-18

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


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


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

RE: سؤال بخصوص ال update فى الاكسس - mostafa nada - 13-11-18

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


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


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

RE: سؤال بخصوص ال update فى الاكسس - asemshahen5 - 13-11-18

كود :
                   strimporter = " update Importers set ImporterBalance = " & newbalance & " where ImporterName = '" & BuyImporter.Text & "'"

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

RE: سؤال بخصوص ال update فى الاكسس - mostafa nada - 14-11-18

(13-11-18, 07:16 PM)asemshahen5 كتب :
كود :
                   strimporter = " update Importers set ImporterBalance = " & newbalance & " where ImporterName = '" & BuyImporter.Text & "'"

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

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

RE: سؤال بخصوص ال update فى الاكسس - Rabeea Qbaha - 14-11-18

تفضل اخي

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

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

RE: سؤال بخصوص ال update فى الاكسس - mostafa nada - 18-11-18

(14-11-18, 05:30 PM)Rabeea Qbaha كتب : تفضل اخي

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

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

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