منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود اضافة حسب قيم بالجدول - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود اضافة حسب قيم بالجدول (/showthread.php?tid=25034)

كود اضافة حسب قيم بالجدول - حافظ حافظ - 21-05-18

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


RE: كود اضافة حسب قيم بالجدول - سعود - 21-05-18

كل ما اجد سؤال فاظن انه سهل واجيب عليه اتفاجا اني بعيد عنه ثم اضطر لحذف مشاركتي.
هل تقصد الكود التالي:

PHP كود :
       TextBox5.Text = Val(TextBox1.Text) + 1 
شوف الدالة التالية:
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

RE: كود اضافة حسب قيم بالجدول - حافظ حافظ - 21-05-18

شكرا اخ سعود تم حل المشكلة و بارك الله فيك.استخدمت هكذا

كود :
   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


RE: كود اضافة حسب قيم بالجدول - سعود - 22-05-18

(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

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