+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مهم للغايه حدث LAOD أبي حل (/showthread.php?tid=13703)
مهم للغايه حدث LAOD أبي حل - adel27 - 03-11-15
حــدث اللود لصفحة نموذج تعببئه البيانات
طبعاً في هذا الفورم يوجد تكست بكس تستقبل قيم من المستخدم الأسم - رقم الهويه -وإلى أخــره من ضمنها TextBox1.Text وهذا التكست عبـاره عن أسم الملف له شرط وشرطه موجود بالأسفل مفعل فيه خاصيه أنيبل = ترو
هنـا كود تحميل الجدول داخل الدتا قريد فـيو
+
Dim max As Integer
For i As Integer = 0 To ds.Tables("All_Data").Rows.Count - 1
If ds.Tables("All_Data").Rows(i).Item("ID") > max Then
max = ds.Tables("All_Data").Rows(i).Item("ID")
End If
Next
( TextBox1.Text = CStr(max + 1
هذا الكود يضع لي في TEXTBOX1.TEXT رقم ID اللي راح يتسجل فيه هذا الشخص
الكود شغال معاي تمام ولكن عندي مشـكله وهي أنه سيستخدم البرنامج أكثر من شخص فعند فتح النافذه لمستخدمين في نفس الوقت سيظهر لهم في التسكت بكس نفس الرقم
أنـا أبيه إذا فتح مستخدم نموذج تعبئة البيانات يعطيه رقم بس ما يكرره عن مستخدم أخر
RE: مهم للغايه حدث LAOD أبي حل - adel27 - 03-11-15
الطريقه الثانيه أكيد بدون
ولكن كيف أظهرها داخل التسكست بكس 1
طبقت المثال عطاني رقم 1 وهي قيمة خطأئه
RE: مهم للغايه حدث LAOD أبي حل - adel27 - 03-11-15
سهل للغايه
لكن النتيجه 1
أنا أبحث عن كود بداية تحميل الفورم يضع في التكست بكس 1 رقم ID الخاص السجل نفسه
بحيث أنه إذا شخص أخر فتح البرنامج وجاء يدخل البيانات يعطيه رقم غير الرقم اللي أخذه المستخدم الأول
RE: مهم للغايه حدث LAOD أبي حل - silverlight - 03-11-15
كود :
Dim i As Integer = 0
Dim max As Integer = 100
While i < max
TextBox1.Text = CStr(i)
i += 1
End WhileRE: مهم للغايه حدث LAOD أبي حل - HASAN6.0 - 03-11-15
جرب هذا
TextBox1.text = ds.Tables("All_Data").Rows.Count+1
استخدم كود للتأكد من الرقم هل هو موجود ام لا .. قبل عملية الحفظ , فاذا كان موجوداً قم باضافة 1 والبحث من جديد.
RE: مهم للغايه حدث LAOD أبي حل - adel27 - 03-11-15
(03-11-15, 03:15 PM)silverlight كتب :كود :
Dim i As Integer = 0
Dim max As Integer = 100
While i < max
TextBox1.Text = CStr(i)
i += 1
End While
خطأ عطاني 99 والمفروض يعطيني 22
(03-11-15, 03:47 PM)HASAN6.0 كتب : جرب هذا
TextBox1.text = ds.Tables("All_Data").Rows.Count+1
استخدم كود للتأكد من الرقم هل هو موجود ام لا .. قبل عملية الحفظ , فاذا كان موجوداً قم باضافة 1 والبحث من جديد.
خطأ أيضاُ
RE: مهم للغايه حدث LAOD أبي حل - HASAN6.0 - 03-11-15
(03-11-15, 03:51 PM)adel27 كتب : خطأ أيضاُ
اذا ممكن ترفق المشروع او فورم مبسط حتى تكون عمليه فهم المطلوب اسهل ...
RE: مهم للغايه حدث LAOD أبي حل - silverlight - 03-11-15
لماذا اخذت الكود و نفذته كما هو .........المفروض يا اخي إن قيمة max تعبر عن اخر رقم في الجدول عندك
RE: مهم للغايه حدث LAOD أبي حل - adel27 - 03-11-15
الأن قاعدة البيانات مدرج داخلها 21 سجل
أريد إذا المستخدم الأول فتح الفورم يظهر له في التسكست بكس 22
وإذا مستخدم أخر فتح الفورم في نفس الوقت ويظهر له رقم 23
هذا الرقم هو عبـاره عن الترقيم التلقائي داخل قاعدة البيانات سكيول سيرفر أسم العمود ID
أنا مابي أحدد أن أخر قيمه = كذا
لأني بقدم قاعدة البيانات فارغه وأول صف راح يكون 1
RE: مهم للغايه حدث LAOD أبي حل - adel27 - 03-11-15
(03-11-15, 04:02 PM)khodor1985 كتب : أخي العزيز قبل أن ننهي مشكلتك أعتقد أنك طلبت في إحدى المشاركات إجراء نسخة إحتياطية لقاعدة البيانات أرجو منك أخي العزيز أن تتعرف جيدا على بيئة Sql لأن كثير من الأمور سوف تصبح سهلة وطيعة بين يديك
أنشــاء الله شاكر لك أهتمامك ياغالي
الفكره يا أخواني بسيطه هي أن تكست أسم الملف تأخذ قيمة ID
أي بمعنى
أن هذا الشخص الذي يتم تسجيله رقمه التسلسلي 21 هذا الرقم يظهر داخل التكست عند حدث اللود
بحيث أن لو شخص أخر فتح الفورم بعد بثانيه واحده يظهر له رقم 22 هذه الفكره بكل بساطه
داخل قاعدة البيانات
بحيث أن عمود ID وعمود Malf يأخذان نفس القيمه 1-1 2-2-3-3-4-4-5-5 ..... إلى أخره