تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] استفسار عن كود عدد السجلات في قاعدة بيانات نوع اكسس
#1
"

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

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

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

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


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



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

مودتي للجميع
الرد }}}
تم الشكر بواسطة:
#2
تم ايجاد الكود هذا هو للفائده 


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


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

وتشغل برنامج ومبارك عليك 
الرد }}}
تم الشكر بواسطة:
#3
(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
الرد }}}
تم الشكر بواسطة: sendbad100 , sendbad100 , Marwan9990 , KIKO1992 , KIKO1992
#4
(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

يعطيك ربي الف عافيه عزيزي
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير لون السجلات في كريستال ريبورت بناء على قيم معينة صالح عبدالله 4 355 16-02-24, 09:30 PM
آخر رد: صالح عبدالله
Lightbulb [مثال] استفسار Nani 0 942 28-10-21, 08:48 PM
آخر رد: Nani
  طباعة بيانات من عدّة جداول عبد العزيز البسكري 2 2,397 19-07-21, 12:37 AM
آخر رد: Lathe1
  مشكلة في ربط تقرير قاعدة بيانات بالكريستال ريبورت 2008 aftfm 0 1,355 16-02-21, 07:17 PM
آخر رد: aftfm
  قاعدة بيانات Mjd جيولوجي مبتدئ 0 1,222 19-03-20, 04:18 PM
آخر رد: جيولوجي مبتدئ
  فلترة بيانات الداتا جريد فيو mr_hso 1 2,246 31-07-19, 08:52 PM
آخر رد: mr_hso
  استفسار حول listview fuad_alshujaa 0 1,162 22-07-19, 09:23 AM
آخر رد: fuad_alshujaa
  [ تمّ الحل ] : إظهار رأس التّقرير و بيانات نهايته بالصفحات المخصّصة عبد العزيز البسكري 9 3,688 18-05-19, 02:46 AM
آخر رد: عبد العزيز البسكري
  الكريستال ريبورت بدون قاعدة بيانات sads 5 2,438 04-04-19, 02:42 AM
آخر رد: عبد العزيز البسكري
  إستفسار حول التغير من نص لرقم عند حفظ قيمة مربع النص في قاعدة البيانات sads 14 3,999 03-04-19, 12:43 PM
آخر رد: sads

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


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