[Abdellatif]

السلام  عليكم ورحمة الله

إخواني الكرام هاذا الكود يعمل بدون مشاكل فأنا أريد بعض التعديلات عليه بحيث  عند الحفظ لا يظهر في  الداتا كريدفيو إلا السجل الاخير الذي قمت بحفظه
ولكم جزيل الشكر.

كود :

Dim row As DataRow = dt.NewRow
       Dim pos As String = BindingContext(dt).Position
           row(1) = TextBox1.Text.ToString
       row(2) = TextBox2.Text.ToString
       row(3) = TextBox3.Text.ToString
       row(4) = TextBox4.Text.ToString
       row(5) = TextBox5.Text.ToString
       row(6) = TextBox8.Text.ToString
       row(7) = TextBox9.Text.ToString
       row(8) = TextBox6.Text.ToString

       dt.Rows.Add(row)
       da.Update(dt)

       D1.DataSource = dt

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته:

هل تريد أن يظهر فقط سجل وحيد؟؟

أم تريد أن يظهر كل السجلات التي تريد إضافتها؟

وأين تريد أن يظهر السجل في أي أداة ؟؟

هل تريد أن تبقى جميع السجلات التي حفظتها موجودة ضمن الداتاتيبل أو تتخلص منها وتحتفظ فقط بالأخير؟

[Abdellatif]

كيف حالك أخي طه أشكرك على الرد
بل أريد أن يظهر فقط سجل وحيد عندما أضغط على زر الحفظ ولابأس أعرف كيف أعاين السجلات التي قمت بحفظها قبل إغلاق الفورم وجزاك الله كل خير

[Taha Okla]

لا بد أن لديك قيمة مميزة في السجلات لا يمكن أن تتكرر في السجلات مثلا رقم أو اسم أو أي حقل ما
فهذا سنعتمد عليه كشرط لعمل فلترة لبيانات السجلات فلا يعرض إلا السجل الأخير :

على فرض أن حقل رقم (ID)  ونوعه (حقل نصي) موجود عندك وهو أول حقل في الجدول وهو رقم مميز لا يتكرر..
فيكون الكود :

كود :

Dim row As DataRow = dt.NewRow
Dim pos As String = BindingContext(dt).Position
row(1) = TextBox1.Text.Trim
row(2) = TextBox2.Text.Trim
row(3) = TextBox3.Text.Trim
row(4) = TextBox4.Text.Trim
row(5) = TextBox5.Text.Trim
row(6) = TextBox8.Text.Trim
row(7) = TextBox9.Text.Trim
row(8) = TextBox6.Text.Trim

dt.Rows.Add(row)
da.Update(dt)
'--------------------------------------
Dim dv As New DataView
dv = dt.DefaultView
dv.RowFilter = "[ID] ='" & TextBox1.Text.Trim & "'"     ' هنا ضع الشرط    
'----------------------------------------
D1.DataSource = dv.ToTable

عدل الشرط بما يناسب كودك... 
وسلامتك..

[Abdellah]

سأجرب ذالك في المساء أخي طه مع ألف شكر.

[Abdellah]

(29-12-23, 08:12 PM)Taha Okla كتب : لا بد أن لديك قيمة مميزة في السجلات لا يمكن أن تتكرر في السجلات مثلا رقم أو اسم أو أي حقل ما
فهذا سنعتمد عليه كشرط لعمل فلترة لبيانات السجلات فلا يعرض إلا السجل الأخير :

على فرض أن حقل رقم (ID)  ونوعه (حقل نصي) موجود عندك وهو أول حقل في الجدول وهو رقم مميز لا يتكرر..
فيكون الكود :

كود :

Dim row As DataRow = dt.NewRow
Dim pos As String = BindingContext(dt).Position
row(1) = TextBox1.Text.Trim
row(2) = TextBox2.Text.Trim
row(3) = TextBox3.Text.Trim
row(4) = TextBox4.Text.Trim
row(5) = TextBox5.Text.Trim
row(6) = TextBox8.Text.Trim
row(7) = TextBox9.Text.Trim
row(8) = TextBox6.Text.Trim

dt.Rows.Add(row)
da.Update(dt)
'--------------------------------------
Dim dv As New DataView
dv = dt.DefaultView
dv.RowFilter = "[ID] ='" & TextBox1.Text.Trim & "'"     ' هنا ضع الشرط    
'----------------------------------------
D1.DataSource = dv.ToTable

عدل الشرط بما يناسب كودك... 
وسلامتك..

لقد جربت الكود ولاكن لايعمل جيدا بعدما أضغط على زر الحفظ فإنه يتم ولايظهر في الداتاكريك فيو ويظهر أول سجل في قاعدة البيانات وليس آخر سجل وشكرا

[Taha Okla]

ارفع مشروعك..

[Abdellatif]

جربت الكود الاخير ولم يعمل وإليك المثال اخي طه

[Taha Okla]

بصراحة لا أعلم كيف يعمل مشروعك 
نقول قضاء وقدر، أو عجيبة من العجائب ؟؟ لا أعلم..

فيه عندك بالمشروع الجملة السحرية (لما تشوف خطأ طنش) : 

كود :

On Error Resume Next

المفروض كـ مبرمج أن لا تستخدمها إلا في حالة الضرورة القصوى،، (وحتى لا أعرف أين هي الضرورة القصوى)
وليس في كل مكان .. 
وليس مع التعامل مع قواعد البيانات أبداً..

نصيحة : 
- أعد بناء مشروعك من الصفر بدون هذه الجملة ..
- وإن توقفت عند مرحلة ما - أرفع وقتها مشروعك لطلب التعديل ..
- أما أي تعديل على هذا المشروع لا فائدة منه.. لأنه مليء بالأخطاء..

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

[Abdellatif]

(31-12-23, 12:17 AM)Taha Okla كتب : بصراحة لا أعلم كيف يعمل مشروعك 
نقول قضاء وقدر، أو عجيبة من العجائب ؟؟ لا أعلم..

فيه عندك بالمشروع الجملة السحرية (لما تشوف خطأ طنش) : 

كود :

On Error Resume Next

المفروض كـ مبرمج أن لا تستخدمها إلا في حالة الضرورة القصوى،، (وحتى لا أعرف أين هي الضرورة القصوى)
وليس في كل مكان .. 
وليس مع التعامل مع قواعد البيانات أبداً..

نصيحة : 
- أعد بناء مشروعك من الصفر بدون هذه الجملة ..
- وإن توقفت عند مرحلة ما - أرفع وقتها مشروعك لطلب التعديل ..
- أما أي تعديل على هذا المشروع لا فائدة منه.. لأنه مليء بالأخطاء..

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

أضحكتني أخي طه عندما قلت الجملة السحرية  كلامك معقول  واعتدر لانني مبتدأ في الدوت نيت وسوف اراجع المشروع وجزاك الله كل خير.