Sayın hocalarım; veritabanındaki gorusmeler tablomdaki okulno alanında seçtiğim öğrenci ile kaç defa görüştüğümü saymak ve Label1 e yazmasını istiyorum. Aşağıdaki Sql kodunu yazdım ama bir türlü yapamadım.

Dim SqlStr
Call Connection
SqlStr = "Count(okulno) As Integer FROM T200_Rehberlik WHERE okulno= '" & Text1.Text & "'"
Label1.Caption = SqlStr

Merhaba;
Benim gördüğüm sorgu cümlenizin başında "SELECT" ifadesi eksikliği var. Onun dışında kodun doğruluğu hakkında hocalarımızda yardımcı olurlar.
İyi çalışmalar.

Hocam; select ile de denedim ama olmadı.

Sn:ynlmz
Aşağıdaki kodu kullanınız.

Private Sub Command1_Click()

Adodc1.RecordSource = "SELECT * FROM T200_Rehberlik WHERE okulno LIKE '" & Text1 & "%'"

Adodc1.Refresh

Label1.Caption = Adodc1.Recordset.RecordCount

End Sub

Sayın oğulcan; öncelikle ilginize teşekkür ederim.
Benim veritabanı bağlantım

Public Sub Gorusme_Rehberlik()

    'The Purpose of this function is to manage the recordset "Inpatient_Maintenance"

    Set rs_rehber = New ADODB.Recordset

    With rs_rehber

        .CursorType = adOpenDynamic

        .LockType = adLockOptimistic

        .ActiveConnection = con

        .Source = "Select * from gorusme"

        .CursorLocation = adUseClient

        .Open

    End With

End Sub

bu şekilde.
yapmak istediğimde yeni bir görüşme yaparken daha önce o öğrenci ile daha önce kaçtane görüşme yaptığımın sayısını bulmak ve o sayıyı Label1e yazdırmak istiyorum. Görüşme yaptığım öğrencinin numarası Text1 e yazılıyor. "gorusme" tablomdaki OkulNo alanında o numaradan kaçtane olduğunu bulmaya çalışıyorum.
Yardımınızı bekliyorum.