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.