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

نسخة كاملة : حساب عدد السجلات و الرقم المتكرر يحسب كأنه سجل واحد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ,, 
كيف حالكم ,, يا عباقرة vb > 
ليا طلب بسيط ,, أنا اريد حساب عدد السجلآت ,, و لكن لدي حقل معين يتكرر قيمته في سجل آخر ,, 
المطلوب ,, حساب عدد السجلات و لو تكرر عندي رقم في اكثر من سجل اريد حسابه و كأه سجل واحد ,, 
انا استخدم هذا الكود للحساب 
PHP كود :
Public Function RecordsCount1() As Integer
        Dim Result 
As Integer 0
        Dim Conn 
As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;" "data source=" Application.StartupPath "\db11.mdb")
 
       Dim Comm As OleDbCommand = New OleDbCommand("SELECT COUNT(*) AS RecCounts FROM aeamer_ww "Conn)
 
       Try
            Conn
.Open()
 
           Dim dReader As OleDbDataReader Comm.ExecuteReader
            If dReader
.HasRows Then
                Do 
While dReader.Read
                    Result 
dReader("RecCounts")
 
               Loop
            Else
                Result 
0
            End 
If
 
       Catch ex As Exception
            MessageBox
.Show("An error has occurred, Error Description:" vbNewLine ex.ToString"Error"MessageBoxButtons.OKMessageBoxIcon.Exclamation)
 
       Finally
            Conn
.Dispose()
 
           Comm.Dispose()
 
       End Try
 
       Return Result
    End 
Function