تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال عن الداتا ريدر
#1
ارجو من الاخوه الافاضل والعباقره فى الدت نت
نت كيفيه معرفه عدد السجلات فى الداتاريدر وهذا هو الاجراء
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) ' رقم العميل الاول
ولكنى اريد عدد العملاء كلهم
واكون شاكر افضال كل من يهنم بالموضوع
الرد }}}
تم الشكر بواسطة:
#2
كود :
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)
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , elgokr
#3
(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)   'عدد العملاء كلهم
الرد }}}
#4
شكرا اخى العزيز على مرورك والاهتمام بالرد
الرد }}}
تم الشكر بواسطة: elgokr
#5
(17-09-18, 01:19 AM)sal_56 كتب : شكرا اخى العزيز على مرورك والاهتمام بالرد


أهم شيء أنك وصلت لما تريد، والحمد لله
الرد }}}
تم الشكر بواسطة: elgokr



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم