(09-07-17, 09:14 PM)Marwan9990 كتب : تم ايجاد الكود هذا هو للفائده 

كود :

Con.Open()
       Dim cmd As New OleDbCommand()
       cmd.CommandText = "select Count(*) from Mobiles"
       cmd.Connection = Con

       Dim RecordCount As Integer

       RecordCount = cmd.ExecuteScalar
       TextBox1.Text = RecordCount

       Con.Close()

طريقة الاستخدام :
تفتح فورم جديد وتعمل فيه تكس بوكس وتتاكد انه اي دي ل تكس بوكس الي وضعته ( TextBox1)


تضع الكود حدث لود بيج 

وتشغل برنامج ومبارك عليك 

(09-07-17, 10:29 PM)حريف برمجة كتب :

(09-07-17, 09:14 PM)Marwan9990 كتب : تم ايجاد الكود هذا هو للفائده 

كود :

Con.Open()
       Dim cmd As New OleDbCommand()
       cmd.CommandText = "select Count(*) from Mobiles"
       cmd.Connection = Con

       Dim RecordCount As Integer

       RecordCount = cmd.ExecuteScalar
       TextBox1.Text = RecordCount

       Con.Close()

طريقة الاستخدام :
تفتح فورم جديد وتعمل فيه تكس بوكس وتتاكد انه اي دي ل تكس بوكس الي وضعته ( TextBox1)


تضع الكود حدث لود بيج 

وتشغل برنامج ومبارك عليك 

مرحبا ايضاً يمكنك الاعتماد على هذا الكود ...

كود :

 Dim ret As Integer = (New OleDbDataAdapter("SELECT * FROM Mobiles", Con).Fill(New DataTable))
        TextBox1.Text = ret