[محمد اسماعيل]

اريد حصر عدد الصفوف الممكن ظهورها بعد الاستعلام

يعني عايز اعرف عدد الصفوف بالداتا جريد بعد استعلام معين بدون  فتح فورم او ظهور البيانات بالداتا جريد مباشرة من نفس كود الاتصال   من خلال زر فقط

الاتصال

كود :

Dim cmd As OleDbCommand = New OleDbCommand("SELECT ID_TB1,TYPE_TB1,COUN_TB1,PRIC_TB1,PRICESAL_TB1,TOTAL_TB1,LOWECOUNT_TB1,SUPPL_TB1,DATEPURCH_TB1  FROM tb1", con)

       con.Open()
       DataAdapter1 = New OleDbDataAdapter(cmd)
       Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(DataAdapter1)
       DataSet1 = New DataSet()
       DataAdapter1.Fill(DataSet1, "tb1")
       DataGridView1.DataSource = DataSet1
       DataGridView1.DataMember = "tb1"
       con.Close()
     

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

كود :

Dim records, current As Integer
       records = Me.BindingContext(DataSet1, "tb1").Count
       current = Me.BindingContext(DataSet1, "tb1").Position + 1

       Label1.Text = " عدد السجلات  " & current.ToString & " من " & records.ToString