تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود اضافة حسب قيم بالجدول
#1
السلام عليكم.مساكم الله بالخير اخواني
هذا ملف ساعدني فيه الاخ سعود جزاه الله كل الخير وهو جدا مشكور بهذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=25023
حبيت و املي مساعدتكم باضافة لو سمحتو
بالفورم2 لما اضغط على زر add لاول مرة لما table2 فارغة يكون التاكست 5 يساوي التاكست 1 .التاكست 5 يكون first record يلي بال table1..و بعدين كل ما اجي اعمل add ينضاف واحد على firstrecord
شكرا و بارك الله فيكم


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 100.66 ك ب / التحميلات : 26)
الرد
تم الشكر بواسطة: سعود
#2
كل ما اجد سؤال فاظن انه سهل واجيب عليه اتفاجا اني بعيد عنه ثم اضطر لحذف مشاركتي.
هل تقصد الكود التالي:

PHP كود :
       TextBox5.Text Val(TextBox1.Text) + 

شوف الدالة التالية:
PHP كود :
 Private Function rowcount() As Integer
        Using myconnection 
As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" Application.StartupPath "\DATAMMM.accdb")
 
           Using cm As New OleDbCommand("select count(*) from Table2"myconnection)
 
               If myconnection.State ConnectionState.Closed Then
                    myconnection
.Open()
 
               End If
 
               Return cm.ExecuteScalar
                If myconnection
.State ConnectionState.Open Then
                    myconnection
.Close()
 
               End If
 
           End Using
        End Using
    End 
Function 
هذه الدالة تعيد عدد صفوف جدول2
وضمن اجراء زر امر اكتب:
PHP كود :
If rowcount() = 0 Then
            TextBox5
.Text Val(TextBox1.Text) + 1
        End 
If 
طيب ... في حال وجود صفوف في جدول2 ؟؟ لن يضيف شيء حتى تضيف جملة بعد else
الرد
تم الشكر بواسطة: حافظ حافظ , elgokr , عبدالله الدوسري
#3
شكرا اخ سعود تم حل المشكلة و بارك الله فيك.استخدمت هكذا

كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If rowcount() = 0 Then
           TextBox5.Text = Val(TextBox1.Text)
       Else
           TextBox5.Text = Val(TextBox1.Text) + 1
       End If
   End Sub
الرد
تم الشكر بواسطة: elgokr , سعود
#4
(21-05-18, 02:29 PM)حافظ حافظ كتب : شكرا اخ سعود تم حل المشكلة و بارك الله فيك.استخدمت هكذا

كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If rowcount() = 0 Then
           TextBox5.Text = Val(TextBox1.Text)
       Else
           TextBox5.Text = Val(TextBox1.Text) + 1
       End If
   End Sub

بارك الله فيك وكثر من امثالك ... اسلوبك بالاهتمام بالمشاركين  يجعلهم يتسابقون لتقديم مالديهم  حال ورود سؤال.
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  خطأ فى كود اضافة احمد خطاب 1 47 14-01-19, 11:50 AM
آخر رد: محمد اسماعيل
  محتاج طريقة اضافة اعلان مثلا بانر Mohamed Magdy 3 137 02-01-19, 04:11 PM
آخر رد: أبووسم
  قمت بعمل برنامج واريد اضافة سريال تفعيل له remonmary 3 115 29-12-18, 05:44 PM
آخر رد: alsouf
  كود اضافة kaiser3D 0 73 17-12-18, 07:04 AM
آخر رد: kaiser3D
  [VB.NET] اضافة سريال لكل عملية محمد اسماعيل 4 153 14-12-18, 07:14 PM
آخر رد: محمد اسماعيل
  [VB.NET] اضافة الملفات محمد اسماعيل 9 678 10-12-18, 03:49 PM
آخر رد: tuscake
  اضافة بيانات اكثر من جدول في الكرستال المتألق9 1 100 02-12-18, 04:06 PM
آخر رد: Rabeea Qbaha
  [سؤال] اضافة التاريخ الى قاعدة البيانات allo5_800 2 131 18-11-18, 02:17 AM
آخر رد: allo5_800
  محتاج اضافة داخل الفيجوال بيسك 2010 Mohamed Magdy 2 104 14-11-18, 02:55 PM
آخر رد: Mohamed Magdy
Heart اريد طريقة اضافة رقم صفر قبل الرقم ahmadpal 6 217 12-11-18, 01:00 PM
آخر رد: elgokr

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


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