منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

"

مسائكم ورد اعزائي 

استفسار ي اخوان معي قاعدة بيانات نوع اكسس وفيها عدد من موظفين او سجلاات الموظفين ..

هل يوجد كود لعرض عدد السجلات الي معي في مشروعي .. في ليبل او تكس بوكس يمشي لو فيه ..

لتوضيح فكره اكثر مطلوب من كود يفحص لي الجدول كم سجل انا ضاف فيه ويعطيني العدد الموجود فيه 


ياليت اذا فيه تفيدوني 



ملاحظة استخدم فيجول 2010
واتصالي عن طريق OleDbConnection بقاعدة البيانات ..

مودتي للجميع

تم ايجاد الكود هذا هو للفائده 




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


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

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

(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

يعطيك ربي الف عافيه عزيزي