فیلتر اطلاعات یک فیلد

[sinavb]

سلام دوستان من می خوام توی پروژه ام یه گزارش بگزارم
می خوام توی فیلد محتوا تمام رکورد هایی که توش نوشته عالی رو بشمره و توی یک لیبل نشان بده
و همینطور تو همون فیلد رکورد هایی رو که نوشته خوب بشمره و توی یه لیبل دیگه نشون بده
هر چی گشتم چیزی پیدا نکردم خواهشا یهراهنمایی بفرمایید مرسی

[shedayat]

سلام. شما باید ابتدا با این دستور عمل فیلتر رو انجام بدین:

Adodc1.RecordSource = "Select * from Table_Name where Field_Name=عالي"
و سپس با این دستور تعداد رکوردها رو بشمارین و تعدادشون رو داخل لیبل قرار بدین.

Label1=adodc1.Recordset.RecordCount

[sinavb]

Private Sub Form_Activate()
Adodc1.Refresh
Adodc1.RecordSource = "Select * from nazar where mohtava = ÚÇáí"
label100.Caption = Adodc1.Recordset.RecordCount
End Sub

من کاری که شما گفتید رو انجام دادم ولی نشد ! تعداد کل رکورد های بانک رو می شماره !

[shedayat]

[sinavb;1139428][code]Private Sub Form_Activate()
Adodc1.Refresh
Adodc1.RecordSource = "Select * from nazar where mohtava = ÚÇáí"
label100.Caption = Adodc1.Recordset.RecordCount
End Sub


در آخرش هم یه Refresh به adodc خودتون بدین.

[sinavb]

دوست عزیز می شه یه نمونه پروژه بگزاری من هر کاری می کنم نمی شه !!

[shedayat]

فقط یه اشکالی که کدت داره اینه که باید کلمه عالی رو بزاری توی ' ' یعنی اینجوری بنویسی 'عالی'.

[محسن شامحمدی]

دوستان من دلیل این که این دستور اجرا نمی شه برمی گرده به دستور adodc1.refresh
یعنی:
هر دستوری که توی Recordsource نوشته بشه یهویی خود به خود اجرا نمی شه بلکه بعد اینکه دستور رو نوشتید باید دستور adodc1.refresh رو بنویسید تا دستور sql اجرا بشه.
یعنی کد اصلاح شدتون می شه این:
Private Sub Form_Activate()

Adodc1.RecordSource = "Select * from nazar where mohtava = 'عالی'"
Adodc1.Refresh
label100.Caption = Adodc1.Recordset.RecordCount
End Sub