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

نسخة كاملة : مجموعة أسئلة حول حساب عدد الاسطر واستخراج محتوى خانة من القاعدة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم اخواني الكرام 
أود أن اسئلكم عن 
1- كيفية حساب الطول العمودي لجدول قاعدة البيانات في فيجوال بيسك 
2- في برنامج أود استخراج أو تاريخ تم تسجيله في قاعدة البيانات ووضعه في لابيل واحدة , واستخراج اخر تاريخ في آخر سطر من القاعدة واضافته في لابيل أخرى .
3- كيفية عمل زر refresh لقاعدة البيانات , اي تحديث للمعلومات في حالة التعديل عليها  Blush
أتمنى الاجابة عن الثلاث الاسئلة لمن له معلومات عن ذلك 
وشكرا لكم
(10-08-19, 08:52 AM)سعود كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
اخي الكريم قسم المشاريع ممتليء بكل ما ذكرت
أنت إبدا  وان وقفت امامك مسالة اذكرها بتفاصيلها.

شكرا أيها الاخ سعود , بصراحة نحن نسأل حين نحتاج السؤال.
بعد البحث لم اجد ما أبحث عنه بالضبط داخل المنتدى 
لكن إجابة على أحد أسئلتي 
طريقة عد الصفوف عموديا في قاعدة البيانات   //
الحل  : 
كود :
       Dim i As Integer = DataGridView1.RowCount - 1
       Label15.Text = i
 ونرجوا المساعدة في باقي الاسئلة , وأنا كذلك في طور البحث
وعليكم السلام...

1- كيفية حساب الطول العمودي لجدول قاعدة البيانات في فيجوال بيسك 
كود :
     TextBox1.Text = datagridview1.Rows.Count


2- في البرنامج أود استخراج تاريخ تم تسجيله في قاعدة البيانات ووضعه في لابيل واحدة , واستخراج اخر تاريخ في آخر سطر من القاعدة واضافته في لابيل أخرى .
كود :
عند الضغط علي حقل يضيفة للأداة:
Private Sub datagridview1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles datagridview1.CellClick
       TextBox1.Text = datagridview1.CurrentRow.Cells("اسم_الحقل").Value.ToString()
   End Sub


أخر تاريخ من القاعدة
   If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Try
           Dim a As New SqlCommand("Select MAX(الربح) from basket", con)

           Dim b As String = a.ExecuteScalar

           مبلغ.Text = b
       Catch ex As Exception
           مبلغ.Text = "0"
       End Try

3- كيفية عمل زر refresh لقاعدة البيانات , اي تحديث للمعلومات في حالة التعديل عليها 
كود :
SQLstr = "SELECT * from table"
       DataSet.Clear()
   Dim DataAdapterMaterials As New SqlDataAdapter(SQLstr, con)
       DataAdapterMaterials.Fill(DataSet, "basket")
       con.Close()
       datagridview1.DataSource = DataSet
       datagridview1.DataMember = "basket"

ويمكنك البحث قبل طرح المشكلة فالمنتدي به الكثير من الاكواد والمشاريع.
السلام عليكم ورحمة الله وبركاته
تفضل اخي رائد
هذا المثال فيه اجابة لتساؤلاتك الثلاثة 
اضافة الى المتوسط الحسابي وجمع عمود 
وجعل الداتاغرايد بدون ارتباط مع اي داتاتابل
(10-08-19, 01:55 PM)ابراهيم ايبو كتب : [ -> ]اليلام عليكم ورحمة الله وبركاته
تفضل اخي رائد
هذا المثال فيه اجابة لتساؤلاتك الثلاثة 
اضافة الى المتوسط الحسابي وجمع عمود 
وجعل الداتاغرايد بدون ارتباط مع اي داتاتاب
صراحة اخي ابراهيم الشكر بالنسبة لك هو أمر بسيط .
تستحق من عندي شارة تزكية وفخر
ان الله لايضيع اجر من عمل عملا حسنا فأتقنه 
Heart
وشكرا لك
الحمد لله والشكر لله
ولك اخي (الرائد)
تكفيني محبتكم وهي اغلى الكنوز
اللهم اجعل الحب سمة هذا المنتدى لانه من عبادتنا لك ان نحبك ونخلص لك في كل اعمالنا
اللهم آمين
اضحى مبارك على كل اسرة فيجوال بيسك لكل العرب
اعاده الله علينا وعلى الامة الاسلامية بالخير واليمن والبركة