+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : سؤال عن الداتا ريدر (/showthread.php?tid=26511)
سؤال عن الداتا ريدر - sal_56 - 16-09-18
ارجو من الاخوه الافاضل والعباقره فى الدت نت
نت كيفيه معرفه عدد السجلات فى الداتاريدر وهذا هو الاجراء
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) ' رقم العميل الاول
ولكنى اريد عدد العملاء كلهم
واكون شاكر افضال كل من يهنم بالموضوع
RE: سؤال عن الداتا ريدر - 911 - 16-09-18
كود :
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)RE: سؤال عن الداتا ريدر - حريف برمجة - 16-09-18
(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) 'عدد العملاء كلهمRE: سؤال عن الداتا ريدر - sal_56 - 17-09-18
شكرا اخى العزيز على مرورك والاهتمام بالرد
RE: سؤال عن الداتا ريدر - 911 - 17-09-18
(17-09-18, 01:19 AM)sal_56 كتب : شكرا اخى العزيز على مرورك والاهتمام بالرد
أهم شيء أنك وصلت لما تريد، والحمد لله