[اسامه الهرماوي]

وعليكم السلام...

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"

ويمكنك البحث قبل طرح المشكلة فالمنتدي به الكثير من الاكواد والمشاريع.