(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

(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 نوعها (نص) والمفروض يكون نوعها (رقم)

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


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

---

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