[ahmed_elwerfalli]

السلام عليكم ,, 
كيف حالكم ,, يا عباقرة 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.OK, MessageBoxIcon.Exclamation)
        Finally
            Conn.Dispose()
            Comm.Dispose()
        End Try
        Return Result
    End Function