بدست اوردن تعداد یک کلمه در یک فیلد خاص

[hosein3000]

با سلام خدمت دوستان عزیز و گرامی

من تو دیتابیسم یک فیلد با نام مرخصی گذاشتم که با بلی و یا نه مقدار دهی می شه
الان می خوام تعداد روز هایی رو که بلی هست رو برنامه بشمره برام
و دیگه اینکه روزهایی که بلی هست رو توی یک دیتا ریپورت برام نشون بده تا بتونم چاپش کنم

من از adodc استفاده کردم

ممنون میشم راهنماییم کنین

مرسی

[محسن واژدی]

سلام علیکم
تابع زیر را در ماژول کد یا فرم قرار بدهید:
Public Function GetAllRecNums(ADO As Adodc, sTable$, sFldNam$, sConditionVal$) As Long
On Error Resume Next
Dim CN As New ADODB.Connection, RS As New ADODB.Recordset
CN.CursorLocation = adUseClient
CN.Open ADO.ConnectionString
RS.Open "SELECT * FROM " & sTable$ & " WHERE " & sFldNam$ & "='" & sConditionVal$ & "'", CN
GetAllRecNums = RS.RecordCount
CN.Close
End Function




برای مثال:
Private Sub Command1_Click()
MsgBox GetAllRecNums(Adodc1, "Table1", "fldVacation", "بلي")
End Sub


موفق باشید

[hosein3000]

با تشکر مجدد ولی می خوام تو دیتا ریپورت نتیجه رو نشون بدم تا بتونم چاپش کنم
و از adodc می خوام استفاده کنم

مرسی

[محسن واژدی]

میتوانیم نتیجه را در یک label در data-report چاپ کنیم، به عنوان مثال برای چاپ نتیجه در برچسبی با نام Label1 در section1 از کد زیر استفاده میکنیم:
DataReport1.Sections("Section1").Controls("Label1").Caption=GetAllRecNums(Adodc1, "Table1", "fldVacation", "بلي")

موفق باشید