تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اضافة ايقونة لصفوف الداتاجريد فيو محمد اسماعيل 5 134 17-05-19, 10:33 PM
آخر رد: محمد اسماعيل
  [سؤال] حل مشكلة عدم وجود اضافة vlc في فجويل حاتمي 2 69 16-05-19, 02:11 PM
آخر رد: حاتمي
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 9 188 15-05-19, 06:08 PM
آخر رد: makky
  اضافة حقل الي الجدول برمجيا makky 1 73 04-05-19, 02:18 AM
آخر رد: makky
  تم الحل : اضافة ازرار التنقل بين السجلات محمد خيري 5 150 26-04-19, 06:16 PM
آخر رد: elgokr
  اضافة صف جديد لدلتا جريد مرتبط nourmandour 5 102 24-04-19, 02:46 PM
آخر رد: elgokr
  طلب مساعدة في اضافة save restore حاتمي 6 207 24-04-19, 12:39 AM
آخر رد: حاتمي
  [سؤال] كيف اضافة صورة عن طريق الاسكانر وهج الصحراء 2 112 19-04-19, 12:42 PM
آخر رد: elgokr
  أريد معرفة كيفية اضافة نيت فيم ورك لفيجول استوديو 2010 PeterGhattas082460 5 120 10-04-19, 03:21 PM
آخر رد: بدري
  اريد اضافة بوتون داخل عمود فى الداتا جريد فيو سمير جمال 3 121 10-04-19, 12:24 PM
آخر رد: elgokr

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


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