28-12-15, 06:55 PM
السلام عليكم ,,
كيف حالكم ,, يا عباقرة vb >
ليا طلب بسيط ,, أنا اريد حساب عدد السجلآت ,, و لكن لدي حقل معين يتكرر قيمته في سجل آخر ,,
المطلوب ,, حساب عدد السجلات و لو تكرر عندي رقم في اكثر من سجل اريد حسابه و كأه سجل واحد ,,
انا استخدم هذا الكود للحساب
كيف حالكم ,, يا عباقرة 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