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

ارجو من الاخوه الافاضل والعباقره فى الدت نت
نت كيفيه معرفه عدد السجلات فى الداتاريدر وهذا هو الاجراء
If con.State = ConnectionState.Closed Then con.Open()
Dim sql_str = New OleDbCommand("Select * From cust ", con) '
d_Reader1 = sql_str.ExecuteReader
Do While (d_Reader1.Read)
Dim result As Integer

'MsgBox(d_Reader1(0).ToString) ' رقم العميل الاول
ولكنى اريد عدد العملاء كلهم
واكون شاكر افضال كل من يهنم بالموضوع

كود :

Dim sql_str As New OleDbCommand("Select COUNT(*) From cust", con)

If con.State <> ConnectionState.Open Then con.Open()

Dim dresult = sql_str.ExecuteScalar

con.Close()

MsgBox(dresult)

(16-09-18, 02:51 AM)sal_56 كتب : [ -> ]ارجو من الاخوه الافاضل والعباقره فى الدت نت
نت كيفيه معرفه عدد السجلات فى الداتاريدر وهذا هو الاجراء
If con.State = ConnectionState.Closed Then con.Open()
Dim sql_str = New OleDbCommand("Select * From cust ", con) '
d_Reader1 = sql_str.ExecuteReader
Do While (d_Reader1.Read)
Dim result As Integer

'MsgBox(d_Reader1(0).ToString) ' رقم العميل الاول
ولكنى اريد عدد العملاء كلهم
واكون شاكر افضال كل من يهنم بالموضوع

فقط تحتاج لهذا الكود لمعرفة رقم العميل الأول وعدد العملاء كلهم :

كود :

Dim dp As New OleDbDataAdapter("select UserID from cust order by UserID asc", con)

        Dim dt As New DataTable : dp.Fill(dt)

        MsgBox(dt.Rows(0)(0))   'رقم العميل الأول

        MsgBox(dt.Rows.Count)   'عدد العملاء كلهم

شكرا اخى العزيز على مرورك والاهتمام بالرد

(17-09-18, 01:19 AM)sal_56 كتب : [ -> ]شكرا اخى العزيز على مرورك والاهتمام بالرد

أهم شيء أنك وصلت لما تريد، والحمد لله

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

sal_56

911

حريف برمجة

sal_56

911