ربما لم اوضح ما اردته سابقا لدي سارفق الصور
السلام عليكم
كما في العنوان اريد ان احفظ عدد في 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
ما اريده هو حفظ الناتج في نفس العمود وفي قاعدة البيانات
وجزاكم الله خيرا
يمكنك تنفيذ استعلام على العمود المطلوب تعديله
كود :
dim n as integer = integer.parse(TextBox1.text)
dim cmdString as string = "UPDATE [Table] SET [alkemiya] = [alkemiya] - " & n.ToString
الان نفذ استعلام باستخدام
cmdString
(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 كمبيوتر و قمة ببيع كمبيوترين
لشخص ما ما اريده هو نقصان الكمبيوترين من العشرين كمبيوتر
وهدا الكود الدي لدي
تم إضافة كود تحديث قاعدة البيانات وستحدث الداتاجريد معها
كود :
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, 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
مع ان كل شئ في قاعدة البيانات صحيح ما هو المشكل
هل انت معبئ الداتا ادبتر قبل استخدامها للحفظ .
اي هل استخدمت استعلام تعبئة الدتاتيبل و استخدمت الداتا ادبتر قبل كود بلد استعلام التعديل .
(17-09-20, 11:42 PM)asemshahen5 كتب : [ -> ]هل انت معبئ الداتا ادبتر قبل استخدامها للحفظ .
اي هل استخدمت استعلام تعبئة الدتاتيبل و استخدمت الداتا ادبتر قبل كود بلد استعلام التعديل .
كيف اعبئ الداتا ادبتر !!!!!
استعلام يعني declaration ام انا مخطئ الكود كله وضعته لك اخي في الصوره فوق
اضن الاستعلام يكون في sql او لغة c انا اعمل علي الاكسس و vb اخي انا لا
افهم في لغة sql او c
اما ان كان الاستعلام هو الربط بين الجداول في الاكسس بربط عمودين فانا لدي
عمود واحد فقط هو عمود stock
ضع لي مثال مضغر من نافذة واحدة و قاعدة البيانات بجدول الذي يخص النافذة لانظر في امره و الله الموفق .