تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] بخصوص الاحتفاظ بقيم الـ Textbox
#1
ما هي طريقة الاحتفاظ بأخر قيم مسجله في ال textboxs عند اغلاق البرنامج و إعادة فتحه ؟ 
يعني لو عندي تكست بوكس فيها قيمه 
عايز لما اقفل البرنامج و افتحه مرة أخري الاقي القيمة مسجلة ؟
الرد }}
تم الشكر بواسطة:
#2
احفظ القيمة في setting البرنامج
كل مافتحته ياخذها التكست بوكس من setting
وخلي قمية setting تتغير كل ماتغيرت قيمة التكست بوكس
الرد }}
تم الشكر بواسطة: ابراهيم ايبو , asmarsou
#3
(06-02-22, 10:31 AM)سيف الشمال كتب : احفظ القيمة في setting البرنامج
كل مافتحته ياخذها التكست بوكس من setting
وخلي قمية setting  تتغير كل ماتغيرت قيمة التكست بوكس

ممكن توضيح اكتر
الرد }}
تم الشكر بواسطة:
#4
(06-02-22, 07:17 PM)Han2022 كتب :
(06-02-22, 10:31 AM)سيف الشمال كتب : احفظ القيمة في setting البرنامج
كل مافتحته ياخذها التكست بوكس من setting
وخلي قمية setting  تتغير كل ماتغيرت قيمة التكست بوكس

ممكن توضيح اكتر

كما ذكر لك الاخ سيف الشمال
اليك بمثال بسيط فقط القي نظرة على خصائص المشروع ثم اختر تبويب setting لكي يتسنى لك فهم  كيف يتم عمل ذلك
ملاحظة يمكنك حفظ ال settings اما كما في المثال او عن طريف اضافة زر للحفظ و ضع به الكود المكتوب في حدث اغلاق الفورم بعد مسحه


الملفات المرفقة
.rar   How to save textboxs setting.rar (الحجم : 77.17 ك ب / التحميلات : 29)
الرد }}
تم الشكر بواسطة: ابراهيم ايبو
#5
السلام عليكم ورحمة الله وبركاته
اخوتي الكرام
شكرا لك الاخ asmarsu 
زيادة في الايضاح ولفهم الامر
اليكم هذا الرابط للاخ الاستاذ أحمد الزيني جزاه الله كل خير
https://www.youtube.com/watch?v=coaOpmoo...&index=212
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}
تم الشكر بواسطة: asmarsou
#6
السلام عليكم ورحمة الله
أنا اسف لوضع استفساري هنا لكن  كل ما احاول اضيف موضوع يقولي تاكد من تصحيح الاخطاء التاليه للمتابعة ولا ارى اي خطأ ؟
بكل حال اخواني انا عندي قاعدة بيانات على اكسس  مربوطة في الفيجوال  بيزك 2017 .. واكسس 2016 . اضفت ازرار اضافه وحفظ وحذف وكلها شغاله تمام

لكن زر التعديل .. لما اعدل اي شي بالبيانات يظهر لي هذا الخطأ


هذا كود التعديل
كود :
Public Sub Update_tbl1(ByVal emp_name AS String,ByVal emp_ID AS Long,ByVal job_nmbr AS String,ByVal job_type AS String,ByVal job_level AS String,ByVal case_due AS String,ByVal s_from AS String,ByVal s_number AS String,ByVal s_date AS String,ByVal ts_from AS String,ByVal ts_number AS String,ByVal ts_date AS String,ByVal for_what AS String,ByVal punsh_type AS String,ByVal punsh_detail AS String,ByVal IDW AS Long)
Dim Cmd As New OledbCommand
With Cmd
.Connection = Con
.CommandType = CommandType.Text
.CommandText = "Update tbl1 Set emp_name = @emp_name,emp_ID = @emp_ID,job_nmbr = @job_nmbr,job_type = @job_type,job_level = @job_level,case_due = @case_due,s_from = @s_from,s_number = @s_number,s_date = @s_date,ts_from = @ts_from,ts_number = @ts_number,ts_date = @ts_date,for_what = @for_what,punsh_type = @punsh_type,punsh_detail = @punsh_detail Where ID = @ID"
.Parameters.Clear()
.Parameters.AddWithValue("@emp_name", OleDbType.VarWChar ).Value = emp_name
.Parameters.AddWithValue("@emp_ID", OleDbType.Integer ).Value = emp_ID
.Parameters.AddWithValue("@job_nmbr", OleDbType.VarWChar ).Value = job_nmbr
.Parameters.AddWithValue("@job_type", OleDbType.VarWChar ).Value = job_type
.Parameters.AddWithValue("@job_level", OleDbType.VarWChar ).Value = job_level
.Parameters.AddWithValue("@case_due", OleDbType.VarWChar ).Value = case_due
.Parameters.AddWithValue("@s_from", OleDbType.VarWChar ).Value = s_from
.Parameters.AddWithValue("@s_number", OleDbType.VarWChar ).Value = s_number
.Parameters.AddWithValue("@s_date", OleDbType.VarWChar ).Value = s_date
.Parameters.AddWithValue("@ts_from", OleDbType.VarWChar ).Value = ts_from
.Parameters.AddWithValue("@ts_number", OleDbType.VarWChar ).Value = ts_number
.Parameters.AddWithValue("@ts_date", OleDbType.VarWChar ).Value = ts_date
.Parameters.AddWithValue("@for_what", OleDbType.VarWChar ).Value = for_what
.Parameters.AddWithValue("@punsh_type", OleDbType.VarWChar ).Value = punsh_type
.Parameters.AddWithValue("@punsh_detail", OleDbType.VarWChar ).Value = punsh_detail
.Parameters.AddWithValue("@ID", OleDbType.Integer ).Value = IDW
End With
If Con.State = 1 Then Con.Close()
Con.Open()
Cmd.ExecuteNonQuery()
Con.Close()
MsgBox("تم تعديل السجل بنجاح", MsgBoxStyle.Information, "تعديل")
Cmd = Nothing
End Sub


وهذا كود الزر  
كود :
Update_tbl1(emp_name.Text,emp_ID.Text,job_nmbr.Text,job_type.Text,job_level.Text,case_due.Text,s_from.Text,s_number.Text,s_date.Text,ts_from.Text,ts_number.Text,ts_date.Text,for_what.Text,punsh_type.Text,punsh_detail.Text,ID.Text)

وهذا الخطأ لمن اضغط على زر تعديل

PHP كود :
System.InvalidCastException'Conversion from string "فيصل الاحمد" to type 'Long' is not valid.' 


علما ان التعديل كان على رقم الوظيفه وليس الاسم
اتمنى  الافادة منكم يا ساده .. ولكم جزيل الشكر
الرد }}
تم الشكر بواسطة:
#7
السلام عليكم ورحمة الله وبركاته
اخي الكريم 
رسالة الخطأ تدل على ان الحقل الذي يدخل فيه الاسم هو من نوع رقمي وانت تضع فيه نص 
ولايمكن تحويل النص الى رقم عد الى قاعدة البيانات وتأكد
وان لم تحل المشكلة يمكنك ارفاق مثال مصغر للتعامل مع الجدول المذكور مع قاعدة البيانات ليتم التعرف على الخطأ واصلاحه ولكن ضع سؤالك في منشور جديد غير هذا
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم