04-02-18, 02:47 PM
اريد حصر عدد الصفوف الممكن ظهورها بعد الاستعلام
يعني عايز اعرف عدد الصفوف بالداتا جريد بعد استعلام معين بدون فتح فورم او ظهور البيانات بالداتا جريد مباشرة من نفس كود الاتصال من خلال زر فقط
الاتصال
الكود دة بستخدمة بعد فتح الفورم ولكن اريد بدون فتح الفورم او ظهور الداتا جريد ان يتم حصر وعد الصفوف التي سوف تظهر
يعني عايز اعرف عدد الصفوف بالداتا جريد بعد استعلام معين بدون فتح فورم او ظهور البيانات بالداتا جريد مباشرة من نفس كود الاتصال من خلال زر فقط
الاتصال
كود :
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