[chankar]

ربما لم اوضح ما اردته سابقا لدي سارفق الصور

السلام عليكم
كما في العنوان اريد ان احفظ عدد في textbox داخل datagridview1
علما اني قمت بعملية ناقص للتكست بوكس و جدول quantite
فما اريده هو حفظ ما نتج في عمود quantite في
قاعدة بيانات اكسل وفي datagridview1
وجزاكم الله خيرا

 For i As Integer = 0 To dt.Rows.Count - 1

            dt.Rows(i).Item("quantite") = dt.Rows(i).Item("quantite") - TextBox6.Text

next

ما اريده هو حفظ الناتج في نفس العمود وفي قاعدة البيانات

وجزاكم الله خيرا

[Anas Mahmoud]

يمكنك تنفيذ استعلام على العمود المطلوب تعديله

كود :

dim n as integer  = integer.parse(TextBox1.text)
dim cmdString as string = "UPDATE [Table] SET [alkemiya] = [alkemiya] - " & n.ToString

الان نفذ استعلام باستخدام cmdString

[chankar]

(17-09-20, 03:47 PM)Anas Mahmoud كتب : يمكنك تنفيذ استعلام على العمود المطلوب تعديله

كود :

dim n as integer  = integer.parse(TextBox1.text)
dim cmdString as string = "UPDATE [Table] SET [alkemiya] = [alkemiya] - " & n.ToString

الان نفذ استعلام باستخدام cmdString

شكرا اخي علي الرد
لكن ليس هدا ما اريده ما اعطيتني يقوم بالتالي هو نقص العدد في العمود كله ليس هدا ما اريده
انا قمة بالعمليه اصلا وهي نقص العدد في textbox1.text من الخانه في العمود الخانه وليس العمود
كله انا ما اريده اخي الكريم هو كود لحفظ العمل فقط علي datagridview1 و قاعدة بيانات الاكسس

---

ما اريده هو اكمال كود لحفظ ما نقصته في داتاجريد فيو
وان كان هناك كود للقيام بعملية نقصان textbox1.text من خانه واحده فارجوا ان تفيدوني به
ما اريده بختصار هو نقصان سلعة قمة مثلا ببيعها لزبون ما اريد نقصانها من كمية السلع
مثلا انا لدي محل ابيع الكمبيوترات اشتريت من الجمال 20 كمبيوتر و قمة ببيع كمبيوترين
لشخص ما ما اريده هو نقصان الكمبيوترين من العشرين كمبيوتر

---

وهدا الكود الدي لدي

[mrfodri]

تم إضافة كود تحديث قاعدة البيانات وستحدث الداتاجريد معها

كود :

Imports System.Data.OleDb

Public Class Form1

   Dim con As New OleDbConnection(" Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\client.mdb")
   Dim da As New OleDbDataAdapter
   Dim dt As New DataTable

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       da = New OleDbDataAdapter("select*from stock ", con)
       dt = New DataTable
       da.Fill(dt)
       DataGridView1.DataSource = dt
   End Sub

   Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click

       For i As Integer = 0 To dt.Rows.Count - 1

           dt.Rows(i).Item("alkmiya") = dt.Rows(i).Item("alkmiya") - TextBox6.Text

       Next

       Dim cb As New OleDbCommandBuilder(da)
       da.Update(dt)
       dt.AcceptChanges()

   End Sub

End Class

---

ملاحظة: من صورة قاعدة بيانات الأكسس واضح في الجدول stock أن alkmiya نوعها (نص) والمفروض يكون نوعها (رقم)

[chankar]

(17-09-20, 07:49 PM)mrfodri كتب : تم إضافة كود تحديث قاعدة البيانات وستحدث الداتاجريد معها

كود :

Imports System.Data.OleDb

Public Class Form1

   Dim con As New OleDbConnection(" Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\client.mdb")
   Dim da As New OleDbDataAdapter
   Dim dt As New DataTable

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       da = New OleDbDataAdapter("select*from stock ", con)
       dt = New DataTable
       da.Fill(dt)
       DataGridView1.DataSource = dt
   End Sub

   Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click

       For i As Integer = 0 To dt.Rows.Count - 1

           dt.Rows(i).Item("alkmiya") = dt.Rows(i).Item("alkmiya") - TextBox6.Text

       Next

       Dim cb As New OleDbCommandBuilder(da)
       da.Update(dt)
       dt.AcceptChanges()

   End Sub

End Class

---

ملاحظة: من صورة قاعدة بيانات الأكسس واضح في الجدول stock أن alkmiya نوعها (نص) والمفروض يكون نوعها (رقم)

هدا الكود اخي جربته سابقا ولم ينفع يعطيني دائما مشكل في  dt و da
مع ان كل شئ في قاعدة البيانات صحيح ما هو المشكل

[asemshahen5]

PHP كود :

da.UpdateCommand = New OleDb.OleDbCommandBuilder(da).GetUpdateCommand() 


---

اي :

PHP كود :

       For i As Integer = 0 To dt.Rows.Count - 1
            dt.Rows(i).Item("alkmiya") = dt.Rows(i).Item("alkmiya") - TextBox6.Text
        Next
        da.UpdateCommand = New OleDb.OleDbCommandBuilder(da).GetUpdateCommand()
        da.Update(dt)
        dt.AcceptChanges() 


[chankar]

(17-09-20, 10:56 PM)asemshahen5 كتب :

PHP كود :

da.UpdateCommand = New OleDb.OleDbCommandBuilder(da).GetUpdateCommand() 


---

اي :

PHP كود :

       For i As Integer = 0 To dt.Rows.Count - 1
            dt.Rows(i).Item("alkmiya") = dt.Rows(i).Item("alkmiya") - TextBox6.Text
        Next
        da.UpdateCommand = New OleDb.OleDbCommandBuilder(da).GetUpdateCommand()
        da.Update(dt)
        dt.AcceptChanges() 


نفس المشكل اخي

[asemshahen5]

هل انت معبئ الداتا ادبتر قبل استخدامها للحفظ .

---

اي هل استخدمت استعلام تعبئة الدتاتيبل و استخدمت الداتا ادبتر قبل كود بلد استعلام التعديل .

[chankar]

(17-09-20, 11:42 PM)asemshahen5 كتب : هل انت معبئ الداتا ادبتر قبل استخدامها للحفظ .

---

اي هل استخدمت استعلام تعبئة الدتاتيبل و استخدمت الداتا ادبتر قبل كود بلد استعلام التعديل .

كيف اعبئ الداتا ادبتر !!!!!
استعلام يعني declaration ام انا مخطئ الكود كله وضعته لك اخي في الصوره فوق
اضن الاستعلام يكون في sql او لغة c انا اعمل علي الاكسس و vb اخي انا لا
افهم في لغة sql او c
اما ان كان الاستعلام هو الربط بين الجداول في الاكسس بربط عمودين فانا لدي
عمود واحد فقط هو عمود stock

[asemshahen5]

ضع لي مثال مضغر من نافذة واحدة و قاعدة البيانات بجدول الذي يخص النافذة لانظر في امره و الله الموفق .